zdoom/gzdoom-gles
0
0
Fork 0
mirror of https://github.com/ZDoom/gzdoom-gles.git synced 2024-11-11 07:12:16 +00:00
Code Issues Projects Releases Packages Wiki Activity

- partial optimization of chained comparisons.

Browse source
This commit is contained in:
Christoph Oelckers 2016-12-02 01:16:32 +01:00
parent fb7a8fb553
commit 4dd22d74dd
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/scripting/codegeneration/codegen.cpp
View file

@ -4176,23 +4176,19 @@ void FxBinaryLogical::Flatten()
ExpEmit FxBinaryLogical::Emit(VMFunctionBuilder *build) ExpEmit FxBinaryLogical::Emit(VMFunctionBuilder *build)
{ {
TArray<size_t> patchspots; TArray<size_t> yes, no;
bool invert = Operator == TK_OrOr;
int zero = build->GetConstantInt(0);
for (unsigned i = 0; i < list.Size(); i++) for (unsigned i = 0; i < list.Size(); i++)
{ {
assert(list[i]->ValueType->GetRegType() == REGT_INT); list[i]->EmitCompare(build, invert, yes, no);
ExpEmit op1 = list[i]->Emit(build);
assert(!op1.Konst);
op1.Free(build);
build->Emit(OP_EQ_K, (Operator == TK_AndAnd) ? 1 : 0, op1.RegNum, zero);
patchspots.Push(build->Emit(OP_JMP, 0, 0, 0));
} }
build->BackpatchListToHere(yes);
ExpEmit to(build, REGT_INT); ExpEmit to(build, REGT_INT);
build->Emit(OP_LI, to.RegNum, (Operator == TK_AndAnd) ? 1 : 0); build->Emit(OP_LI, to.RegNum, (Operator == TK_AndAnd) ? 1 : 0);
build->Emit(OP_JMP, 1); build->Emit(OP_JMP, 1);
build->BackpatchListToHere(no);
auto ctarget = build->Emit(OP_LI, to.RegNum, (Operator == TK_AndAnd) ? 0 : 1); auto ctarget = build->Emit(OP_LI, to.RegNum, (Operator == TK_AndAnd) ? 0 : 1);
for (auto addr : patchspots) build->Backpatch(addr, ctarget);
list.DeleteAndClear(); list.DeleteAndClear();
list.ShrinkToFit(); list.ShrinkToFit();
return to; return to;
@ -4685,7 +4681,13 @@ FxExpression *FxAbs::Resolve(FCompileContext &ctx)
CHECKRESOLVED(); CHECKRESOLVED();
SAFE_RESOLVE(val, ctx); SAFE_RESOLVE(val, ctx);
if (val->ValueType == TypeBool) // abs of a boolean is always the same as the operand
{
auto v = val;
val = nullptr;
delete this;
return v;
}
if (!val->IsNumeric()) if (!val->IsNumeric())
{ {
ScriptPosition.Message(MSG_ERROR, "Numeric type expected"); ScriptPosition.Message(MSG_ERROR, "Numeric type expected");