Mercurial > hg > xemacs-beta

comparison src/bytecode.h @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 52952cbfc5b5
children 8626e4521993
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
81 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function) 81 #define COMPILED_FUNCTIONP(x) RECORDP (x, compiled_function)
82 #define GC_COMPILED_FUNCTIONP(x) GC_RECORDP (x, compiled_function) 82 #define GC_COMPILED_FUNCTIONP(x) GC_RECORDP (x, compiled_function)
83 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function) 83 #define CHECK_COMPILED_FUNCTION(x) CHECK_RECORD (x, compiled_function)
84 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function) 84 #define CONCHECK_COMPILED_FUNCTION(x) CONCHECK_RECORD (x, compiled_function)
85 85
86 EXFUN (Fbyte_code, 3);
87
88 extern Lisp_Object Qbyte_code;
89
86 /* total 1765 internal 101 doc-and-int 775 doc-only 389 int-only 42 neither 559 90 /* total 1765 internal 101 doc-and-int 775 doc-only 389 int-only 42 neither 559
87 no doc slot, no int slot 91 no doc slot, no int slot
88 overhead : (* 1765 0) = 0 92 overhead : (* 1765 0) = 0
89 doc-and-int (args . (doc . int)): (* 775 4) = 3100 93 doc-and-int (args . (doc . int)): (* 775 4) = 3100
90 doc-only (args . doc) : (* 389 2) = 778 94 doc-only (args . doc) : (* 389 2) = 778