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

SCM Repository

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

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

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

revision 2794, Tue Nov 4 20:04:14 2014 UTC revision 2795, Tue Nov 4 21:58:11 2014 UTC
# Line 69  Line 69 
69      (* end case *))      (* end case *))
70    
71    
72  val testing=0  val testing=1
73    
74  fun doNormalize e=let  fun doNormalize e=let
75        val _ =print "\n in do Normalize"
76      val ordered=Order.orderfn(e)      val ordered=Order.orderfn(e)
77      val (n,change)=NE.normalize(ordered)      val (n,change)=NE.normalize(ordered)
78      val e'=S.cleanSummation(n)      val e'=S.cleanSummation(n)
# Line 103  Line 103 
103    
104    
105  fun doRHS (lhs, IL.EINAPP (ein, args))=let  fun doRHS (lhs, IL.EINAPP (ein, args))=let
106    
107         val _ =print "\n do rhs"
108      val _ =(case testing      val _ =(case testing
109          of 0=> 0          of 0=> 0
110          | _ => (print(String.concat[V.toString  lhs,"=="," ---Current: ", P.printerE(ein), (String.concatWith "," (List.map V.toString args))]);1)          | _ => (print(String.concat[V.toString  lhs,"=="," ---Current: ", P.printerE(ein), (String.concatWith "," (List.map V.toString args))]);1)
# Line 122  Line 124 
124      in rewrite(0,ein, 0,args,[])      in rewrite(0,ein, 0,args,[])
125      end      end
126    
127      | doRHS _ = NONE  | doRHS _ = (print "non einapp";NONE)
128    
129      structure Rewrite = RewriteFn (      structure Rewrite = RewriteFn (
130        struct        struct

Legend:
Removed from v.2794  
changed lines
  Added in v.2795

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