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

bc: unbreak JIT

Browse Source
This commit is contained in:
Matthew Flatt 2021-02-13 08:58:57 -07:00
parent 0523a5311c
commit 2dd59a706c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/bc/src/jitinline.c
View File

@ -757,7 +757,8 @@ static int generate_inlined_struct_op(int kind, mz_jit_state *jitter,
int pos, tpos, jkind, authentic;
tpos = ((Scheme_Struct_Type *)((Scheme_Primitive_Closure *)inline_rator)->val[0])->name_pos;
authentic = ((Scheme_Struct_Type *)((Scheme_Primitive_Closure *)inline_rator)->val[0])->authentic;
authentic = (((Scheme_Struct_Type *)((Scheme_Primitive_Closure *)inline_rator)->val[0])->more_flags
& STRUCT_TYPE_FLAG_AUTHENTIC);
if (kind == INLINE_STRUCT_PROC_PRED) {
pos = 0;