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 3394, Tue Nov 10 17:42:19 2015 UTC revision 3395, Tue Nov 10 18:23:07 2015 UTC
# Line 52  Line 52 
52   val (einapp1,e2)=L.testLift  bind3   val (einapp1,e2)=L.testLift  bind3
53  val newbies5=e2@[einapp1]  val newbies5=e2@[einapp1]
54     val _ =  print("\n **** lift Length"^(Int.toString(length(e2))))     val _ =  print("\n **** lift Length"^(Int.toString(length(e2))))
 *)  
   
     (* **************** lift field phase ************* *)  
55    
56    *)
57        (* **************** lift and split************* *)
58    (*
59           val (einapp1,e2)=L.testLift  bind3           val (einapp1,e2)=L.testLift  bind3
60     val _ =  print("\n **** lift Length"^(Int.toString(length(e2))))     val _ =  print("\n **** lift Length"^(Int.toString(length(e2))))
61          val newbies5=  Split.iterAll2(einapp1,e2)          val newbies5=  Split.iterAll2(einapp1,e2)
62          val n =length(newbies5)          val n =length(newbies5)
63          val _ = if (n > 10) then print("\n **** SPLIT Length"^(Int.toString(n))) else print ""          val _ = if (n > 10) then print("\n **** SPLIT Length"^(Int.toString(n))) else print ""
64    *)
   
65    
66          (* **************** split phase ************* *)          (* **************** split phase ************* *)
67  (*  
68          val (newbies5)= Split.splitEinApp(bind3,9)          val (newbies5)= Split.splitEinApp(bind3,9)
69          val _ =test0["\n\n Returning \n\n =>",          val _ =test0["\n\n Returning \n\n =>",
70          String.concatWith",\n\t"(List.map toStringBind newbies5)]          String.concatWith",\n\t"(List.map toStringBind newbies5)]
71  *)  
72  val _=print"probein\n"  val _=print"probein\n"
73           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
74          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)

Legend:
Removed from v.3394  
changed lines
  Added in v.3395

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