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 3352, Wed Oct 28 16:38:14 2015 UTC revision 3353, Wed Oct 28 23:08:21 2015 UTC
# Line 17  Line 17 
17      structure L=LiftEin      structure L=LiftEin
18      in      in
19    
20      val testinitial=0      val testinitial=1
21      val testing=0      val testing=0
22      fun testp n=(case testing      fun testp n=(case testing
23          of 0=> 1          of 0=> 1
# Line 46  Line 46 
46          val bind3 = (y,DstIL.EINAPP(SummationEin.main ein1,args))          val bind3 = (y,DstIL.EINAPP(SummationEin.main ein1,args))
47          val _ =testp["\n\n summation \n\n =>", toStringBind bind3]          val _ =testp["\n\n summation \n\n =>", toStringBind bind3]
48    
 (*  
             val (einapp1,e2)=L.testLift  bind3  
             val newbies5=Split.iterAll(einapp1,e2)  
   
 *)  
49    
50        (* **************** lift field phase ************* *)
51    (*
52           val (einapp1,e2)=L.testLift  bind3           val (einapp1,e2)=L.testLift  bind3
53          val newbies5=  Split.iterAll2(einapp1,e2)          val newbies5=  Split.iterAll2(einapp1,e2)
54          val n =length(newbies5)          val n =length(newbies5)
55          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 ""
56    
 (*  
          (* **************** lift field phase ************* *)  
         (*val newbies5 = L.testLift  bind3*)  
         (*List.rev(  [einapp]@code'*)  
         val (einapp1,e2)=L.testLift  bind3  
57    
58          val newbies5piece= Split.splitEinApp(einapp1,5)  *)
         val newbies5= e2 @ newbies5piece  
         val n =length(newbies5)  
         val _ = if (n > 10) then print("\n **** SPLIT Length"^(Int.toString(n))) else print ""  
59          (* **************** split phase ************* *)          (* **************** split phase ************* *)
60          (*  
61          val (newbies5)= Split.splitEinApp(bind3,1)          val (newbies5)= Split.splitEinApp(bind3,9)
62          val _ =test0["\n\n Returning \n\n =>",          val _ =test0["\n\n Returning \n\n =>",
63          String.concatWith",\n\t"(List.map toStringBind newbies5)]          String.concatWith",\n\t"(List.map toStringBind newbies5)]
64          *)  
65  *)  
66           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
67          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)
68          val fieldset= einSet.EinSet.empty          val fieldset= einSet.EinSet.empty

Legend:
Removed from v.3352  
changed lines
  Added in v.3353

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