qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-26 14:20:59 +00:00
Code Issues Projects Releases Packages Wiki Activity

expr.h:

Browse source 
get_type and extract_type prototypes and add extern for type_names
emit.c:
	use extract_type instead of get_type
expr.c:
	get_type now returns the type pointer rather than the qc type enum.
	extract_type uses get_type to return the qc type enum.
	make type_names global
	use get_type instead of ex_expr/ex_def to cover more cases
	clean up function call/return processing as a result of get_type
pr_opcode.c:
	use opcode_priority_type_table_ab when var_c is null and a minor
	cleanup in PR_Opcode_Find
This commit is contained in:
Bill Currie 2001-10-02 18:55:52 +00:00
parent fcdc975bdd
commit dcb51dc586
4 changed files with 51 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tools/qfcc/include/expr.h
View file

@ -70,8 +70,10 @@ typedef struct expr_s {
extern etype_t qc_types[]; extern etype_t qc_types[];
extern struct type_s *types[]; extern struct type_s *types[];
extern expr_type expr_types[]; extern expr_type expr_types[];
extern const char *type_names[];
etype_t get_type (expr_t *e); type_t *get_type (expr_t *e);
etype_t extract_type (expr_t *e);
expr_t *new_expr (void); expr_t *new_expr (void);
expr_t *new_label_expr (void); expr_t *new_label_expr (void);

4
tools/qfcc/source/emit.c
View file

@ -142,7 +142,7 @@ emit_function_call (expr_t *e, def_t *dest)
for (earg = e->e.expr.e2; earg; earg = earg->next) { for (earg = e->e.expr.e2; earg; earg = earg->next) {
ind--; ind--;
parm = def_parms[ind]; parm = def_parms[ind];
parm.type = types[get_type (earg)]; parm.type = types[extract_type (earg)];
arg = emit_sub_expr (earg, &parm); arg = emit_sub_expr (earg, &parm);
if (earg->type != ex_expr && earg->type != ex_uexpr) { if (earg->type != ex_expr && earg->type != ex_uexpr) {
op = PR_Opcode_Find ("=", 5, arg, &parm, &def_void); op = PR_Opcode_Find ("=", 5, arg, &parm, &def_void);
@ -336,7 +336,7 @@ emit_sub_expr (expr_t *e, def_t *dest)
} else if (e->e.expr.op == '-') { } else if (e->e.expr.op == '-') {
static expr_t zero; static expr_t zero;
zero.type = expr_types[get_type (e->e.expr.e1)]; zero.type = expr_types[extract_type (e->e.expr.e1)];
operator = "-"; operator = "-";
priority = 3; priority = 3;

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

@ -88,7 +88,7 @@ expr_type expr_types[] = {
ex_integer, // ev_integer ex_integer, // ev_integer
}; };
static const char *type_names[] = { const char *type_names[] = {
"void", "void",
"string", "string",
"float", "float",
@ -101,23 +101,23 @@ static const char *type_names[] = {
"int", "int",
}; };
etype_t type_t *
get_type (expr_t *e) get_type (expr_t *e)
{ {
switch (e->type) { switch (e->type) {
case ex_label: case ex_label:
return ev_type_count; // something went very wrong return 0; // something went very wrong
case ex_block: case ex_block:
if (e->e.block.result) if (e->e.block.result)
return get_type (e->e.block.result); return get_type (e->e.block.result);
return ev_void; return &type_void;
case ex_expr: case ex_expr:
case ex_uexpr: case ex_uexpr:
return e->e.expr.type->type; return e->e.expr.type;
case ex_def: case ex_def:
return e->e.def->type->type; return e->e.def->type;
case ex_temp: case ex_temp:
return e->e.temp.type->type; return e->e.temp.type;
case ex_integer: case ex_integer:
if (options.version == PROG_ID_VERSION) { if (options.version == PROG_ID_VERSION) {
e->type = ex_float; e->type = ex_float;
@ -132,8 +132,17 @@ get_type (expr_t *e)
case ex_func: case ex_func:
case ex_pointer: case ex_pointer:
case ex_quaternion: case ex_quaternion:
return qc_types[e->type]; return types[qc_types[e->type]];
} }
return 0;
}
etype_t
extract_type (expr_t *e)
{
type_t *type = get_type (e);
if (type)
return type->type;
return ev_type_count; return ev_type_count;
} }
@ -225,8 +234,8 @@ type_mismatch (expr_t *e1, expr_t *e2, int op)
{ {
etype_t t1, t2; etype_t t1, t2;
t1 = get_type (e1); t1 = extract_type (e1);
t2 = get_type (e2); t2 = extract_type (e2);
return error (e1, "type mismatch: %s %s %s", return error (e1, "type mismatch: %s %s %s",
type_names[t1], get_op_string (op), type_names[t2]); type_names[t1], get_op_string (op), type_names[t2]);
@ -693,8 +702,8 @@ binary_const (int op, expr_t *e1, expr_t *e2)
etype_t t1, t2; etype_t t1, t2;
//expr_t *e; //expr_t *e;
t1 = get_type (e1); t1 = extract_type (e1);
t2 = get_type (e2); t2 = extract_type (e2);
if (t1 == t2) { if (t1 == t2) {
return do_op[t1](op, e1, e2); return do_op[t1](op, e1, e2);
@ -709,8 +718,8 @@ field_expr (expr_t *e1, expr_t *e2)
etype_t t1, t2; etype_t t1, t2;
expr_t *e; expr_t *e;
t1 = get_type (e1); t1 = extract_type (e1);
t2 = get_type (e2); t2 = extract_type (e2);
if (t1 != ev_entity || t2 != ev_field) { if (t1 != ev_entity || t2 != ev_field) {
return error (e1, "type missmatch for ."); return error (e1, "type missmatch for .");
@ -731,7 +740,7 @@ test_expr (expr_t *e, int test)
if (!test) if (!test)
return unary_expr ('!', e); return unary_expr ('!', e);
switch (get_type (e)) { switch (extract_type (e)) {
case ev_type_count: case ev_type_count:
error (e, "internal error"); error (e, "internal error");
abort (); abort ();
@ -811,8 +820,8 @@ binary_expr (int op, expr_t *e1, expr_t *e2)
e2 = test_expr (e2, true); e2 = test_expr (e2, true);
} }
t1 = get_type (e1); t1 = extract_type (e1);
t2 = get_type (e2); t2 = extract_type (e2);
if (t1 == ev_type_count || t2 == ev_type_count) { if (t1 == ev_type_count || t2 == ev_type_count) {
error (e1, "internal error"); error (e1, "internal error");
abort (); abort ();
@ -1014,8 +1023,7 @@ unary_expr (int op, expr_t *e)
case ex_temp: case ex_temp:
{ {
expr_t *n = new_unary_expr (op, e); expr_t *n = new_unary_expr (op, e);
type_t *t = e->type == ex_expr ? e->e.expr.type type_t *t = get_type (e);
: e->e.def->type;
if (t != &type_integer && t != &type_float) if (t != &type_integer && t != &type_float)
return error (e, "invalid type for unary ~"); return error (e, "invalid type for unary ~");
n->e.expr.type = t; n->e.expr.type = t;
@ -1084,7 +1092,7 @@ function_expr (expr_t *e1, expr_t *e2)
expr_t *call; expr_t *call;
expr_t *err = 0; expr_t *err = 0;
t1 = get_type (e1); t1 = extract_type (e1);
if (t1 != ev_func) { if (t1 != ev_func) {
if (e1->type == ex_def) if (e1->type == ex_def)
@ -1125,18 +1133,11 @@ function_expr (expr_t *e1, expr_t *e2)
} }
} }
for (i = parm_count, e = e2; i > 0; i--, e = e->next) { for (i = parm_count, e = e2; i > 0; i--, e = e->next) {
type_t *t; type_t *t = get_type (e);
if (e->type == ex_expr) {
t = e->e.expr.type; if (ftype->parm_types[i - 1] == &type_float && e->type == ex_integer) {
} else if (e->type == ex_def) { e->type = ex_float;
t = e->e.def->type; e->e.float_val = e->e.integer_val;
} else {
if (ftype->parm_types[i - 1] == &type_float
&& e->type == ex_integer) {
e->type = ex_float;
e->e.float_val = e->e.integer_val;
}
t = types[get_type (e)];
} }
if (ftype->num_parms != -1) { if (ftype->num_parms != -1) {
if (t != ftype->parm_types[i - 1]) if (t != ftype->parm_types[i - 1])
@ -1193,20 +1194,13 @@ return_expr (function_t *f, expr_t *e)
if (f->def->type->aux_type != &type_void) if (f->def->type->aux_type != &type_void)
return error (e, "return from non-void function without a value"); return error (e, "return from non-void function without a value");
} else { } else {
type_t *t; type_t *t = get_type (e);
if (f->def->type->aux_type == &type_void) if (f->def->type->aux_type == &type_void)
return error (e, "returning a value for a void function"); return error (e, "returning a value for a void function");
if (e->type == ex_expr) { if (f->def->type->aux_type == &type_float && e->type == ex_integer) {
t = e->e.expr.type; e->type = ex_float;
} else if (e->type == ex_def) { e->e.float_val = e->e.integer_val;
t = e->e.def->type;
} else {
if (f->def->type->aux_type == &type_float
&& e->type == ex_integer) {
e->type = ex_float;
e->e.float_val = e->e.integer_val;
}
t = types[get_type (e)];
} }
if (f->def->type->aux_type != t) if (f->def->type->aux_type != t)
return error (e, "type mismatch for return value of %s", return error (e, "type mismatch for return value of %s",
@ -1219,8 +1213,8 @@ expr_t *
conditional_expr (expr_t *cond, expr_t *e1, expr_t *e2) conditional_expr (expr_t *cond, expr_t *e1, expr_t *e2)
{ {
expr_t *block = new_block_expr (); expr_t *block = new_block_expr ();
type_t *type1 = types[get_type (e1)]; type_t *type1 = types[extract_type (e1)];
type_t *type2 = types[get_type (e2)]; type_t *type2 = types[extract_type (e2)];
expr_t *tlabel = new_label_expr (); expr_t *tlabel = new_label_expr ();
expr_t *elabel = new_label_expr (); expr_t *elabel = new_label_expr ();

8
tools/qfcc/source/pr_opcode.c
View file

@ -120,10 +120,14 @@ PR_Opcode_Find (const char *name, int priority, def_t *var_a, def_t *var_b, def_
tab = &opcode_priority_type_table_ab; tab = &opcode_priority_type_table_ab;
else else
tab = &opcode_priority_type_table_abc; tab = &opcode_priority_type_table_abc;
return Hash_FindElement (*tab, &op); } else if (var_a && var_b) {
op.type_a = var_a->type->type;
op.type_b = var_b->type->type;
tab = &opcode_priority_type_table_ab;
} else { } else {
return Hash_FindElement (opcode_priority_table, &op); tab = &opcode_priority_table;
} }
return Hash_FindElement (*tab, &op);
} }
void void