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 3513, Fri Dec 18 20:02:39 2015 UTC revision 3515, Sat Dec 19 03:01:31 2015 UTC
# Line 37  Line 37 
37    * Orders EIN, normalizes it, then cleans the summation    * Orders EIN, normalizes it, then cleans the summation
38    *)    *)
39      fun doNormalize (e, args) = let      fun doNormalize (e, args) = let
40            val ordered = OrderEin.orderfn e            val ordered = Reorder.transform e
41            val (n, change) = NormalizeEin.normalize(ordered, args)            val e = NormalizeEin.transform(ordered, args)
42            in            in
43              S.cleanSummation n              SummationEin.cleanSummation e
44            end            end
45    
46      fun nameCnt e = String.concat[V.toString e, "(", Int.toString(useCount e), ")"]      fun nameCnt e = String.concat[V.toString e, "(", Int.toString(useCount e), ")"]

Legend:
Removed from v.3513  
changed lines
  Added in v.3515

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