Mercurial > emacs

comparison src/bytecode.c @ 33688:35fae77e31dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code) <Bvarbind, Bunwind_protect>: Add BEFORE/AFTER_POTENTIAL_GC.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 21 Nov 2000 16:47:04 +0000
parents fb30bcf39f12
children 583cd327d7b5
comparison
equal deleted inserted replaced
33687:704ac01ba764 33688:35fae77e31dc
642 case Bvarbind+3: 642 case Bvarbind+3:
643 case Bvarbind+4: 643 case Bvarbind+4:
644 case Bvarbind+5: 644 case Bvarbind+5:
645 op -= Bvarbind; 645 op -= Bvarbind;
646 varbind: 646 varbind:
647 /* Specbind can signal and thus GC. */
648 BEFORE_POTENTIAL_GC ();
647 specbind (vectorp[op], POP); 649 specbind (vectorp[op], POP);
650 AFTER_POTENTIAL_GC ();
648 break; 651 break;
649 652
650 case Bcall+6: 653 case Bcall+6:
651 op = FETCH; 654 op = FETCH;
652 goto docall; 655 goto docall;
848 AFTER_POTENTIAL_GC (); 851 AFTER_POTENTIAL_GC ();
849 break; 852 break;
850 } 853 }
851 854
852 case Bunwind_protect: 855 case Bunwind_protect:
856 /* The function record_unwind_protect can GC. */
857 BEFORE_POTENTIAL_GC ();
853 record_unwind_protect (0, POP); 858 record_unwind_protect (0, POP);
859 AFTER_POTENTIAL_GC ();
854 (specpdl_ptr - 1)->symbol = Qnil; 860 (specpdl_ptr - 1)->symbol = Qnil;
855 break; 861 break;
856 862
857 case Bcondition_case: 863 case Bcondition_case:
858 { 864 {