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

unbreak non-xform 3m embedding setjmp

Browse Source 
Commit 023681947c fixed a problem cooperating with xform, but the
repair assumes xform. The "embed-in-c.rkt" test, for example, uses 3m
without xform (and instead uses macros like `MZ_GC_DECL_REG`.
This commit is contained in:
Matthew Flatt 2020-07-24 10:47:33 -06:00
parent 93a7b5d29c
commit 574e8e32e2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/include/scheme.h
View File

@ -1703,6 +1703,9 @@ MZ_EXTERN void scheme_jit_setjmp_prepare(mz_jit_jmp_buf b);
# define scheme_setjmp(b) ((b).gcvs = (intptr_t)__gc_var_stack__, \ # define scheme_setjmp(b) ((b).gcvs = (intptr_t)__gc_var_stack__, \
(b).gcvs_cnt = XFORM_CURRENT_COUNT, \ (b).gcvs_cnt = XFORM_CURRENT_COUNT, \
scheme_jit_setjmp((b).jb)) scheme_jit_setjmp((b).jb))
# ifndef MZ_XFORM
# define XFORM_CURRENT_COUNT (intptr_t)(__gc_var_stack__[1])
# endif
#else #else
# define scheme_longjmp(b, v) scheme_jit_longjmp(b, v) # define scheme_longjmp(b, v) scheme_jit_longjmp(b, v)
# define scheme_setjmp(b) scheme_jit_setjmp(b) # define scheme_setjmp(b) scheme_jit_setjmp(b)