Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/block-placement/jump-chain-elim-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/jump-chain-elim-fn.sml

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

revision 1112, Fri Mar 1 15:53:14 2002 UTC revision 1113, Fri Mar 1 16:57:47 2002 UTC
# Line 116  Line 116 
116                    if !needFilter then List.filter keepBlock blocks else blocks)                    if !needFilter then List.filter keepBlock blocks else blocks)
117            in            in
118              if !dumpCFG              if !dumpCFG
119                then CFG.dump(!dumpStrm, "after jump-chain elimination", cfg)                then let
120                    val prBlock = CFG.dumpBlock (!dumpStrm, cfg)
121                    in
122                      TextIO.output(!dumpStrm, "[ after jump-chain elimination ]\n");
123                      List.app prBlock blocks
124                    end
125                else ();                else ();
126              blocks              blocks
127            end            end

Legend:
Removed from v.1112  
changed lines
  Added in v.1113

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