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

repair JIT-inlined hash-ref

Browse Source 
Direct of `JIT_R0` instead of `jit_retval` is wrong on PowerPC.
This commit is contained in:
Matthew Flatt 2018-04-15 04:52:16 -06:00
parent abb601558d
commit 82517622c7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5553,7 +5553,7 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
} else if (IS_NAMED_PRIM(rator, "hash-ref")) {
GC_CAN_IGNORE jit_insn *refdone0, *refdone, *refslow;
/* We only get here is we have three arguments with the last as a
/* We only get here if we have three arguments with the last as a
non-procedure constant */
scheme_generate_two_args(app->args[1], app->args[2], jitter, 1, 3);
@ -5586,7 +5586,7 @@ int scheme_generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
scheme_mz_load_retained(jitter, JIT_R2, app->args[3]);
(void)jit_calli(sjc.hash_ref_code);
jit_movr_p(dest, JIT_R0);
jit_retval(dest);
CHECK_LIMIT();
__START_SHORT_JUMPS__(1);