(Fbyte_code): Fsub1 can GC, so protect it.

e494eee5 · Miles Bader · 1ced831d · e494eee5
Commit e494eee5 authored Aug 26, 2002 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/bytecode.c src/bytecode.c +6 -2

No files found.
--- a/src/bytecode.c
+++ b/src/bytecode.c
 /* Execution of byte code produced by bytecomp.el.
-   Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001
+   Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002
   Free Software Foundation, Inc.

 This file is part of GNU Emacs.
@@ -1125,7 +1125,11 @@ If the third argument is incorrect, Emacs may crash.  */)
 		TOP = v1;
 	      }
 	    else
-	      TOP = Fsub1 (v1);
+	      {
+		BEFORE_POTENTIAL_GC ();
+		TOP = Fsub1 (v1);
+		AFTER_POTENTIAL_GC ();
+	      }
 	    break;
 	  }