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 2664, Sun Jun 1 16:18:37 2014 UTC revision 2665, Tue Jun 3 02:37:46 2014 UTC
# Line 438  Line 438 
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 *)                    (* 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 ppDecl (List.rev (!opr));
445                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;
446                  genStrandTable (ppStrm, strands);                  genStrandTable (ppStrm, strands);
447                  ppDecl (!initially);                  ppDecl (!initially);

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

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