Mercurial > hg > xemacs-beta

comparison src/bytecode.h @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
32 #define INCLUDED_bytecode_h_ 32 #define INCLUDED_bytecode_h_
33 33
34 #ifdef NEW_GC 34 #ifdef NEW_GC
35 struct compiled_function_args 35 struct compiled_function_args
36 { 36 {
37 struct lrecord_header header; 37 LISP_OBJECT_HEADER header;
38 long size; 38 long size;
39 Lisp_Object args[1]; 39 Lisp_Object args[1];
40 }; 40 };
41 41
42 typedef struct compiled_function_args Lisp_Compiled_Function_Args; 42 typedef struct compiled_function_args Lisp_Compiled_Function_Args;
70 /* It doesn't make sense to have this and also have load-history */ 70 /* It doesn't make sense to have this and also have load-history */
71 /* #define COMPILED_FUNCTION_ANNOTATION_HACK */ 71 /* #define COMPILED_FUNCTION_ANNOTATION_HACK */
72 72
73 struct Lisp_Compiled_Function 73 struct Lisp_Compiled_Function
74 { 74 {
75 struct lrecord_header lheader; 75 FROB_BLOCK_LISP_OBJECT_HEADER lheader;
76 unsigned short stack_depth; 76 unsigned short stack_depth;
77 unsigned short specpdl_depth; 77 unsigned short specpdl_depth;
78 struct 78 struct
79 { 79 {
80 unsigned int documentationp: 1; 80 unsigned int documentationp: 1;