From 5ea946d478561bfa2808f5026b6ba51e7d041476 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 1 Apr 2006 14:34:23 +0000
Subject: [PATCH] mark-stack pos must be a long

svn: r2572
---
 src/mzscheme/include/scheme.h | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/mzscheme/include/scheme.h b/src/mzscheme/include/scheme.h
index 8075b85630..29835a0452 100644
--- a/src/mzscheme/include/scheme.h
+++ b/src/mzscheme/include/scheme.h
@@ -826,8 +826,11 @@ typedef struct Scheme_Continuation_Jump_State {
   short is_kill;
 } Scheme_Continuation_Jump_State;
 
-#define MZ_MARK_POS_TYPE int
-#define MZ_MARK_STACK_TYPE int
+/* A mark position is in odd number, so that it can be
+   viewed as a pointer (i.e., a fixnum): */
+#define MZ_MARK_POS_TYPE long
+/* A mark "pointer" is an offset into the stack: */
+#define MZ_MARK_STACK_TYPE long
 
 typedef struct Scheme_Cont_Frame_Data {
   MZ_MARK_POS_TYPE cont_mark_pos;