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

SCM Repository

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

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

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

revision 3519, Sat Dec 19 04:46:58 2015 UTC revision 3520, Sat Dec 19 15:49:06 2015 UTC
# Line 42  Line 42 
42    *)    *)
43      fun doNormalize e = let      fun doNormalize e = let
44            val ordered = Reorder.transform e            val ordered = Reorder.transform e
           val e = NormalizeEin.transform ordered  
45            in            in
46              SummationEin.cleanSummation e              case NormalizeEin.transform ordered
47                 of NONE => ordered
48                  | SOME e => EinSums.clean e
49                (* end case *)
50            end            end
51    
52      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.3519  
changed lines
  Added in v.3520

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