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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/handleEin.sml

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

revision 3373, Thu Nov 5 19:01:17 2015 UTC revision 3374, Thu Nov 5 21:05:53 2015 UTC
# Line 37  Line 37 
37    
38    
39          (* ************* Sweep for 0's'*********** *)          (* ************* Sweep for 0's'*********** *)
40            val _ =(String.concat["Pre Sweep\n",P.printbody body,"\n"])
41          val bodysweep=sweepEin.sweep body          val bodysweep=sweepEin.sweep body
42          val ein1=Ein.EIN{params=params, index=index, body=bodysweep}          val ein1=Ein.EIN{params=params, index=index, body=bodysweep}
43          val _=testp["Post Sweep\n",P.printbody bodysweep,"\n"]          val _ =(String.concat["Post Sweep\n",P.printbody bodysweep,"\n"])
44    
45    
46          (* ************** distribute and push Summation*********** *)          (* ************** distribute and push Summation*********** *)
# Line 86  Line 87 
87          val n= List.length(code)          val n= List.length(code)
88    
89            val _ = if (n>5)            val _ = if (n>5)
90           then  print(String.concat["\n\n",star,":Name:",HighIL.Var.name srcy ,            then  (String.concat["\n\n",star,":Name:",HighIL.Var.name srcy ,
91              ":VarCount(",Int.toString(useCount srcy),")",              ":VarCount(",Int.toString(useCount srcy),")",
92                  "\n\t",star,"Pieces now: ",Int.toString (n),                  "\n\t",star,"Pieces now: ",Int.toString (n),
93              " Fields:",Int.toString(!isField)," isReplaced:",Int.toString(!isReplaced),              " Fields:",Int.toString(!isField)," isReplaced:",Int.toString(!isReplaced),
94              " Replaced_Fields:",Int.toString(!isFieldR)])              " Replaced_Fields:",Int.toString(!isFieldR)])
95              else  print""              else ""
96    
97    
98          val flatcode= List.foldr op@ [] code          val flatcode= List.foldr op@ [] code

Legend:
Removed from v.3373  
changed lines
  Added in v.3374

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