comparison src/bytecode.c @ 26368:b3378aff433e

(Fbyte_code): Use BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC around internal_catch.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 05 Nov 1999 21:55:27 +0000
parents efb608f1cb10
children 5f52cc1417ab
comparison
equal deleted inserted replaced
26367:9f71d570068d 26368:b3378aff433e
674 record_unwind_protect (save_restriction_restore, save_restriction_save ()); 674 record_unwind_protect (save_restriction_restore, save_restriction_save ());
675 break; 675 break;
676 676
677 case Bcatch: 677 case Bcatch:
678 v1 = POP; 678 v1 = POP;
679 BEFORE_POTENTIAL_GC ();
679 TOP = internal_catch (TOP, Feval, v1); 680 TOP = internal_catch (TOP, Feval, v1);
681 AFTER_POTENTIAL_GC ();
680 break; 682 break;
681 683
682 case Bunwind_protect: 684 case Bunwind_protect:
683 record_unwind_protect (0, POP); 685 record_unwind_protect (0, POP);
684 (specpdl_ptr - 1)->symbol = Qnil; 686 (specpdl_ptr - 1)->symbol = Qnil;