(Fbyte_code) <Bgeq>: Add BEFORE_POTENTIAL_GC and

AFTER_POTENTIAL_GC.

diff --git a/src/ChangeLog b/src/ChangeLog
index fa023f9e69f7c619c7f0d9fe1a5a20777d0be8ae..706ff7979b17fabd9465839a654221b5343f49a7 100644 (file)
--- 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 7cd38a0fe2e64798a61b28c68c776c94d27d2f3e..f2394556e2b42881bad72df32d0cfed66313693d 100644 (file)
--- 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;
          }