X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fbytecode.c;h=23f0b9f89061a7a30325e7b6dce7da8434426d74;hp=de2b646425bd2afd4212d11cf5033fa53eb9c1c4;hb=a71e0987b7080176e0046b0b0ed72a9a70e2571d;hpb=0e904fc68e7429eda789ded8f73075ead2ad2584

diff --git a/src/bytecode.c b/src/bytecode.c
index de2b646..23f0b9f 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -2024,11 +2024,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);
 
 DEFUN ("compiled-function-p", Fcompiled_function_p, 1, 1, 0, /*