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 4209, Thu Jul 14 17:37:50 2016 UTC revision 4210, Thu Jul 14 18:01:19 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 73  Line 73 
73              (* **************** split phase ************* *)              (* **************** split phase ************* *)
74              | (false,false,true, SOME limit) => Split.limitSplit(bind3,limit)              | (false,false,true, SOME limit) => Split.limitSplit(bind3,limit)
75          (* end case *))          (* end case *))
76    (*
77          val _ =print"\n\n pre newbies"          val _ =print"\n\n pre newbies"
78          val _ =List.map (fn (lhs,DstIL.EINAPP(e,a))=> print("\n\n-"^P.printerE(e))) newbies5          val _ =List.map (fn (lhs,DstIL.EINAPP(e,a))=> print("\n\n-"^P.printerE(e))) newbies5
79         val _ =print"\n\n post newbies"         val _ =print"\n\n post newbies"
80    *)
81           (* ************** ProbeEIN *********** *)           (* ************** ProbeEIN *********** *)
82          (*gives probeEIN the set. Could split into a sepearate step*)          (*gives probeEIN the set. Could split into a sepearate step*)
83          val fieldset= einVarSet.EinVarSet.empty          val fieldset= einVarSet.EinVarSet.empty

Legend:
Removed from v.4209  
changed lines
  Added in v.4210

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