Mercurial > hg > xemacs-beta
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 { |