diff cbackend_c.rhope @ 147:f3686f60985d

Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:15:02 -0500
parents 7bbdc034e347
children b75ec364cecc
line wrap: on
line diff
--- a/cbackend_c.rhope	Sun Nov 21 22:47:14 2010 -0500
+++ b/cbackend_c.rhope	Mon Nov 22 01:15:02 2010 -0500
@@ -1422,7 +1422,7 @@
 	}
 }
 
-_Set List Els[text,el,index,type reg:out]
+_Set List Els C[text,el,index,type reg:out]
 {
 	out <- [[text]Append[
 		[["\tinout[1] = "
@@ -1441,7 +1441,7 @@
 	{
 		If[[~]>[3]]
 		{
-			out <- [Fold[_Set List Els[?, ?, ?, type reg], [text]Append["\trhope(FUNC_List, inout, 0, 1);\n"], value]
+			out <- [Fold[_Set List Els C[?, ?, ?, type reg], [text]Append["\trhope(FUNC_List, inout, 0, 1);\n"], value]
 				]Append[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = inout[0];\n"]]
 		}{
 			Const Construct C[value,type reg]