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

added MZ_GC_NO_VAR_IN_REG

Browse Source 
svn: r1444
This commit is contained in:
Matthew Flatt 2005-11-30 12:56:24 +00:00
parent e47c5874fe
commit d8734f8035
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1453,6 +1453,7 @@ extern void *scheme_malloc_envunbox(size_t);
# define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) (__gc_var_stack__[x+2] = (void *)0, \
__gc_var_stack__[x+3] = (void *)&(v), \
__gc_var_stack__[x+4] = (void *)l)
# define MZ_GC_NO_VAR_IN_REG(x) (__gc_var_stack__[x+2] = NULL)
# define MZ_GC_REG() (__gc_var_stack__[0] = GC_variable_stack, \
GC_variable_stack = __gc_var_stack__)
# define MZ_GC_UNREG() (GC_variable_stack = __gc_var_stack__[0])
@ -1460,6 +1461,7 @@ extern void *scheme_malloc_envunbox(size_t);
# define MZ_GC_DECL_REG(size) /* empty */
# define MZ_GC_VAR_IN_REG(x, v) /* empty */
# define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) /* empty */
# define MZ_GC_NO_VAR_IN_REG(x) /* empty */
# define MZ_GC_REG() /* empty */
# define MZ_GC_UNREG() /* empty */
#endif