diff options
Diffstat (limited to 'src/lj_record.c')
-rw-r--r-- | src/lj_record.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/lj_record.c b/src/lj_record.c index 0e14382c..dfcc3f65 100644 --- a/src/lj_record.c +++ b/src/lj_record.c | |||
@@ -1254,10 +1254,16 @@ TRef lj_record_idx(jit_State *J, RecordIndex *ix) | |||
1254 | lua_assert(!hasmm); | 1254 | lua_assert(!hasmm); |
1255 | if (oldv == niltvg(J2G(J))) { /* Need to insert a new key. */ | 1255 | if (oldv == niltvg(J2G(J))) { /* Need to insert a new key. */ |
1256 | TRef key = ix->key; | 1256 | TRef key = ix->key; |
1257 | if (tref_isinteger(key)) /* NEWREF needs a TValue as a key. */ | 1257 | if (tref_isinteger(key)) { /* NEWREF needs a TValue as a key. */ |
1258 | key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); | 1258 | key = emitir(IRTN(IR_CONV), key, IRCONV_NUM_INT); |
1259 | else if (tref_isnumber(key) && tref_isk(key) && tvismzero(&ix->keyv)) | 1259 | } else if (tref_isnum(key)) { |
1260 | key = lj_ir_knum_zero(J); /* Canonicalize -0.0 to +0.0. */ | 1260 | if (tref_isk(key)) { |
1261 | if (tvismzero(&ix->keyv)) | ||
1262 | key = lj_ir_knum_zero(J); /* Canonicalize -0.0 to +0.0. */ | ||
1263 | } else { | ||
1264 | emitir(IRTG(IR_EQ, IRT_NUM), key, key); /* Check for !NaN. */ | ||
1265 | } | ||
1266 | } | ||
1261 | xref = emitir(IRT(IR_NEWREF, IRT_P32), ix->tab, key); | 1267 | xref = emitir(IRT(IR_NEWREF, IRT_P32), ix->tab, key); |
1262 | keybarrier = 0; /* NEWREF already takes care of the key barrier. */ | 1268 | keybarrier = 0; /* NEWREF already takes care of the key barrier. */ |
1263 | } | 1269 | } |