eukara/fteqw
1
0
Fork 0
forked from fte/fteqw
Code Pull requests Activity

Revision 6270 was bad.

Browse source 
git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@6282 fc73d0e0-1445-4013-8a0c-d673dee63da5
This commit is contained in:
Spoike 2022-06-30 04:12:24 +00:00
parent c4b043d39f
commit 8705adfb86
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
engine/qclib/qcc_pr_comp.c
View file

@ -7068,7 +7068,7 @@ QCC_sref_t QCC_PR_GenerateFunctionCallRef (QCC_sref_t newself, QCC_sref_t func,
copyop[2] = OP_LOADA_V; copyop[2] = OP_LOADA_V;
copyop[1] = OP_LOADA_I64; copyop[1] = OP_LOADA_I64;
copyop[0] = OP_LOADA_F; copyop[0] = OP_LOADA_F;
copyop_idx = 0; //offset the base ref copyop_idx = -2; //offset the base ref
copyop_index = arglist[i]->index; copyop_index = arglist[i]->index;
copyop_index = QCC_SupplyConversion(copyop_index, ev_integer, true); copyop_index = QCC_SupplyConversion(copyop_index, ev_integer, true);
sref = arglist[i]->base; sref = arglist[i]->base;
@ -7089,6 +7089,11 @@ QCC_sref_t QCC_PR_GenerateFunctionCallRef (QCC_sref_t newself, QCC_sref_t func,
copyop[0] = OP_LOAD_F; copyop[0] = OP_LOAD_F;
copyop_index = arglist[i]->index; copyop_index = arglist[i]->index;
copyop_idx = -1; copyop_idx = -1;
if (!QCC_SRef_EvalConst(copyop_index))
{ //if its a variable then its probably not a proper field (which has extra field ref values following it). do the shitty thing and make assumptions about ordering. :(
copyop_index.cast = type_integer;
copyop_idx = OP_ADD_I;
}
sref = arglist[i]->base; sref = arglist[i]->base;
break; break;
case REF_POINTER: case REF_POINTER:
@ -7138,6 +7143,11 @@ QCC_sref_t QCC_PR_GenerateFunctionCallRef (QCC_sref_t newself, QCC_sref_t func,
newindex.ofs += ofs; newindex.ofs += ofs;
QCC_UnFreeTemp(copyop_index); QCC_UnFreeTemp(copyop_index);
} }
else if (copyop_idx == -2)
{ //with this mode, the base reference can just be updated. no mess with the index.
newindex = copyop_index;
QCC_UnFreeTemp(copyop_index);
}
else if (copyop_idx == OP_ADD_I) else if (copyop_idx == OP_ADD_I)
{ {
if (!copyop_index.cast) if (!copyop_index.cast)
@ -7238,7 +7248,15 @@ QCC_sref_t QCC_PR_GenerateFunctionCallRef (QCC_sref_t newself, QCC_sref_t func,
QCC_FreeTemp(copyop_index); QCC_FreeTemp(copyop_index);
} }
QCC_FreeTemp(newindex); QCC_FreeTemp(newindex);
QCC_PR_SimpleStatement(&pr_opcodes[copyop[asz-1]], src, newindex, fparm, false);
if (copyop_idx == -2)
{ //with this mode, the base reference can just be updated. no mess with the index.
src.ofs += ofs;
QCC_PR_SimpleStatement(&pr_opcodes[copyop[asz-1]], src, newindex, fparm, false);
src.ofs -= ofs;
}
else
QCC_PR_SimpleStatement(&pr_opcodes[copyop[asz-1]], src, newindex, fparm, false);
} }
ofs += asz; ofs += asz;