# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1290830725 -32400
# Node ID d7b3dc41972fe8aaa260ba9b9c0ddc88155a69dc
# Parent  313750f582dd3d3a035d13a824a5ca66533683ba
rvalue_t separation.

diff -r 313750f582dd -r d7b3dc41972f mc-codegen.c
--- a/mc-codegen.c	Sat Nov 27 09:29:16 2010 +0900
+++ b/mc-codegen.c	Sat Nov 27 13:05:25 2010 +0900
@@ -4355,6 +4355,7 @@
     int op,c;
     NMTBL *n;    
     int type0 = type_value(type);
+    int stype;
 
     if (e==0) error(-1);
     op = 0;
@@ -4425,8 +4426,11 @@
     case IVAR: case ARRAY: case PERIOD: case ARROW:
 	return(indirect(RINDIRECT+op,e,type0));   // RIVAR?
     case CAST:
-	op = rvalue_t(cadr(e),cadddr(e));
-	return list4(CAST,op,caddr(e),cadddr(e));  // should be RCAST?
+	stype = type;
+	type = cadddr(e);
+	op = rvalue(cadr(e));
+	e = list4(CAST,op,caddr(e),cadddr(e));  // should be RCAST?
+	type = stype;
     default:return(e); /* idempotent case? */
     }
 }