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

SCM Repository

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

Diff of /branches/charisee/src/compiler/high-to-mid/testcases.sml

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

revision 3259, Mon Sep 21 15:14:52 2015 UTC revision 3260, Wed Sep 23 16:09:21 2015 UTC
# Line 41  Line 41 
41  end  end
42  fun setEin(params,index,body)=Ein.EIN{params=params, index=index, body=body}  fun setEin(params,index,body)=Ein.EIN{params=params, index=index, body=body}
43  fun assignEin (x, rator, args) = (x, DstIL.EINAPP(rator, args))  fun assignEin (x, rator, args) = (x, DstIL.EINAPP(rator, args))
44  fun printEINAPP(id, DstIL.EINAPP(rator, args))=let  fun toStringBind(id, DstIL.EINAPP(rator, args))=let
45      val a=String.concatWith " , " (List.map Var.toString args)      val a=String.concatWith " , " (List.map Var.toString args)
46      in      in
47          String.concat([Var.toString id," ==",P.printerE rator, a])          String.concat([Var.toString id," ==",P.printerE rator, a])
# Line 189  Line 189 
189    
190      fun test()=let      fun test()=let
191          fun f e=let          fun f e=let
192            val _ =  print("\n **************\n Staring\n "^printEINAPP e)            val _ =  print("\n **************\n Staring\n "^toStringBind e)
193            val (b,rtn)= split.gettest e            val (b,rtn)= split.gettest e
194            val _ =  List.map (fn r=>print("\n\t"^printEINAPP r)) ([b]@rtn)            val _ =  List.map (fn r=>print("\n\t"^toStringBind r)) ([b]@rtn)
195           val _ =  print("\n ending \n **************\n ")           val _ =  print("\n ending \n **************\n ")
196            in            in
197                  1                  1

Legend:
Removed from v.3259  
changed lines
  Added in v.3260

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