Mercurial > hg > xemacs-beta

comparison src/bytecode.c @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents 064ab7fed2e0
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
527 Lisp_Object value = 527 Lisp_Object value =
528 execute_optimized_program ((Opbyte *) XOPAQUE_DATA (f->instructions), 528 execute_optimized_program ((Opbyte *) XOPAQUE_DATA (f->instructions),
529 f->stack_depth, 529 f->stack_depth,
530 XVECTOR_DATA (f->constants)); 530 XVECTOR_DATA (f->constants));
531 531
532 UNBIND_TO_GCPRO_VARIABLES_ONLY (speccount, value); 532 /* The attempt to optimize this by only unbinding variables failed
533 because using buffer-local variables as function parameters
534 leads to specpdl_ptr->func != 0 */
535 /* UNBIND_TO_GCPRO_VARIABLES_ONLY (speccount, value); */
536 UNBIND_TO_GCPRO (speccount, value);
533 return value; 537 return value;
534 } 538 }
535 539
536 wrong_number_of_arguments: 540 wrong_number_of_arguments:
537 return Fsignal (Qwrong_number_of_arguments, list2 (fun, make_int (nargs))); 541 return Fsignal (Qwrong_number_of_arguments, list2 (fun, make_int (nargs)));