changeset 35711:f17e8743925c

(Fbyte_code) <Bcurrent_column>: Add BEFORE_POTENTIAL_GC and AFTER_POTENTIAL_GC.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 29 Jan 2001 20:44:42 +0000
parents 1bee5b46a604
children 350ba5553ea3
files src/bytecode.c
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;
 	  }