Mercurial > repos > rhope
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]