gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-08 07:34:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

FOLD (base+k)+(idx*sz)+ofs ==> (base+idx*sz)+(ofs+k).

Browse Source
This commit is contained in:
Mike Pall 2010-12-12 21:07:23 +01:00
parent a403cb13e4
commit a22ea8898e
1 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/lj_crecord.c
View File

@ -304,6 +304,27 @@ doconv:
/* -- C data metamethods -------------------------------------------------- */ /* -- C data metamethods -------------------------------------------------- */
/* This would be rather difficult in FOLD, so do it here:
** (base+k)+(idx*sz)+ofs ==> (base+idx*sz)+(ofs+k)
** (base+(idx+k)*sz)+ofs ==> (base+idx*sz)+(ofs+k*sz)
*/
static TRef crec_reassoc_ofs(jit_State *J, TRef tr, ptrdiff_t *ofsp, MSize sz)
{
IRIns *ir = IR(tref_ref(tr));
if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) &&
ir->o == IR_ADD && irref_isk(ir->op2)) {
IRIns *irk = IR(ir->op2);
tr = ir->op1;
#if LJ_64
if (irk->o == IR_KINT64)
*ofsp += (ptrdiff_t)ir_kint64(irk)->u64 * sz;
else
#endif
*ofsp += (ptrdiff_t)irk->i * sz;
}
return tr;
}
void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd) void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd)
{ {
TRef idx, ptr = J->base[0]; TRef idx, ptr = J->base[0];
@ -333,22 +354,9 @@ void LJ_FASTCALL recff_cdata_index(jit_State *J, RecordFFData *rd)
#endif #endif
if (ctype_ispointer(ct->info)) { if (ctype_ispointer(ct->info)) {
ptrdiff_t sz = (ptrdiff_t)lj_ctype_size(cts, (sid = ctype_cid(ct->info))); ptrdiff_t sz = (ptrdiff_t)lj_ctype_size(cts, (sid = ctype_cid(ct->info)));
IRIns *ir = IR(tref_ref(idx)); idx = crec_reassoc_ofs(J, idx, &ofs, sz);
if (LJ_LIKELY(J->flags & JIT_F_OPT_FOLD) &&
ir->o == IR_ADD && irref_isk(ir->op2)) {
IRIns *irk = IR(ir->op2);
idx = ir->op1;
/* This would be rather difficult in FOLD, so do it here:
** (base+(idx+k)*sz)+ofs ==> (base+idx*sz)+(ofs+k*sz)
*/
#if LJ_64
if (irk->o == IR_KINT64)
ofs += (ptrdiff_t)ir_kint64(irk)->u64 * sz;
else
#endif
ofs += (ptrdiff_t)irk->i * sz;
}
idx = emitir(IRT(IR_MUL, IRT_INTP), idx, lj_ir_kintp(J, sz)); idx = emitir(IRT(IR_MUL, IRT_INTP), idx, lj_ir_kintp(J, sz));
ptr = crec_reassoc_ofs(J, ptr, &ofs, 1);
ptr = emitir(IRT(IR_ADD, IRT_PTR), idx, ptr); ptr = emitir(IRT(IR_ADD, IRT_PTR), idx, ptr);
} }
} else if (tref_isstr(idx)) { } else if (tref_isstr(idx)) {