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 3540, Mon Jan 4 18:03:22 2016 UTC revision 3557, Fri Jan 8 19:54:58 2016 UTC
# Line 18  Line 18 
18      in      in
19    
20      val liftflag=true      val liftflag=true
21      val splitflag=true      val splitflag=false
22      val splitlimit=NONE      val splitlimit=SOME 2000
23      val testinitial=0      val testinitial=0
24      val testing=0      val testing=0
25      fun testp n=(case testing      fun testp n=(case testing
# Line 77  Line 77 
77                  val newbies4=Split.splitEinApp einapp1                  val newbies4=Split.splitEinApp einapp1
78                  val _ = testp["\n split made pieces(",Int.toString(length(e2)-length(e2a)),") orig (", Int.toString(length(newbies4)),")"]                  val _ = testp["\n split made pieces(",Int.toString(length(e2)-length(e2a)),") orig (", Int.toString(length(newbies4)),")"]
79                  in (e2@newbies4) end                  in (e2@newbies4) end
   
 (*  
80              | (false,true,_) => let              | (false,true,_) => let
81                  val (einapp1,e2)=L.testLift  bind3                  val (einapp1,e2,_)=L.testLift  bind3
82                  val _ = ("\n **** lift Length"^(Int.toString(length(e2))))                  val _ = print("\n **** lift Length"^(Int.toString(length(e2))))
83                  in (e2@[einapp1]) end                  in (e2@[einapp1]) end
84              |  (false,false,_)=>Split.splitEinApp bind3              |  (false,false,_)=>Split.splitEinApp bind3
85  *)  
86          (* end case *))          (* end case *))
87          val _ = "************** TASH"          val _ = "************** TASH"
88          (**************** printing result ***************)          (**************** printing result ***************)
89          val _ =testp["\n\n Returning \n\n =>",          val _ =testp["\n\n Returning \n\n =>", String.concatWith",\n\t"(List.map toStringBind newbies5)]
         String.concatWith",\n\t"(List.map toStringBind newbies5)]  
90          val n =length(newbies5)          val n =length(newbies5)
91          val _ = if (n > 10) then testp["\n **** SPLIT Length",Int.toString(n)] else 1          val _ = if (n > 1000) then print(String.concat["\n **** SPLIT Length",Int.toString(n)]) else print""
92           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
93          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)
94          val fieldset= einVarSet.EinVarSet.empty          val fieldset= einVarSet.EinVarSet.empty

Legend:
Removed from v.3540  
changed lines
  Added in v.3557

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