Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/cl-target/cl-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/cl-target/cl-target.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1281, Mon Jun 6 18:21:50 2011 UTC revision 1282, Mon Jun 6 19:22:54 2011 UTC
# Line 911  Line 911 
911                val clppStrm = PrintAsC.new clOutS                val clppStrm = PrintAsC.new clOutS
912                val cppStrm = PrintAsC.new cOutS                val cppStrm = PrintAsC.new cOutS
913                fun cppDecl dcl = PrintAsC.output(cppStrm, dcl)                fun cppDecl dcl = PrintAsC.output(cppStrm, dcl)
914                fun clppDecl dcl = PrintAsC.output(clppStrm, dcl)                fun clppDecl dcl = PrintAsCL.output(clppStrm, dcl)
915                val strands = AtomTable.listItems strands                val strands = AtomTable.listItems strands
916                val [strand as Strand{name, tyName, code,init_code, ...}] = strands                val [strand as Strand{name, tyName, code,init_code, ...}] = strands
917                in                in
# Line 946  Line 946 
946                  List.app cppDecl (List.rev (!topDecls));                  List.app cppDecl (List.rev (!topDecls));
947                  cppDecl (genHostSetupFunc (strand, clFileName, !numDims, initially, imgGlobals));                  cppDecl (genHostSetupFunc (strand, clFileName, !numDims, initially, imgGlobals));
948                  PrintAsC.close cppStrm;                  PrintAsC.close cppStrm;
949                  PrintAsC.close clppStrm;                  PrintAsCL.close clppStrm;
950                  TextIO.closeOut cOutS;                  TextIO.closeOut cOutS;
951                  TextIO.closeOut clOutS                  TextIO.closeOut clOutS
952                end                end

Legend:
Removed from v.1281  
changed lines
  Added in v.1282

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0