# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941838927 0
# Node ID b3378aff433e6fed47831f8d6011e2d90fc08c20
# Parent  9f71d570068d595b3f88918edbcd9f93337aff16
(Fbyte_code): Use BEFORE_POTENTIAL_GC and
AFTER_POTENTIAL_GC around internal_catch.

diff -r 9f71d570068d -r b3378aff433e src/bytecode.c
--- a/src/bytecode.c	Fri Nov 05 21:30:57 1999 +0000
+++ b/src/bytecode.c	Fri Nov 05 21:55:27 1999 +0000
@@ -676,7 +676,9 @@
 
 	case Bcatch:
 	  v1 = POP;
+	  BEFORE_POTENTIAL_GC ();
 	  TOP = internal_catch (TOP, Feval, v1);
+	  AFTER_POTENTIAL_GC ();
 	  break;
 
 	case Bunwind_protect: