Mercurial > emacs
comparison src/bytecode.c @ 33688:35fae77e31dc
(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 { |