suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mark-stack pos must be a long

Browse Source 
svn: r2572
This commit is contained in:
Matthew Flatt 2006-04-01 14:34:23 +00:00
parent c1ba7dc426
commit 5ea946d478
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/include/scheme.h
View File

@ -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;