comparison src/bytecode.c @ 771:943eaba38521

[xemacs-hg @ 2002-03-13 08:51:24 by ben] The big ben-mule-21-5 check-in! Various files were added and deleted. See CHANGES-ben-mule. There are still some test suite failures. No crashes, though. Many of the failures have to do with problems in the test suite itself rather than in the actual code. I'll be addressing these in the next day or so -- none of the test suite failures are at all critical. Meanwhile I'll be trying to address the biggest issues -- i.e. build or run failures, which will almost certainly happen on various platforms. All comments should be sent to ben@xemacs.org -- use a Cc: if necessary when sending to mailing lists. There will be pre- and post- tags, something like pre-ben-mule-21-5-merge-in, and post-ben-mule-21-5-merge-in.
author ben
date Wed, 13 Mar 2002 08:54:06 +0000
parents fdefd0186b75
children e38acbeb1cae
comparison
equal deleted inserted replaced
770:336a418893b5 771:943eaba38521
869 869
870 870
871 case Bunbind_all: 871 case Bunbind_all:
872 /* To unbind back to the beginning of this frame. Not used yet, 872 /* To unbind back to the beginning of this frame. Not used yet,
873 but will be needed for tail-recursion elimination. */ 873 but will be needed for tail-recursion elimination. */
874 unbind_to (speccount, Qnil); 874 unbind_to (speccount);
875 break; 875 break;
876 876
877 case Bnth: 877 case Bnth:
878 { 878 {
879 Lisp_Object arg = POP; 879 Lisp_Object arg = POP;
1233 { 1233 {
1234 int count = specpdl_depth (); 1234 int count = specpdl_depth ();
1235 record_unwind_protect (save_window_excursion_unwind, 1235 record_unwind_protect (save_window_excursion_unwind,
1236 Fcurrent_window_configuration (Qnil)); 1236 Fcurrent_window_configuration (Qnil));
1237 TOP = Fprogn (TOP); 1237 TOP = Fprogn (TOP);
1238 unbind_to (count, Qnil); 1238 unbind_to (count);
1239 break; 1239 break;
1240 } 1240 }
1241 1241
1242 case Bsave_restriction: 1242 case Bsave_restriction:
1243 record_unwind_protect (save_restriction_restore, 1243 record_unwind_protect (save_restriction_restore,
1430 Lisp_Object arg = POP; 1430 Lisp_Object arg = POP;
1431 temp_output_buffer_show (TOP, Qnil); 1431 temp_output_buffer_show (TOP, Qnil);
1432 TOP = arg; 1432 TOP = arg;
1433 /* GAG ME!! */ 1433 /* GAG ME!! */
1434 /* pop binding of standard-output */ 1434 /* pop binding of standard-output */
1435 unbind_to (specpdl_depth() - 1, Qnil); 1435 unbind_to (specpdl_depth() - 1);
1436 break; 1436 break;
1437 } 1437 }
1438 1438
1439 case Bold_eq: 1439 case Bold_eq:
1440 { 1440 {