qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-01-31 05:00:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

function arg type checking with int->float /constant/ cooecion.

Browse source
This commit is contained in:
Bill Currie 2001-07-23 01:56:49 +00:00
parent c248372e20
commit 50fadb6866
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
tools/qfcc/source/expr.c
View file

@ -849,6 +849,7 @@ function_expr (expr_t *e1, expr_t *e2)
expr_t *e; expr_t *e;
int parm_count = 0; int parm_count = 0;
type_t *ftype; type_t *ftype;
int i;
t1 = get_type (e1); t1 = get_type (e1);
@ -884,11 +885,32 @@ function_expr (expr_t *e1, expr_t *e2)
return error (e1, "more than 8 parameters"); return error (e1, "more than 8 parameters");
} }
if (ftype->num_parms != -1) { if (ftype->num_parms != -1) {
expr_t *err = 0;
if (parm_count > ftype->num_parms) { if (parm_count > ftype->num_parms) {
return error (e1, "too many arguments"); return error (e1, "too many arguments");
} else if (parm_count < ftype->num_parms) { } else if (parm_count < ftype->num_parms) {
return error (e1, "too few arguments"); return error (e1, "too few arguments");
} }
for (i = 0, e = e2; i < parm_count; i++, e = e->next) {
type_t *t;
if (e->type == ex_expr) {
t = e->e.expr.type;
} else if (e->type == ex_def) {
t = e->e.def->type;
} else {
if (ftype->parm_types[i] == &type_float
&& e->type == ex_integer) {
e->type = ex_float;
e->e.float_val = e->e.integer_val;
}
t = types[get_type (e)];
}
if (t != ftype->parm_types[i])
err = error (e, "type mismatch for parameter %d of %s",
i + 1, e1->e.def->name);
}
if (err)
return err;
} }
e = new_binary_expr ('c', e1, e2); e = new_binary_expr ('c', e1, e2);
e->e.expr.type = ftype->aux_type; e->e.expr.type = ftype->aux_type;