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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/translate/translate-basis.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/translate/translate-basis.sml

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

revision 187, Thu Jul 29 14:00:37 2010 UTC revision 188, Thu Jul 29 22:28:39 2010 UTC
# Line 9  Line 9 
9  structure TranslateBasis : sig  structure TranslateBasis : sig
10    
11      val translate : (HighIL.var * Var.var * Types.meta_var list * HighIL.var list)      val translate : (HighIL.var * Var.var * Types.meta_var list * HighIL.var list)
12            -> HighIL.simple_stmt list            -> HighIL.assign list
13    
14    end = struct    end = struct
15    
# Line 19  Line 19 
19      structure TU = TypeUtil      structure TU = TypeUtil
20      structure MV = MetaVar      structure MV = MetaVar
21    
22      fun assign (y, rator, xs) = [IL.ASSIGN(y, IL.OP(rator, xs))]      fun assign (y, rator, xs) = [(y, IL.OP(rator, xs))]
23    
24      fun simpleOP rator (y, [], xs) = assign (y, rator, xs)      fun simpleOP rator (y, [], xs) = assign (y, rator, xs)
25    

Legend:
Removed from v.187  
changed lines
  Added in v.188

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