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 3557, Fri Jan 8 19:54:58 2016 UTC revision 3573, Mon Jan 11 18:30:36 2016 UTC
# Line 78  Line 78 
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    (*
82                  val (einapp1,e2,_)=L.testLift  bind3                  val (einapp1,e2,_)=L.testLift  bind3
83                  val _ = print("\n **** lift Length"^(Int.toString(length(e2))))                  val _ = print("\n **** lift Length"^(Int.toString(length(e2))))
84                  in (e2@[einapp1]) end                  in (e2@[einapp1]) end
85    *)
86                    val k=FloatEin.transform bind3
87                    in List.map (fn MidIL.ASSGN(i)=> i ) k end
88              |  (false,false,_)=>Split.splitEinApp bind3              |  (false,false,_)=>Split.splitEinApp bind3
89    
90          (* end case *))          (* end case *))
# Line 88  Line 92 
92          (**************** printing result ***************)          (**************** printing result ***************)
93          val _ =testp["\n\n Returning \n\n =>", String.concatWith",\n\t"(List.map toStringBind newbies5)]          val _ =testp["\n\n Returning \n\n =>", String.concatWith",\n\t"(List.map toStringBind newbies5)]
94          val n =length(newbies5)          val n =length(newbies5)
95          val _ = if (n > 1000) then print(String.concat["\n **** SPLIT Length",Int.toString(n)]) else print""          val _ = if (n > 1) then print(String.concat["\n **** SPLIT Length",Int.toString(n)]) else print""
96           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
97          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)
98          val fieldset= einVarSet.EinVarSet.empty          val fieldset= einVarSet.EinVarSet.empty

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

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