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/split.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-to-mid/split.sml

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

revision 3394, Tue Nov 10 17:42:19 2015 UTC revision 3395, Tue Nov 10 18:23:07 2015 UTC
# Line 36  Line 36 
36    
37      val numFlag=1   (*remove common subexpression*)      val numFlag=1   (*remove common subexpression*)
38      val testing=0      val testing=0
39      val splitlimit=4000      val splitlimit=100
40      fun mkEin e = E.mkEin e      fun mkEin e = E.mkEin e
41      val einappzero= DstIL.EINAPP(mkEin([],[],E.Const 0),[])      val einappzero= DstIL.EINAPP(mkEin([],[],E.Const 0),[])
42      fun setEinZero y=  (y,einappzero)      fun setEinZero y=  (y,einappzero)
# Line 375  Line 375 
375          |split((y,app),fieldset,_) =(((y,app),[]),fieldset)          |split((y,app),fieldset,_) =(((y,app),[]),fieldset)
376    
377    
 (*  
 B  
 NoISSUE (1,3,4)  
 Fail(2,5,6)  
   
 *)  
   
378      fun iterAll2(einapp2,fields2)=let      fun iterAll2(einapp2,fields2)=let
379          val fieldset= einSet.EinSet.empty          val fieldset= einSet.EinSet.empty
380          val _ =print ("\nSPLit with limit"^(Int.toString(splitlimit)))          val _ =print ("\nSPLit with limit"^(Int.toString(splitlimit)))

Legend:
Removed from v.3394  
changed lines
  Added in v.3395

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