Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/ein16/src/compiler/high-to-mid/handleEin.sml
ViewVC logotype

Diff of /branches/ein16/src/compiler/high-to-mid/handleEin.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4235, Tue Jul 19 22:26:44 2016 UTC revision 4236, Wed Jul 20 03:02:00 2016 UTC
# Line 29  Line 29 
29      val splitflag = false      val splitflag = false
30      val limit = NONE      val limit = NONE
31    
32      val testinitial=1      val testinitial = 0
33      val testing=0      val testing=0
34      fun testp n=(case testing      fun testp n=(case testing
35          of 0=> 1          of 0=> 1
# Line 62  Line 62 
62              of false => (y,DstIL.EINAPP( ein,args))              of false => (y,DstIL.EINAPP( ein,args))
63              | _ => (y,DstIL.EINAPP(SummationEin.main ein,args))              | _ => (y,DstIL.EINAPP(SummationEin.main ein,args))
64    
65           val _ =test0[star,"\n summation ein ",star,toStringBind bind3,"\n------\n"]
66          (* **************** lift - split ************* *)          (* **************** lift - split ************* *)
67          val newbies5=  (case (floatflag,liftflag,splitflag,limit)          val newbies5=  (case (floatflag,liftflag,splitflag,limit)
68              of (true,_,_,_)                                         (*Float*)              of (true,_,_,_)                                         (*Float*)

Legend:
Removed from v.4235  
changed lines
  Added in v.4236

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