Sync up with r21-2-17-1999-07-05-18.

[chise/xemacs-chise.git] / src / bytecode.c

diff --git a/src/bytecode.c b/src/bytecode.c
index 09e4908..af9d3f4 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -56,7 +56,6 @@ by Hallvard:
 #include "opaque.h"
 #include "syntax.h"
 
-#include <stddef.h>
 #include <limits.h>
 
 EXFUN (Ffetch_bytecode, 1);
@@ -226,12 +225,6 @@ static Lisp_Object execute_optimized_program (CONST Opbyte *program,
 
 extern Lisp_Object Qand_rest, Qand_optional;
 
-/* Define ERROR_CHECK_BYTE_CODE to enable some minor sanity checking.
-   Useful for debugging the byte compiler.  */
-#ifdef DEBUG_XEMACS
-#define ERROR_CHECK_BYTE_CODE
-#endif
-
 /* Define BYTE_CODE_METER to enable generation of a byte-op usage histogram.
    This isn't defined in FSF Emacs and isn't defined in XEmacs v19. */
 /* #define BYTE_CODE_METER */
@@ -2030,11 +2023,20 @@ compiled_function_hash (Lisp_Object obj, int depth)
                internal_hash (f->constants,    depth + 1));
 }
 
+static const struct lrecord_description compiled_function_description[] = {
+  { XD_LISP_OBJECT, offsetof(struct Lisp_Compiled_Function, instructions), 4 },
+#ifdef COMPILED_FUNCTION_ANNOTATION_HACK
+  { XD_LISP_OBJECT, offsetof(struct Lisp_Compiled_Function, annotated), 1 },
+#endif
+  { XD_END }
+};
+
 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("compiled-function", compiled_function,
                                     mark_compiled_function,
                                     print_compiled_function, 0,
                                     compiled_function_equal,
                                     compiled_function_hash,
+                                    compiled_function_description,
                                     Lisp_Compiled_Function);
 \f
 DEFUN ("compiled-function-p", Fcompiled_function_p, 1, 1, 0, /*