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

SCM Repository

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

Diff of /branches/ein16/src/compiler/high-il/normalize.sml

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

revision 4235, Tue Jul 19 22:26:44 2016 UTC revision 4236, Wed Jul 20 03:02:00 2016 UTC
# Line 80  Line 80 
80      * Orders EIN, normalizes it, then cleans the summation      * Orders EIN, normalizes it, then cleans the summation
81      *)      *)
82      fun doNormalize(e,args)=let      fun doNormalize(e,args)=let
83           (* val _ = print(String.concat["\n\n**do normalize:", P.printerE(e)])*)            (* DEBUG val _ = print(String.concat["\n\n\n\n*************do normalize:", P.printerE(e)])*)
84            val ordered = Order.orderfn e            val ordered = Order.orderfn e
85    
86            val (n, change) = NE.normalize(ordered,args)            val (n, change) = NE.normalize(ordered,args)
87    
88            val e' = S.cleanSummation n            val e' = S.cleanSummation n
89            (* DEBUG val _ = print(String.concat["\n\n===>", P.printerE(e')])*)
90            in            in
91              e'              e'
92            end            end

Legend:
Removed from v.4235  
changed lines
  Added in v.4236

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