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 3488, Tue Dec 8 05:06:32 2015 UTC revision 3489, Tue Dec 8 20:49:31 2015 UTC
# Line 19  Line 19 
19    
20      val liftflag=true      val liftflag=true
21      val splitflag=true      val splitflag=true
22      val splitlimit=SOME 2600      val splitlimit=SOME 2650
23    
24      val testinitial=0      val testinitial=1
25      val testing=0      val testing=0
26      fun testp n=(case testing      fun testp n=(case testing
27          of 0=> 1          of 0=> 1
# Line 33  Line 33 
33      fun toStringBind e= MidToS.toStringBind e      fun toStringBind e= MidToS.toStringBind e
34      fun useCount (HighIL.V{useCnt, ...}) = !useCnt      fun useCount (HighIL.V{useCnt, ...}) = !useCnt
35      fun expandEinOp (srcy,bind00)=let      fun expandEinOp (srcy,bind00)=let
36          val _= raise Fail"development branch- do not use"          (*val _= raise Fail"development branch- do not use"*)
37                  k  
38          val star="************"          val star="************"
39          val _= ("\n Start"^star)          val _= ("\n Start"^star)
40          val _ =test0[star,"\n Original EinApp",star,"\n\n","start get test",toStringBind bind00]          val _ =test0[star,"\n Original EinApp",star,"\n\n","start get test",toStringBind bind00]

Legend:
Removed from v.3488  
changed lines
  Added in v.3489

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