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 3304, Fri Oct 16 18:51:09 2015 UTC revision 3324, Tue Oct 20 05:22:52 2015 UTC
# Line 10  Line 10 
10    
11      structure E = Ein      structure E = Ein
12      structure DstIL = MidIL      structure DstIL = MidIL
     structure DstOp = MidOps  
13      structure P=Printer      structure P=Printer
     structure T=TransformEin  
14      structure MidToS=MidToString      structure MidToS=MidToString
     structure DstV  = DstIL.Var  
15      in      in
16    
17      val testinitial=0      val testinitial=0
# Line 26  Line 23 
23      fun test0 n=(case testinitial      fun test0 n=(case testinitial
24          of 0=>testp n          of 0=>testp n
25          | _ => (print(String.concat n);1))          | _ => (print(String.concat n);1))
26      fun toStringBind e= MidToString.toStringBind e      fun toStringBind e= MidToS.toStringBind e
27      fun useCount (HighIL.V{useCnt, ...}) = !useCnt      fun useCount (HighIL.V{useCnt, ...}) = !useCnt
28      fun expandEinOp (srcy,bind00)=let      fun expandEinOp (srcy,bind00)=let
29            (*val _ = Lift.testLeft 1*)
30    
31          val star="************"          val star="************"
32          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.3304  
changed lines
  Added in v.3324

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