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]