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
 [diderot] / branches / charisee_dev / src / compiler / high-to-mid / handleEin.sml

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

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