# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1030347439 0
# Node ID 58d2828adc196ffa4cc911ecd5b9e55910efd3bc
# Parent  820cb95c5776c8a7596972d8b97175ff17a9f7ac
(Fbyte_code): Fsub1 can GC, so protect it.

diff -r 820cb95c5776 -r 58d2828adc19 src/bytecode.c
--- a/src/bytecode.c	Mon Aug 26 01:10:46 2002 +0000
+++ b/src/bytecode.c	Mon Aug 26 07:37:19 2002 +0000
@@ -1,5 +1,5 @@
 /* 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 @@
 		TOP = v1;
 	      }
 	    else
-	      TOP = Fsub1 (v1);
+	      {
+		BEFORE_POTENTIAL_GC ();
+		TOP = Fsub1 (v1);
+		AFTER_POTENTIAL_GC ();
+	      }
 	    break;
 	  }