Mercurial > hg > xemacs-beta

comparison src/bytecode.h @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
25 FSF: long ago. 25 FSF: long ago.
26 Mly: rewrote for 19.8, properly abstracted. 26 Mly: rewrote for 19.8, properly abstracted.
27 Jon Reid: some changes for I18N3 (domain, etc), for 19.8. 27 Jon Reid: some changes for I18N3 (domain, etc), for 19.8.
28 */ 28 */
29 29
30 #ifndef _XEMACS_BYTECODE_H_ 30 #ifndef INCLUDED_bytecode_h_
31 #define _XEMACS_BYTECODE_H_ 31 #define INCLUDED_bytecode_h_
32 32
33 /* Meanings of slots in a Lisp_Compiled_Function. 33 /* Meanings of slots in a Lisp_Compiled_Function.
34 Don't use these! For backward compatibility only. */ 34 Don't use these! For backward compatibility only. */
35 #define COMPILED_ARGLIST 0 35 #define COMPILED_ARGLIST 0
36 #define COMPILED_INSTRUCTIONS 1 36 #define COMPILED_INSTRUCTIONS 1
91 DECLARE_LRECORD (compiled_function, Lisp_Compiled_Function); 91 DECLARE_LRECORD (compiled_function, Lisp_Compiled_Function);
92 #define XCOMPILED_FUNCTION(x) XRECORD (x, compiled_function, \ 92 #define XCOMPILED_FUNCTION(x) XRECORD (x, compiled_function, \
93 Lisp_Compiled_Function) 93 Lisp_Compiled_Function)
94 #define XSETCOMPILED_FUNCTION(x, p) XSETRECORD (x, p, compiled_function) 94 #define XSETCOMPILED_FUNCTION(x, p) XSETRECORD (x, p, compiled_function)
95 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function) 95 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function)
96 #define GC_COMPILED_FUNCTIONP(x) GC_RECORDP (x, compiled_function)
97 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function) 96 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function)
98 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function) 97 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function)
99 98
100 extern Lisp_Object Qbyte_code; 99 extern Lisp_Object Qbyte_code;
101 100
118 doc-only - : (* 389 0) = 0 117 doc-only - : (* 389 0) = 0
119 int-only - : (* 42 0) = 0 118 int-only - : (* 42 0) = 0
120 neither - : (* 559 0) = 0 = 3530 119 neither - : (* 559 0) = 0 = 3530
121 */ 120 */
122 121
123 #endif /* _XEMACS_BYTECODE_H_ */ 122 #endif /* INCLUDED_bytecode_h_ */
124 123