mirror of
https://github.com/nzp-team/fteqw.git
synced 2024-11-10 14:42:13 +00:00
Heavier optimisations (and a couple of debugging warnings)
git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@381 fc73d0e0-1445-4013-8a0c-d673dee63da5
This commit is contained in:
Spoike
parent
9dfffde72b
commit
d5ce9a1c68
1 changed files with 113 additions and 29 deletions
|
|
@ -674,6 +674,7 @@ pbool QCC_OPCodeValid(QCC_opcode_t *op)
|
|||
}
|
||||
|
||||
QCC_def_t *QCC_PR_Expression (int priority);
|
||||
int QCC_AStatementJumpsTo(int targ, int first, int last);
|
||||
|
||||
QCC_def_t junkdef;
|
||||
|
||||
|
|
@ -4231,7 +4232,12 @@ void QCC_PR_ParseStatement (void)
|
|||
junkdef.type = type_float;
|
||||
QCC_FreeTemp(QCC_PR_Statement (&pr_opcodes[OP_GOTO], &junkdef, 0, (QCC_dstatement_t **)0xffffffff));
|
||||
if (patch1)
|
||||
patch1->b = &statements[numstatements] - patch1;
|
||||
{
|
||||
if (patch1->op == OP_GOTO)
|
||||
patch1->a = &statements[numstatements] - patch1;
|
||||
else
|
||||
patch1->b = &statements[numstatements] - patch1;
|
||||
}
|
||||
|
||||
if (breaks != num_breaks)
|
||||
{
|
||||
|
|
@ -4258,8 +4264,8 @@ void QCC_PR_ParseStatement (void)
|
|||
int old_numstatements;
|
||||
int numtemp, i;
|
||||
|
||||
QCC_dstatement_t temp[32];
|
||||
int linenum[32];
|
||||
QCC_dstatement_t temp[sizeof(linenum)/sizeof(linenum[0])];
|
||||
|
||||
continues = num_continues;
|
||||
breaks = num_breaks;
|
||||
|
|
@ -4272,26 +4278,39 @@ void QCC_PR_ParseStatement (void)
|
|||
}
|
||||
|
||||
patch2 = &statements[numstatements];
|
||||
conditional = true;
|
||||
e = QCC_PR_Expression(TOP_PRIORITY);
|
||||
conditional = false;
|
||||
QCC_PR_Expect(";");
|
||||
|
||||
old_numstatements = numstatements;
|
||||
QCC_FreeTemp(QCC_PR_Expression(TOP_PRIORITY));
|
||||
numtemp = numstatements - old_numstatements;
|
||||
if (numtemp > 32)
|
||||
QCC_PR_ParseError(ERR_TOOCOMPLEX, "Update expression too large");
|
||||
numstatements = old_numstatements;
|
||||
for (i = 0 ; i < numtemp ; i++)
|
||||
if (!QCC_PR_Check(";"))
|
||||
{
|
||||
linenum[i] = statement_linenums[numstatements + i];
|
||||
temp[i] = statements[numstatements + i];
|
||||
conditional = true;
|
||||
e = QCC_PR_Expression(TOP_PRIORITY);
|
||||
conditional = false;
|
||||
QCC_PR_Expect(";");
|
||||
}
|
||||
else
|
||||
e = NULL;
|
||||
|
||||
QCC_PR_Expect(")");
|
||||
QCC_FreeTemp(QCC_PR_Statement(&pr_opcodes[OP_IFNOT], e, 0, NULL));
|
||||
patch1 = &statements[numstatements-1];
|
||||
if (!QCC_PR_Check(")"))
|
||||
{
|
||||
old_numstatements = numstatements;
|
||||
QCC_FreeTemp(QCC_PR_Expression(TOP_PRIORITY));
|
||||
numtemp = numstatements - old_numstatements;
|
||||
if (numtemp > sizeof(linenum)/sizeof(linenum[0]))
|
||||
QCC_PR_ParseError(ERR_TOOCOMPLEX, "Update expression too large");
|
||||
numstatements = old_numstatements;
|
||||
for (i = 0 ; i < numtemp ; i++)
|
||||
{
|
||||
linenum[i] = statement_linenums[numstatements + i];
|
||||
temp[i] = statements[numstatements + i];
|
||||
}
|
||||
|
||||
QCC_PR_Expect(")");
|
||||
}
|
||||
else
|
||||
numtemp = 0;
|
||||
|
||||
if (e)
|
||||
QCC_FreeTemp(QCC_PR_Statement(&pr_opcodes[OP_IFNOT], e, 0, &patch1));
|
||||
else
|
||||
patch1 = NULL;
|
||||
QCC_PR_ParseStatement();
|
||||
patch3 = &statements[numstatements];
|
||||
for (i = 0 ; i < numtemp ; i++)
|
||||
|
|
@ -4300,7 +4319,8 @@ void QCC_PR_ParseStatement (void)
|
|||
statements[numstatements++] = temp[i];
|
||||
}
|
||||
QCC_PR_SimpleStatement(OP_GOTO, patch2 - &statements[numstatements], 0, 0);
|
||||
patch1->b = &statements[numstatements] - patch1;
|
||||
if (patch1)
|
||||
patch1->b = &statements[numstatements] - patch1;
|
||||
|
||||
if (breaks != num_breaks)
|
||||
{
|
||||
|
|
@ -4435,11 +4455,14 @@ void QCC_PR_ParseStatement (void)
|
|||
if (QCC_PR_Check ("else"))
|
||||
{
|
||||
int lastwasreturn;
|
||||
lastwasreturn = 0;//statements[numstatements-1].op == OP_RETURN || statements[numstatements-1].op == OP_DONE;
|
||||
lastwasreturn = statements[numstatements-1].op == OP_RETURN || statements[numstatements-1].op == OP_DONE;
|
||||
|
||||
if (lastwasreturn && opt_compound_jumps)
|
||||
//nothing jumped to it, so it's not a problem!
|
||||
if (lastwasreturn && opt_compound_jumps && !QCC_AStatementJumpsTo(numstatements, patch1-statements, numstatements))
|
||||
{
|
||||
// QCC_PR_ParseWarning(0, "optimised the else");
|
||||
optres_compound_jumps++;
|
||||
patch1->b = &statements[numstatements] - patch1;
|
||||
QCC_PR_ParseStatement ();
|
||||
}
|
||||
else
|
||||
|
|
@ -5188,6 +5211,7 @@ void QCC_CompoundJumps(int first, int last)
|
|||
//jumps to jumps are reordered so they become jumps to the final target.
|
||||
int statement;
|
||||
int st;
|
||||
int infloop;
|
||||
for (st = first; st < last; st++)
|
||||
{
|
||||
if (pr_opcodes[statements[st].op].type_a == NULL)
|
||||
|
|
@ -5201,8 +5225,14 @@ void QCC_CompoundJumps(int first, int last)
|
|||
statements[st].c = statements[statement].c;
|
||||
optres_compound_jumps++;
|
||||
}
|
||||
infloop = 1000;
|
||||
while (statements[statement].op == OP_GOTO)
|
||||
{
|
||||
if (!infloop--)
|
||||
{
|
||||
QCC_PR_ParseWarning(0, "Infinate loop detected");
|
||||
break;
|
||||
}
|
||||
statements[st].a = (statement+statements[statement].a - st);
|
||||
statement = st + (signed)statements[st].a;
|
||||
optres_compound_jumps++;
|
||||
|
|
@ -5211,8 +5241,14 @@ void QCC_CompoundJumps(int first, int last)
|
|||
if (pr_opcodes[statements[st].op].type_b == NULL)
|
||||
{
|
||||
statement = st + (signed)statements[st].b;
|
||||
infloop = 1000;
|
||||
while (statements[statement].op == OP_GOTO)
|
||||
{
|
||||
if (!infloop--)
|
||||
{
|
||||
QCC_PR_ParseWarning(0, "Infinate loop detected");
|
||||
break;
|
||||
}
|
||||
statements[st].b = (statement+statements[statement].a - st);
|
||||
statement = st + (signed)statements[st].b;
|
||||
optres_compound_jumps++;
|
||||
|
|
@ -5221,8 +5257,14 @@ void QCC_CompoundJumps(int first, int last)
|
|||
if (pr_opcodes[statements[st].op].type_c == NULL)
|
||||
{
|
||||
statement = st + (signed)statements[st].c;
|
||||
infloop = 1000;
|
||||
while (statements[statement].op == OP_GOTO)
|
||||
{
|
||||
if (!infloop--)
|
||||
{
|
||||
QCC_PR_ParseWarning(0, "Infinate loop detected");
|
||||
break;
|
||||
}
|
||||
statements[st].c = (statement+statements[statement].a - st);
|
||||
statement = st + (signed)statements[st].c;
|
||||
optres_compound_jumps++;
|
||||
|
|
@ -5248,15 +5290,19 @@ void QCC_CheckForDeadAndMissingReturns(int first, int last, int rettype)
|
|||
|
||||
for (st = first; st < last; st++)
|
||||
{
|
||||
if (statements[st].op == OP_RETURN)
|
||||
if (statements[st].op == OP_RETURN || statements[st].op == OP_GOTO)
|
||||
{
|
||||
st++;
|
||||
if (st == last)
|
||||
continue; //erm... end of function doesn't count as unreachable.
|
||||
|
||||
/*
|
||||
if (statements[st].op == OP_GOTO) //inefficient compiler, we can ignore this.
|
||||
continue;
|
||||
|
||||
if (statements[st].op == OP_DONE) //inefficient compiler, we can ignore this.
|
||||
continue;
|
||||
if (statements[st].op == OP_RETURN) //inefficient compiler, we can ignore this.
|
||||
continue;
|
||||
*/
|
||||
|
||||
//make sure something goes to just after this return.
|
||||
for (st2 = first; st2 < last; st2++)
|
||||
|
|
@ -5312,6 +5358,44 @@ void QCC_CheckForDeadAndMissingReturns(int first, int last, int rettype)
|
|||
}
|
||||
}
|
||||
}
|
||||
|
||||
int QCC_AStatementJumpsTo(int targ, int first, int last)
|
||||
{
|
||||
int st;
|
||||
for (st = first; st < last; st++)
|
||||
{
|
||||
if (pr_opcodes[statements[st].op].type_a == NULL)
|
||||
{
|
||||
if (st + (signed)statements[st].a == targ)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
}
|
||||
if (pr_opcodes[statements[st].op].type_b == NULL)
|
||||
{
|
||||
if (st + (signed)statements[st].b == targ)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
}
|
||||
if (pr_opcodes[statements[st].op].type_c == NULL)
|
||||
{
|
||||
if (st + (signed)statements[st].c == targ)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for (st = 0; st < num_labels; st++) //assume it's used.
|
||||
{
|
||||
if (pr_labels[st].statementno == targ)
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
return false;
|
||||
}
|
||||
/*
|
||||
//goes through statements, if it sees a matching statement earlier, it'll strim out the current.
|
||||
void QCC_CommonSubExpressionRemoval(int first, int last)
|
||||
|
|
@ -5715,13 +5799,13 @@ QCC_function_t *QCC_PR_ParseImmediateStatements (QCC_type_t *type)
|
|||
else
|
||||
optres_return_only++;
|
||||
|
||||
QCC_CheckForDeadAndMissingReturns(f->code, numstatements, type->aux_type->type);
|
||||
|
||||
if (opt_compound_jumps)
|
||||
QCC_CompoundJumps(f->code, numstatements);
|
||||
// if (opt_comexprremoval)
|
||||
// QCC_CommonSubExpressionRemoval(f->code, numstatements);
|
||||
|
||||
QCC_CheckForDeadAndMissingReturns(f->code, numstatements, type->aux_type->type);
|
||||
|
||||
|
||||
QCC_RemapLockedTemps(f->code, numstatements);
|
||||
locals_end = numpr_globals;
|
||||
|
|
|
|||
Loading…
Reference in a new issue