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 2690, Fri Aug 29 15:41:22 2014 UTC revision 2692, Mon Sep 8 22:57:47 2014 UTC
# Line 468  Line 468 
468                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)                fun ppDecl dcl = PrintAsC.output(ppStrm, dcl)
469                val strands = AtomTable.listItems strands                val strands = AtomTable.listItems strands
470                in                in
471                    (* List.app ppDecl (List.rev (!opr)); (*Just added *)*)  
472                  List.app ppDecl (List.rev (!globals));                  List.app ppDecl (List.rev (!globals));
473                   List.app ppDecl (List.rev (!opr));                   List.app ppDecl ( (!opr));
474                  List.app ppDecl (List.rev (!topDecls));                  List.app ppDecl (List.rev (!topDecls));
475                  (* List.app ppDecl (List.rev (!opr));*)  
476                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;                  List.app (fn strand => List.app ppDecl (genStrand strand)) strands;
477                  genStrandTable (ppStrm, strands);                  genStrandTable (ppStrm, strands);
478                  ppDecl (!initially);                  ppDecl (!initially);

Legend:
Removed from v.2690  
changed lines
  Added in v.2692

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