Mercurial > hg > CbC > old > device

diff mc-inline.c @ 609:af6b9ae79583 udpcl

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
modificatioon for udpcl
author kono
date Thu, 16 Mar 2006 17:03:24 +0900
parents e055df7c1082
children 2ba903c8e749
line wrap: on
line diff
--- a/mc-inline.c	Sat Feb 18 21:33:43 2006 +0900
+++ b/mc-inline.c	Thu Mar 16 17:03:24 2006 +0900
@@ -399,7 +399,7 @@
 	    if (nptr0->ty>0&&car(nptr0->ty)==FUNCTION)
 		car(nptr0->ty)=CODE;
 	}
-	gexpr(list3(CODE,e1,env),0);
+	gexpr(list3(JUMP,e1,env),0);
 	control=0;
 	// conv->sm_();
 	return ;
@@ -815,7 +815,7 @@
 	switch(car(e1)) {
 	case RINDIRECT: e1=pexpr(e1); break;
 	case CODE: e2=pexpr(cadr(e1));
-	    e1=list3(CODE,e2,pexpr(caddr(e1))); break;
+	    e1=list3(JUMP,e2,pexpr(caddr(e1))); break;
 	case FLABEL: /* error(-1); */ break;
 	case IVAR: 
 	    lb = cadr(e1);
@@ -943,7 +943,7 @@
 	return p_lvar(e1);
     case FUNCTION:
 	return pfunction(e1);
-    case CODE:
+    case JUMP:
 	e2 = pexpr(e2);
 	return list3(car(e1),e2,pexpr(cadddr(e1)));
     case ARRAY: