--- branches/pure-cfg/src/compiler/cl-target/cl-target.sml	2011/06/06 18:21:50	1281
+++ branches/pure-cfg/src/compiler/cl-target/cl-target.sml	2011/06/06 19:22:54	1282
@@ -242,7 +242,7 @@
 
 
       (***** OUTPUT *****)
-        fun genStrandInit(Strand{name,tyName,state,output,code,...},nDims) = let 
+        fun genStrandInit (Strand{name,tyName,state,output,code,...}, nDims) = let 
 	      val params = [
 		      CL.PARAM([], CL.T_Ptr(CL.uint32), "sizes" ), 
 		      CL.PARAM([], CL.intTy, "width"),
@@ -911,7 +911,7 @@
 	      val clppStrm = PrintAsC.new clOutS
 	      val cppStrm = PrintAsC.new cOutS
 	      fun cppDecl dcl = PrintAsC.output(cppStrm, dcl) 
-	      fun clppDecl dcl = PrintAsC.output(clppStrm, dcl)
+	      fun clppDecl dcl = PrintAsCL.output(clppStrm, dcl)
 	      val strands = AtomTable.listItems strands
 	      val [strand as Strand{name, tyName, code,init_code, ...}] = strands
 	      in
@@ -946,7 +946,7 @@
                 List.app cppDecl (List.rev (!topDecls));
                 cppDecl (genHostSetupFunc (strand, clFileName, !numDims, initially, imgGlobals));	    
 		PrintAsC.close cppStrm;
-		PrintAsC.close clppStrm; 
+		PrintAsCL.close clppStrm; 
 		TextIO.closeOut cOutS;
 		TextIO.closeOut clOutS
 	      end

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: Strm; 
+		PrintAsCL.close clppStrm; 
 		TextIO.closeOut cOutS;
 		TextIO.closeOut clOutS
 	      end</div>
</div></div>
</body></html>