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 1734, Tue Mar 13 14:32:29 2012 UTC revision 1735, Tue Mar 13 21:11:33 2012 UTC
# Line 471  Line 471 
471                  tgt, globals, topDecls, strands, nAxes, initially, ...                  tgt, globals, topDecls, strands, nAxes, initially, ...
472                }) = let                }) = let
473                val [strand as Strand{name, tyName, state, output, ...}] = AtomTable.listItems strands                val [strand as Strand{name, tyName, state, output, ...}] = AtomTable.listItems strands
474                val outputs = List.map (GenOutput.gen (tgt, !nAxes)) [output]                val outputs = GenOutput.gen (tgt, !nAxes) [output]
475                val substitutions = mkSubs (tgt, strand)                val substitutions = mkSubs (tgt, strand)
476              (* output to C file *)              (* output to C file *)
477                val fileName = OS.Path.joinBaseExt{base=baseName, ext=SOME "c"}                val fileName = OS.Path.joinBaseExt{base=baseName, ext=SOME "c"}

Legend:
Removed from v.1734  
changed lines
  Added in v.1735

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