Mercurial > hg > CbC > old > device
diff mc-codegen.c @ 194:114e9d64b5cc
*** empty log message ***
author | kono |
---|---|
date | Sat, 10 Jan 2004 17:13:49 +0900 |
parents | 8646a4a9cde9 |
children | c193120ee2a6 |
line wrap: on
line diff
--- a/mc-codegen.c Sun Dec 14 16:53:42 2003 +0900 +++ b/mc-codegen.c Sat Jan 10 17:13:49 2004 +0900 @@ -418,10 +418,20 @@ return; case DOP+GT: - drexpr(cadr(e1),caddr(e1),l1,DOP+GT); + case DOP+GE: + case DOP+EQ: + case DOP+NEQ: + case FOP+GT: + case FOP+GE: + case FOP+EQ: + case FOP+NEQ: + drexpr(cadr(e1),caddr(e1),l1,car(e1)); return; - case DOP+GE: - drexpr(cadr(e1),caddr(e1),l1,DOP+GE); + case FOP+LT: + drexpr(caddr(e1),cadr(e1),l1,FOP+GT); + return; + case FOP+LE: + drexpr(caddr(e1),cadr(e1),l1,FOP+GE); return; case DOP+LT: drexpr(caddr(e1),cadr(e1),l1,DOP+GT); @@ -429,32 +439,6 @@ case DOP+LE: drexpr(caddr(e1),cadr(e1),l1,DOP+GE); return; - case DOP+EQ: - drexpr(cadr(e1),caddr(e1),l1,DOP+EQ); - return; - case DOP+NEQ: - drexpr(cadr(e1),caddr(e1),l1,DOP+NEQ); - return; - - case FOP+GT: - drexpr(cadr(e1),caddr(e1),l1,FOP+GT); - return; - case FOP+GE: - drexpr(cadr(e1),caddr(e1),l1,FOP+GE); - return; - case FOP+LT: - drexpr(caddr(e1),cadr(e1),l1,FOP+GT); - return; - case FOP+LE: - drexpr(caddr(e1),cadr(e1),l1,FOP+GE); - return; - case FOP+EQ: - drexpr(cadr(e1),caddr(e1),l1,FOP+EQ); - return; - case FOP+NEQ: - drexpr(cadr(e1),caddr(e1),l1,FOP+NEQ); - return; - case LAND: b_expr(e2,0,cond?(l2=fwdlabel()):l1,0);