# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980801082 0
# Node ID f17e8743925c11623593f82ec310378c2a0d3e9f
# Parent  1bee5b46a6040657f037349c1b5623c5fd29d96d
(Fbyte_code) <Bcurrent_column>: Add
BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.

diff -r 1bee5b46a604 -r f17e8743925c src/bytecode.c
--- a/src/bytecode.c	Mon Jan 29 20:36:26 2001 +0000
+++ b/src/bytecode.c	Mon Jan 29 20:44:42 2001 +0000
@@ -1341,7 +1341,9 @@
 	case Bcurrent_column:
 	  {
 	    Lisp_Object v1;
+	    BEFORE_POTENTIAL_GC ();
 	    XSETFASTINT (v1, current_column ());
+	    AFTER_POTENTIAL_GC ();
 	    PUSH (v1);
 	    break;
 	  }