Mercurial > hg > xemacs-beta

comparison src/bytecode.h @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 11054d720c21
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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 INCLUDED_bytecode_h_ 30 #ifndef _XEMACS_BYTECODE_H_
31 #define INCLUDED_bytecode_h_ 31 #define _XEMACS_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)
96 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function) 97 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function)
97 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function) 98 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function)
98 99
99 extern Lisp_Object Qbyte_code; 100 extern Lisp_Object Qbyte_code;
100 101
117 doc-only - : (* 389 0) = 0 118 doc-only - : (* 389 0) = 0
118 int-only - : (* 42 0) = 0 119 int-only - : (* 42 0) = 0
119 neither - : (* 559 0) = 0 = 3530 120 neither - : (* 559 0) = 0 = 3530
120 */ 121 */
121 122
122 #endif /* INCLUDED_bytecode_h_ */ 123 #endif /* _XEMACS_BYTECODE_H_ */
123 124