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

Implement bind expressions.

Browse source
This commit is contained in:
Bill Currie 2011-01-21 11:27:40 +09:00
parent 4a24393d8d
commit 96fae582e3
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/statements.c
View file

@ -326,6 +326,22 @@ expr_block (sblock_t *sblock, expr_t *e, operand_t **op)
return sblock; return sblock;
} }
static sblock_t *
expr_bind (sblock_t *sblock, expr_t *e, operand_t **op)
{
expr_t *src_expr = e->e.expr.e1;
expr_t *dst_expr = e->e.expr.e2;
type_t *dst_type;
operand_t *tmp = 0;
if (!dst_expr || dst_expr->type != ex_temp)
internal_error (e, "bad bind expression");
dst_type = get_type (dst_expr);
sblock = statement_subexpr (sblock, src_expr, &tmp);
tmp->type = dst_type->type;
return sblock;
}
static sblock_t * static sblock_t *
expr_expr (sblock_t *sblock, expr_t *e, operand_t **op) expr_expr (sblock_t *sblock, expr_t *e, operand_t **op)
{ {
@ -333,6 +349,9 @@ expr_expr (sblock_t *sblock, expr_t *e, operand_t **op)
statement_t *s; statement_t *s;
switch (e->e.expr.op) { switch (e->e.expr.op) {
case 'b':
sblock = expr_bind (sblock, e, op);
break;
case 'c': case 'c':
sblock = statement_call (sblock, e); sblock = statement_call (sblock, e);
break; break;
@ -589,6 +608,9 @@ static sblock_t *
statement_expr (sblock_t *sblock, expr_t *e) statement_expr (sblock_t *sblock, expr_t *e)
{ {
switch (e->e.expr.op) { switch (e->e.expr.op) {
case 'b':
sblock = expr_bind (sblock, e, 0);
break;
case 'c': case 'c':
sblock = statement_call (sblock, e); sblock = statement_call (sblock, e);
break; break;