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

SCM Repository

[diderot] Diff of /branches/femprime/src/compiler/high-opt/normalize.sml
ViewVC logotype

Diff of /branches/femprime/src/compiler/high-opt/normalize.sml

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

revision 4555, Fri Sep 9 19:13:08 2016 UTC revision 4756, Sat Oct 15 23:20:14 2016 UTC
# Line 8  Line 8 
8    
9  structure Normalize : sig  structure Normalize : sig
10    
11      val transform : HighIR.program -> HighIR.program      val rewrite : HighIR.program -> HighIR.program
12    
13        val promote : HighIR.program -> HighIR.program
14    
15    end = struct    end = struct
16    
# Line 131  Line 133 
133    
134      structure Promote = PromoteFn (IR)      structure Promote = PromoteFn (IR)
135    
136        val rewrite = Rewrite.transform
137        val promote = Promote.transform
138    
139    (*
140      val transform = Promote.transform o Rewrite.transform      val transform = Promote.transform o Rewrite.transform
141    *)
142    
143  (*DEBUG*  (*DEBUG
144  fun transform prog = let  fun transform prog = let
145        val prog = Rewrite.transform prog        val prog = Rewrite.transform prog
146        val _ = HighPP.output(Log.logFile(), "AFTER REWRITE", prog)        val _ = HighPP.output(Log.logFile(), "AFTER REWRITE", prog)
# Line 142  Line 149 
149        in        in
150          prog          prog
151        end        end
152  *DEBUG*)  DEBUG*)
153    
154    end    end

Legend:
Removed from v.4555  
changed lines
  Added in v.4756

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