fte/fteqw
2
0
Fork 1
Code Issues Pull requests Projects Releases Packages Wiki Activity

made it not so wasteful with temps... it was shocking... And fixed up some defs parsing code.

Browse source 
git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@399 fc73d0e0-1445-4013-8a0c-d673dee63da5
This commit is contained in:
Spoike 2004-11-06 14:54:28 +00:00
parent 1378564dcd
commit 85ebd04b50
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
engine/qclib/qcc_pr_comp.c
View file

@ -1651,6 +1651,7 @@ QCC_def_t *QCC_PR_Statement ( QCC_opcode_t *op, QCC_def_t *var_a, QCC_def_t *var
} }
statement->a = var_a ? var_a->ofs : 0; statement->a = var_a ? var_a->ofs : 0;
statement->b = var_c ? var_c->ofs : 0; statement->b = var_c ? var_c->ofs : 0;
QCC_FreeTemp(var_c);
var_c = QCC_GetTemp(*op->type_c); var_c = QCC_GetTemp(*op->type_c);
statement->c = var_c ? var_c->ofs : 0; statement->c = var_c ? var_c->ofs : 0;
@ -7384,21 +7385,26 @@ void QCC_PR_ParseDefs (char *classname)
d = QCC_PR_GetDef (NULL, pr_token, pr_scope, false, 0); d = QCC_PR_GetDef (NULL, pr_token, pr_scope, false, 0);
if (!d) if (!d)
QCC_PR_ParseError (ERR_NOTDEFINED, "initialisation name not defined : %s", pr_token); QCC_PR_ParseError (ERR_NOTDEFINED, "initialisation name not defined : %s", pr_token);
if (!d->constant)
{
QCC_PR_ParseWarning (WARN_NOTCONSTANT, "initialisation name not a constant : %s", pr_token);
QCC_PR_ParsePrintDef(WARN_NOTCONSTANT, d);
}
memcpy (def, d, sizeof(*d)); memcpy (def, d, sizeof(*d));
def->name = name; def->name = name;
def->initialized = true; def->initialized = true;
} }
QCC_PR_Lex (); constant = true;
continue;
} }
else if (pr_token_type != tt_immediate) else if (pr_token_type != tt_immediate)
QCC_PR_ParseError (ERR_BADIMMEDIATETYPE, "not an immediate for %s - %s", name, pr_token); QCC_PR_ParseError (ERR_BADIMMEDIATETYPE, "not an immediate for %s - %s", name, pr_token);
else if (pr_immediate_type->type != type->type) else if (pr_immediate_type->type != type->type)
QCC_PR_ParseError (ERR_BADIMMEDIATETYPE, "wrong immediate type for %s - %s", name, pr_token); QCC_PR_ParseError (ERR_BADIMMEDIATETYPE, "wrong immediate type for %s - %s", name, pr_token);
else
memcpy (qcc_pr_globals + def->ofs, &pr_immediate, 4*type_size[pr_immediate_type->type]);
def->constant = constant; def->constant = constant;
def->initialized = 1; def->initialized = true;
memcpy (qcc_pr_globals + def->ofs, &pr_immediate, 4*type_size[pr_immediate_type->type]);
QCC_PR_Lex (); QCC_PR_Lex ();
} }