scc

simple C compiler
git clone git://git.2f30.org/scc
Log | Files | Refs | README | LICENSE

commit 6c673209747fbc604bb982a22953993055b75475
parent dd604299ecdeb25d1c7d0f4cb77e2478777272ad
Author: Roberto E. Vargas Caballero <k0ga@shike2.com>
Date:   Tue,  1 Apr 2014 22:34:40 +0200

Generalize add function in expr.c

These function can be also used in other operations, as for example
substraction, multiply or division

Diffstat:
Mcc.h | 2+-
Mexpr.c | 19++++++++++++-------
2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/cc.h b/cc.h @@ -213,7 +213,7 @@ typedef struct node { typedef void (*Inst)(Node *); enum { - OCAST, OPTR, OADD, OARY, OSIZE, OMUL + OCAST, OPTR, OADD, OARY, OSIZE, OMUL, OSUB }; extern void diff --git a/expr.c b/expr.c @@ -46,10 +46,10 @@ floatconv(Node **np1, Node **np2) } static Node * -add(Node *np1, Node *np2) +arithmetic(char op, Node *np1, Node *np2) { Node *naux; - Type *tp1, *tp2; + Type *tp1, *tp2, *tp3; uint8_t t1, t2, taux; tp1 = UNQUAL(np1->type), tp2 = UNQUAL(np2->type); @@ -86,8 +86,12 @@ int_float: np2 = castcode(np2, np1->type); goto incorrect; } break; - case PTR: case FTN: case ARY: -pointer: tp3 = tp1->type; + case PTR: case ARY: +pointer: + if (op != OADD && op != OSUB) + goto incorrect; + /* TODO: check that the the base type is a complete type */ + tp3 = tp1->type; if (t1 == ARY) tp1 = mktype(tp1->type, PTR, NULL, 0); if (t2 != INT) @@ -100,7 +104,7 @@ pointer: tp3 = tp1->type; goto incorrect; } - return bincode(OADD, tp1, np1, np2); + return bincode(op, tp1, np1, np2); incorrect: error("incorrect arithmetic operands"); /*TODO: print type names */ @@ -119,7 +123,7 @@ array(Node *np1, Node *np2) goto bad_vector; if (t1 != INT && t2 != INT) goto bad_subs; - np1 = add(np1, np2); + np1 = arithmetic(OADD, np1, np2); return unarycode(OARY, np1->type->type , np1); bad_vector: @@ -127,7 +131,8 @@ bad_vector: goto error; bad_subs: err = "array subscript is not an integer"; -error: error(err); +error: + error(err); } static Node *