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

fix non-futures, non-places build

Browse Source 
Problem introduced with the addition of `flexpt'.
This commit is contained in:
Matthew Flatt 2012-05-08 06:40:27 -06:00
parent 0ffabcc771
commit f07878dadb
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/jit.h
View File

@ -467,6 +467,7 @@ void *scheme_jit_get_threadlocal_table();
# define tl_fixup_runstack_base (&fixup_runstack_base)
# define tl_fixup_already_in_place (&fixup_already_in_place)
# define tl_scheme_jit_save_fp (&scheme_jit_save_fp)
# define tl_scheme_jit_save_fp2 (&scheme_jit_save_fp2)
# define tl_scheme_fuel_counter (&scheme_fuel_counter)
# define tl_scheme_jit_stack_boundary (&scheme_jit_stack_boundary)
#endif
@ -902,7 +903,7 @@ void scheme_jit_prolog_again(mz_jit_state *jitter, int n, int ret_addr_reg)
(Other JIT constraints imply that it isn't a pointer to GCable memory.)
* Relevant thread-local state is confined to the C stack, runstack,
mark stack, and tl_save_fp.
mark stack, and tl_save_fp[2].
* A pointer to the runstack can be used as a Scheme_Object** argument, but
only when it points to MZ_RUNSTACK.

1
src/racket/src/jitalloc.c
View File

@ -42,6 +42,7 @@ THREAD_LOCAL_DECL(static void *retry_alloc_r1); /* set by prepare_retry_alloc()
#ifdef JIT_USE_FP_OPS
THREAD_LOCAL_DECL(double scheme_jit_save_fp);
THREAD_LOCAL_DECL(double scheme_jit_save_fp2);
#endif
static void *prepare_retry_alloc(void *p, void *p2)