Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
256 /* Get the value which is at the top of the execution stack, 256 /* Get the value which is at the top of the execution stack,
257 but don't pop it. */ 257 but don't pop it. */
258 258
259 #define TOP (*stackp) 259 #define TOP (*stackp)
260 260
261 DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0 /* 261 DEFUN ("byte-code", Fbyte_code, 3, 3, 0, /*
262 Function used internally in byte-compiled code. 262 Function used internally in byte-compiled code.
263 The first argument is a string of byte code; the second, a vector of constants; 263 The first argument is a string of byte code; the second, a vector of constants;
264 the third, the maximum stack depth used in this function. 264 the third, the maximum stack depth used in this function.
265 If the third argument is incorrect, Emacs may crash. 265 If the third argument is incorrect, Emacs may crash.
266 */ ) 266 */
267 (bytestr, vector, maxdepth) 267 (bytestr, vector, maxdepth))
268 Lisp_Object bytestr, vector, maxdepth;
269 { 268 {
270 /* This function can GC */ 269 /* This function can GC */
271 struct gcpro gcpro1, gcpro2, gcpro3; 270 struct gcpro gcpro1, gcpro2, gcpro3;
272 int speccount = specpdl_depth (); 271 int speccount = specpdl_depth ();
273 #ifdef BYTE_CODE_METER 272 #ifdef BYTE_CODE_METER
1217 1216
1218 void 1217 void
1219 syms_of_bytecode (void) 1218 syms_of_bytecode (void)
1220 { 1219 {
1221 defsymbol (&Qbyte_code, "byte-code"); 1220 defsymbol (&Qbyte_code, "byte-code");
1222 defsubr (&Sbyte_code); 1221 DEFSUBR (Fbyte_code);
1223 #ifdef BYTE_CODE_METER 1222 #ifdef BYTE_CODE_METER
1224 defsymbol (&Qbyte_code_meter, "byte-code-meter"); 1223 defsymbol (&Qbyte_code_meter, "byte-code-meter");
1225 #endif 1224 #endif
1226 } 1225 }
1227 1226