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);