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

fix non-extflonum build

Browse Source
This commit is contained in:
Matthew Flatt 2013-02-19 18:15:48 -07:00
parent 97c34905c1
commit 535072086b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2925,16 +2925,16 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
} else if (IS_NAMED_PRIM(rator, "flvector-ref")
|| MZ_LONG_DOUBLE_AND(IS_NAMED_PRIM(rator, "extflvector-ref"))) {
which = 3;
base_offset = ((int)&SCHEME_FLVEC_ELS(0x0));
if (ubs.unbox) {
if (jitter->unbox_depth)
scheme_signal_error("internal error: bad depth for flvector-ref");
}
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;
base_offset = ((int)&SCHEME_EXTFLVEC_ELS(0x0));
}
MZ_FPUSEL_STMT(extfl,
base_offset = ((int)&SCHEME_EXTFLVEC_ELS(0x0)),
base_offset = ((int)&SCHEME_FLVEC_ELS(0x0)));
} else if (IS_NAMED_PRIM(rator, "unsafe-struct*-ref")) {
which = 0;
unsafe = 1;