Mercurial > repos > rhope
diff cbackend_c.rhope @ 172:926b56a43f47
Fix some bugs related to inlining
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 15 May 2011 23:31:58 -0700 |
parents | a32afde77abb |
children | 327bcf35e094 |
line wrap: on
line diff
--- a/cbackend_c.rhope Sun May 08 18:36:33 2011 -0700 +++ b/cbackend_c.rhope Sun May 15 23:31:58 2011 -0700 @@ -597,6 +597,7 @@ } + Do AddRef@C Function[func,psource,pdest:out] { source <- [psource]Make Op[func] @@ -991,8 +992,9 @@ }{ after free <- Val[after statements] } - out <- [[after free]Add Raw Line["}"] + out <- [[[after free]Add Raw Line["}"] ]Resume Index <<[[stream]Resume Index >>] + ]Variables <<[ Combine[[after free]Variables >>, [stream]Variables >>]] } Discard Outputs@C Function[func,first to discard:out]