From 635d8065d16457e0fa3b48caf2be5772ed9b96be Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Wed, 11 Jun 2003 11:39:06 +0000
Subject: [PATCH] (unmark_byte_stack, unmark_byte_stack) [!BOEHM_GC]: Don't
define. (BEFORE_POTENTIAL_GC, AFTER_POTENTIAL_GC, MAYBE_GC) [BOEHM_GC]:
Define as null.
---
src/bytecode.c | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
diff --git a/src/bytecode.c b/src/bytecode.c
index 881834367ab..25bd72b0d5c 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -269,6 +269,7 @@ struct byte_stack
struct byte_stack *byte_stack_list;
+#ifndef BOEHM_GC
/* Mark objects on byte_stack_list. Called during GC. */
void
@@ -336,7 +337,7 @@ unmark_byte_stack ()
}
}
}
-
+#endif /* BOEHM_GC */
/* Fetch the next byte from the bytecode stream */
@@ -370,9 +371,15 @@ unmark_byte_stack ()
/* Actions that must be performed before and after calling a function
that might GC. */
-#define BEFORE_POTENTIAL_GC() stack.top = top
-#define AFTER_POTENTIAL_GC() stack.top = NULL
+#ifdef BOEHM_GC
+# define BEFORE_POTENTIAL_GC()
+# define AFTER_POTENTIAL_GC()
+#else
+# define BEFORE_POTENTIAL_GC() stack.top = top
+# define AFTER_POTENTIAL_GC() stack.top = NULL
+#endif
+#ifndef BOEHM_GC
/* Garbage collect if we have consed enough since the last time.
We do this at every branch, to avoid loops that never GC. */
@@ -384,6 +391,9 @@ unmark_byte_stack ()
AFTER_POTENTIAL_GC (); \
} \
else
+#else
+#define MAYBE_GC()
+#endif /* BOEHM_GC */
/* Check for jumping out of range. */
--
2.39.5