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 3203, Wed Jul 8 16:30:56 2015 UTC revision 3259, Mon Sep 21 15:14:52 2015 UTC
# Line 18  Line 18 
18      in      in
19    
20      val testinitial=0      val testinitial=0
21      val testing=1      val testing=0
22      fun testp n=(case testing      fun testp n=(case testing
23          of 0=> 1          of 0=> 1
24          | _ =>(print(String.concat n);1)          | _ =>(print(String.concat n);1)
# Line 28  Line 28 
28          | _ => (print(String.concat n);1))          | _ => (print(String.concat n);1))
29      fun printEINAPP e=MidToString.printEINAPP e      fun printEINAPP e=MidToString.printEINAPP e
30    
   
   
   
31      fun expandEinOp bind00=let      fun expandEinOp bind00=let
32    
33          val star="************"          val star="************"
# Line 75  Line 72 
72              List.map (fn (y,rator)=> DstIL.ASSGN(y,rator)) flatcode              List.map (fn (y,rator)=> DstIL.ASSGN(y,rator)) flatcode
73          end          end
74    
   
75    end; (* local *)    end; (* local *)
76    
77  end (* local *)  end (* local *)

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

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