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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-target/c-target.sml

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

revision 1714, Sat Mar 10 00:00:50 2012 UTC revision 1715, Sat Mar 10 14:42:07 2012 UTC
# Line 406  Line 406 
406                  RunCC.linkExec (basename, ldFlags tgt)                  RunCC.linkExec (basename, ldFlags tgt)
407                end                end
408    
409          fun genLibSrc (baseName, Prog{tgt, strands, nAxes, ...}) = let          fun genLibSrc (baseName, Prog{tgt, globals, strands, nAxes, ...}) = let
410                val [Strand{state, output, ...}] = AtomTable.listItems strands                val [Strand{state, output, ...}] = AtomTable.listItems strands
411                val outputs = List.map (GenOutput.gen (tgt, !nAxes)) [output]                val outputs = List.map (GenOutput.gen (tgt, !nAxes)) [output]
412              (* output to C file *)              (* output to C file *)
# Line 415  Line 415 
415                val ppStrm = PrintAsC.new outS                val ppStrm = PrintAsC.new outS
416                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)
417                in                in
418                    List.app ppDecl (List.rev (!globals));
419                  List.app ppDecl outputs;                  List.app ppDecl outputs;
420                  PrintAsC.close ppStrm;                  PrintAsC.close ppStrm;
421                  TextIO.closeOut outS                  TextIO.closeOut outS

Legend:
Removed from v.1714  
changed lines
  Added in v.1715

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