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

SCM Repository

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

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

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

revision 2663, Fri May 30 18:02:41 2014 UTC revision 2664, Sun Jun 1 16:18:37 2014 UTC
# Line 431  Line 431 
431                end                end
432    
433          fun genSrc (baseName, prog) = let          fun genSrc (baseName, prog) = let
434                val Prog{name, globals, topDecls, strands, initially, ...} = prog                val Prog{name, globals, topDecls, strands, initially,opr, typs, ...} = prog
435                val fileName = OS.Path.joinBaseExt{base=baseName, ext=SOME "c"}                val fileName = OS.Path.joinBaseExt{base=baseName, ext=SOME "c"}
436                val outS = TextIO.openOut fileName                val outS = TextIO.openOut fileName
437                val ppStrm = PrintAsC.new outS                val ppStrm = PrintAsC.new outS
438                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)
439                val strands = AtomTable.listItems strands                val strands = AtomTable.listItems strands
440                in                in
441                       List.app ppDecl (List.rev (!opr)); (*Just added *)
442                  List.app ppDecl (List.rev (!globals));                  List.app ppDecl (List.rev (!globals));
443                  List.app ppDecl (List.rev (!topDecls));                  List.app ppDecl (List.rev (!topDecls));
444                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;

Legend:
Removed from v.2663  
changed lines
  Added in v.2664

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