[hackers] [scc] Remove eval() || Roberto E. Vargas Caballero
commit f9656a52f74f06992b576510bb52ed4b6f66b787
Author: Roberto E. Vargas Caballero <k0ga_AT_shike2.com>
AuthorDate: Fri Sep 4 19:57:05 2015 +0200
Commit: Roberto E. Vargas Caballero <k0ga_AT_shike2.com>
CommitDate: Fri Sep 4 19:57:05 2015 +0200
Remove eval()
This function was added to transform comparision or logic
expressions in arithmetic expressions using ternary
operations. This transformation is needed in a z80,
but not in a amd64, and it makes difficult to apply
algebraic transformations.
diff --git a/cc1/cc1.h b/cc1/cc1.h
index 1c0897f..82ceff8 100644
--- a/cc1/cc1.h
+++ b/cc1/cc1.h
_AT_@ -367,10 +367,11 @@ extern Node *castcode(Node *np, Type *newtp);
/* expr.c */
extern Node *expr(void), *negate(Node *np), *constexpr(void);
extern Node *convert(Node *np, Type *tp1, char iscast);
-extern Node *eval(Node *np), *iconstexpr(void), *condexpr(void);
+extern Node *iconstexpr(void), *condexpr(void);
extern bool isnodecmp(int op);
extern int negop(int op);
extern bool cmpnode(Node *np, TUINT val);
+extern Node *decay(Node *np);
/* cpp.c */
extern void icpp(void);
diff --git a/cc1/expr.c b/cc1/expr.c
index 6c9a257..a476e9b 100644
--- a/cc1/expr.c
+++ b/cc1/expr.c
_AT_@ -94,7 +94,7 @@ chklvalue(Node *np, Type *tp)
error("invalid use of void expression");
}
-static Node *
+Node *
decay(Node *np)
{
Type *tp = np->type;
_AT_@ -115,26 +115,9 @@ decay(Node *np)
}
}
-Node *
-eval(Node *np)
-{
- Node *p;
-
- if (!np)
- return NULL;
-
- np = decay(np);
- if (!isnodecmp(np->op))
- return np;
- p = node(OCOLON, inttype, constnode(one), constnode(zero));
- return node(OASK, inttype, np, p);
-}
-
static Node *
integerop(char op, Node *lp, Node *rp)
{
- lp = eval(lp);
- rp = eval(rp);
if (BTYPE(lp) != INT || BTYPE(rp) != INT)
error("operator requires integer operands");
typeconv(&lp, &rp);
_AT_@ -144,7 +127,6 @@ integerop(char op, Node *lp, Node *rp)
static Node *
numericaluop(char op, Node *np)
{
- np = eval(np);
switch (BTYPE(np)) {
case INT:
case FLOAT:
_AT_@ -161,9 +143,9 @@ numericaluop(char op, Node *np)
static Node *
integeruop(char op, Node *np)
{
- np = eval(np);
if (BTYPE(np) != INT)
error("unary operator requires integer operand");
+ np = promote(np);
if (op == OCPL && np->op == OCPL)
return np->left;
return simplify(op, np->type, np, NULL);
_AT_@ -256,8 +238,6 @@ incorrect:
static Node *
arithmetic(char op, Node *lp, Node *rp)
{
- lp = eval(lp);
- rp = eval(rp);
switch (BTYPE(lp)) {
case INT:
case FLOAT:
_AT_@ -304,8 +284,8 @@ pcompare(char op, Node *lp, Node *rp)
static Node *
compare(char op, Node *lp, Node *rp)
{
- lp = eval(lp);
- rp = eval(rp);
+ lp = promote(decay(lp));
+ rp = promote(decay(rp));
switch (BTYPE(lp)) {
case INT:
case FLOAT:
_AT_@ -401,6 +381,7 @@ field(Node *np)
static Node *
content(char op, Node *np)
{
+ np = decay(np);
switch (BTYPE(np)) {
case ARY:
case FTN:
_AT_@ -428,7 +409,7 @@ array(Node *lp, Node *rp)
if (BTYPE(lp) != INT && BTYPE(rp) != INT)
error("array subscript is not an integer");
- np = arithmetic(OADD, lp, rp);
+ np = arithmetic(OADD, decay(lp), decay(rp));
tp = np->type;
if (tp->op != PTR)
errorp("subscripted value is neither array nor pointer");
_AT_@ -438,13 +419,18 @@ array(Node *lp, Node *rp)
static Node *
assignop(char op, Node *lp, Node *rp)
{
- lp = eval(lp);
- rp = eval(rp);
+ int force = 0;
+ Type *tp = lp->type;
- if (BTYPE(rp) == INT && BTYPE(lp) == PTR && cmpnode(rp, 0))
- rp = convert(rp, pvoidtype, 1);
- else if ((rp = convert(rp, lp->type, 0)) == NULL)
+ rp = decay(rp);
+ if (BTYPE(rp) == INT && tp->op == PTR && cmpnode(rp, 0)) {
+ tp = pvoidtype;
+ force = 1;
+ }
+ if ((rp = convert(rp, tp, force)) == NULL) {
errorp("incompatible types when assigning");
+ return lp;
+ }
return node(op, lp->type, lp, rp);
}
_AT_@ -560,7 +546,7 @@ arguments(Node *np)
toomany = 0;
do {
- arg = eval(assign());
+ arg = decay(assign());
if (--n < 0 && !toomany) {
errorp("too many arguments in function call");
toomany = 1;
_AT_@ -704,9 +690,7 @@ cast(void)
error("cast specify a function type");
default:
expect(')');
- if ((lp = eval(cast())) == NULL)
- unexpected();
- if ((rp = convert(lp, tp, 1)) == NULL)
+ if ((rp = convert(cast(), tp, 1)) == NULL)
error("bad type convertion requested");
rp->lvalue = lp->lvalue;
}
diff --git a/cc1/stmt.c b/cc1/stmt.c
index 3c668fe..005b3b4 100644
--- a/cc1/stmt.c
+++ b/cc1/stmt.c
_AT_@ -143,7 +143,7 @@ Return(Symbol *lbreak, Symbol *lcont, Caselist *lswitch)
Type *tp = curfun->type->type;
expect(RETURN);
- np = (yytoken != ';') ? eval(expr()) : NULL;
+ np = (yytoken != ';') ? decay(expr()) : NULL;
expect(';');
if (!np) {
if (tp != voidtype)
diff --git a/cc1/tests/test004.c b/cc1/tests/test004.c
index 91e5f80..8f971ba 100644
--- a/cc1/tests/test004.c
+++ b/cc1/tests/test004.c
_AT_@ -18,10 +18,10 @@ A2 I x
A2 A2 #IFF |I :I
A2 A2 #I3 &I :I
A2 A2 #I1 ^I :I
- A2 A2 A2 #I1 >I #I1 #I0 ?I +I :I
- A2 A2 A2 #I3 <I #I1 #I0 ?I +I :I
- A2 A2 A2 #I1 >I #I1 #I0 ?I +I :I
- A2 A2 A2 #I4 <I #I1 #I0 ?I +I :I
+ A2 A2 A2 #I1 >I +I :I
+ A2 A2 A2 #I3 <I +I :I
+ A2 A2 A2 #I1 >I +I :I
+ A2 A2 A2 #I4 <I +I :I
j L3 A2 #I4 =I
y #I1
L3
diff --git a/cc1/tests/test005.c b/cc1/tests/test005.c
index 434ab64..80fa59b 100644
--- a/cc1/tests/test005.c
+++ b/cc1/tests/test005.c
_AT_@ -8,8 +8,8 @@ G1 F1 main
-
A2 I x
A2 #I3 :I
- A2 A2 #I0 =I #I1 #I0 ?I :I
- A2 A2 #I0 =I #I1 #I0 ?I :I
+ A2 A2 #I0 =I :I
+ A2 A2 #I0 =I :I
A2 A2 ~I :I
A2 A2 _I :I
j L3 A2 #I2 =I
diff --git a/cc1/tests/test018.c b/cc1/tests/test018.c
index 562540f..9de7feb 100644
--- a/cc1/tests/test018.c
+++ b/cc1/tests/test018.c
_AT_@ -16,7 +16,7 @@ A10 V9 v
A6 A4 'P :P
A8 A4 'P #P4 +P #P3 +P :P
A4 'P #P4 +P #P3 +P _AT_M #M2 :M
- A10 'P _AT_I #I2 :I
+ A10 #I2 :I
j L12 A4 'P #P4 +P #P3 +P _AT_M MI #I2 =I
y #I1
L12
_AT_@ -26,7 +26,7 @@ L13
j L14 A8 _AT_M MI #I2 =I
y #I1
L14
- j L15 A10 _AT_I #I2 =I
+ j L15 A10 #I2 =I
y #I1
L15
y #I0
Received on Fri Sep 04 2015 - 20:22:39 CEST
This archive was generated by hypermail 2.3.0
: Fri Sep 04 2015 - 20:24:26 CEST