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

Convert complex types to a suitable low-level type.

Browse source 
This takes care of moving structures etc around.
This commit is contained in:
Bill Currie 2011-02-07 10:55:09 +09:00
parent b629c12b31
commit ef2ad46f7a
3 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tools/qfcc/include/type.h
View file

@ -116,6 +116,7 @@ extern struct symtab_s *quaternion_struct;
struct dstring_s;
etype_t low_level_type (type_t *type);
type_t *new_type (void);
void free_type (type_t *type);
void chain_type (type_t *type);

13
tools/qfcc/source/statements.c
View file

@ -420,7 +420,7 @@ expr_deref (sblock_t *sblock, expr_t *e, operand_t **op)
if (e->type == ex_uexpr && e->e.expr.op == '&'
&& e->e.expr.e1->type == ex_symbol) {
*op = new_operand (op_symbol);
(*op)->type = type->type;
(*op)->type = low_level_type (type);
(*op)->o.symbol = e->e.expr.e1->e.symbol;
}
return sblock;
@ -455,7 +455,7 @@ expr_expr (sblock_t *sblock, expr_t *e, operand_t **op)
sblock = statement_subexpr (sblock, e->e.expr.e2, &s->opb);
if (!*op) {
*op = new_operand (op_temp);
(*op)->type = e->e.expr.type->type;
(*op)->type = low_level_type (e->e.expr.type);
}
s->opc = *op;
sblock_add_statement (sblock, s);
@ -469,7 +469,7 @@ expr_cast (sblock_t *sblock, expr_t *e, operand_t **op)
{
if (!*op) {
(*op) = new_operand (op_temp);
(*op)->type = e->e.expr.type->type;
(*op)->type = low_level_type (e->e.expr.type);
}
sblock = statement_subexpr (sblock, e->e.expr.e1, op);
return sblock;
@ -498,10 +498,7 @@ static sblock_t *
expr_symbol (sblock_t *sblock, expr_t *e, operand_t **op)
{
*op = new_operand (op_symbol);
if (is_enum (e->e.symbol->type))
(*op)->type = type_default->type;
else
(*op)->type = e->e.symbol->type->type;
(*op)->type = low_level_type (e->e.symbol->type);
(*op)->o.symbol = e->e.symbol;
return sblock;
}
@ -511,7 +508,7 @@ expr_temp (sblock_t *sblock, expr_t *e, operand_t **op)
{
if (!e->e.temp.op) {
e->e.temp.op = new_operand (op_temp);
e->e.temp.op->type = e->e.temp.type->type;
e->e.temp.op->type = low_level_type (e->e.temp.type);
}
*op = e->e.temp.op;
return sblock;

18
tools/qfcc/source/type.c
View file

@ -88,6 +88,24 @@ type_t type_floatfield = { ev_field, ".float", ty_none, {{&type_float}} };
static type_t *free_types;
etype_t
low_level_type (type_t *type)
{
if (type->type < 0 || type->type >= ev_type_count)
internal_error (0, "invalid type");
if (type->type == ev_type_count)
internal_error (0, "found 'type count' type");
if (type->type < ev_invalid)
return type->type;
if (is_enum (type))
return type_default->type;
if (is_struct (type) || is_class (type))
return ev_void;
if (is_array (type))
return ev_void;
internal_error (0, "invalid complex type");
}
void
chain_type (type_t *type)
{