From 2dd59a706c121c012f81c939c2e89f41ce12cc6f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Feb 2021 08:58:57 -0700 Subject: [PATCH] bc: unbreak JIT --- racket/src/bc/src/jitinline.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/src/bc/src/jitinline.c b/racket/src/bc/src/jitinline.c index 2a8a1c629c..4dbfcbbe14 100644 --- a/racket/src/bc/src/jitinline.c +++ b/racket/src/bc/src/jitinline.c @@ -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;