comparison src/bytecode.c @ 56769:349245fdad22

(Fbyte_code) <unwind-protect>: Cannot GC.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Aug 2004 17:43:26 +0000
parents 30a3237237e0
children 569cd6a5babd d8411455de48
comparison
equal deleted inserted replaced
56768:560751ade8e5 56769:349245fdad22
853 AFTER_POTENTIAL_GC (); 853 AFTER_POTENTIAL_GC ();
854 break; 854 break;
855 } 855 }
856 856
857 case Bunwind_protect: 857 case Bunwind_protect:
858 /* The function record_unwind_protect can GC. */
859 BEFORE_POTENTIAL_GC ();
860 record_unwind_protect (Fprogn, POP); 858 record_unwind_protect (Fprogn, POP);
861 AFTER_POTENTIAL_GC ();
862 break; 859 break;
863 860
864 case Bcondition_case: 861 case Bcondition_case:
865 { 862 {
866 Lisp_Object v1; 863 Lisp_Object v1;