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 3353, Wed Oct 28 23:08:21 2015 UTC revision 3355, Thu Oct 29 22:08:40 2015 UTC
# Line 17  Line 17 
17      structure L=LiftEin      structure L=LiftEin
18      in      in
19    
20      val testinitial=1      val testinitial=0
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    
   
     (* **************** 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)
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    
   
57  *)  *)
58    
59          (* **************** split phase ************* *)          (* **************** split phase ************* *)
60    
61          val (newbies5)= Split.splitEinApp(bind3,9)          val (newbies5)= Split.splitEinApp(bind3,9)

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

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