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

racket/extflonum: fix JIT-inlined `extflvector-ref' in 32-bit mode

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-19 16:40:51 -07:00
parent 0afcda2a5a
commit 97c34905c1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/jitinline.c
View File

@ -2931,8 +2931,10 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
scheme_signal_error("internal error: bad depth for flvector-ref"); scheme_signal_error("internal error: bad depth for flvector-ref");
} }
can_chaperone = 0; can_chaperone = 0;
if (MZ_LONG_DOUBLE_AND(IS_NAMED_PRIM(rator, "extflvector-ref"))) if (MZ_LONG_DOUBLE_AND(IS_NAMED_PRIM(rator, "extflvector-ref"))) {
extfl = 1; extfl = 1;
base_offset = ((int)&SCHEME_EXTFLVEC_ELS(0x0));
}
} else if (IS_NAMED_PRIM(rator, "unsafe-struct*-ref")) { } else if (IS_NAMED_PRIM(rator, "unsafe-struct*-ref")) {
which = 0; which = 0;
unsafe = 1; unsafe = 1;