From: Dave Love <fx@gnu.org>
Date: Tue, 30 Jan 2001 10:07:18 +0000 (+0000)
Subject: (Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and
X-Git-Tag: emacs-pretest-21.0.97~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9c1f6f955607281bea9f5168390a39c04d50043;p=emacs.git

(Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and
AFTER_POTENTIAL_GC.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index fa023f9e69f..706ff7979b1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-30  Dave Love  <fx@gnu.org>
+
+	* bytecode.c (Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and
+	AFTER_POTENTIAL_GC.
+
 2001-01-29  Gerd Moellmann  <gerd@gnu.org>
 
 	* bytecode.c (Fbyte_code) <Bcurrent_column>: Add
diff --git a/src/bytecode.c b/src/bytecode.c
index 7cd38a0fe2e..f2394556e2b 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1193,8 +1193,10 @@ If the third argument is incorrect, Emacs may crash.")
 	case Bgeq:
 	  {
 	    Lisp_Object v1;
+	    BEFORE_POTENTIAL_GC ();
 	    v1 = POP;
 	    TOP = Fgeq (TOP, v1);
+	    AFTER_POTENTIAL_GC ();
 	    break;
 	  }