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 4218, Fri Jul 15 17:06:43 2016 UTC revision 4219, Fri Jul 15 17:39:02 2016 UTC
# Line 57  Line 57 
57      fun doNormalize e' = let      fun doNormalize e' = let
58            (* DEBUG  val _ =print(String.concat["\n\n\n do normalize:", EinPP.toString(e')])*)            (* DEBUG  val _ =print(String.concat["\n\n\n do normalize:", EinPP.toString(e')])*)
59            val ordered = Reorder.transform e'            val ordered = Reorder.transform e'
60            in            val rtn = case NormalizeEin.transform ordered
             case NormalizeEin.transform ordered  
61               of NONE => ordered               of NONE => ordered
62                | SOME e => EinSums.clean e                | SOME e => EinSums.clean e
63              (* end case *)              (* end case *)
64              (* DEBUG  val _ =print(String.concat["\n post sum normalize:", EinPP.toString(rtn)]) *)
65              in
66                rtn
67            end            end
68    
69      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.4218  
changed lines
  Added in v.4219

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