X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fbytecode.c;h=58ebc0c170dba790ba9e87c4f8ec543180590ee9;hp=5bbb326db2446a149258ad5f31742dabe29e2ba2;hb=dbf2768f7b146e97e37a27316f70bb313f1acf15;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb

diff --git a/src/bytecode.c b/src/bytecode.c
index 5bbb326..58ebc0c 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -211,6 +211,7 @@ typedef enum Opcode Opcode;
 typedef unsigned char Opbyte;
 
 
+static void check_opcode (Opcode opcode);
 static void invalid_byte_code_error (char *error_message, ...);
 
 Lisp_Object * execute_rare_opcode (Lisp_Object *stack_ptr,
@@ -637,6 +638,7 @@ execute_optimized_program (const Opbyte *program,
 	invalid_byte_code_error ("byte code stack overflow");
       if (stack_ptr < stack_beg)
 	invalid_byte_code_error ("byte code stack underflow");
+      check_opcode (opcode);
 #endif
 
 #ifdef BYTE_CODE_METER
@@ -2264,7 +2266,7 @@ Return the constants vector of the compiled-function object FUNCTION.
 }
 
 DEFUN ("compiled-function-stack-depth", Fcompiled_function_stack_depth, 1, 1, 0, /*
-Return the max stack depth of the compiled-function object FUNCTION.
+Return the maximum stack depth of the compiled-function object FUNCTION.
 */
        (function))
 {