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 3355, Thu Oct 29 22:08:40 2015 UTC revision 3358, Fri Oct 30 21:30:53 2015 UTC
# 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    
 (*  
     (* **************** lift field phase ************* *)  
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)
# Line 62  Line 62 
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           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
66          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)
67          val fieldset= einSet.EinSet.empty          val fieldset= einSet.EinSet.empty

Legend:
Removed from v.3355  
changed lines
  Added in v.3358

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