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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 558, Tue Feb 22 20:09:16 2011 UTC revision 559, Tue Feb 22 20:09:41 2011 UTC
# Line 131  Line 131 
131            val env = List.foldl            val env = List.foldl
132                  (fn (x, env) => V.Map.insert(env, x, T.Var.var(cvtTy(V.ty x), V.name x)))                  (fn (x, env) => V.Map.insert(env, x, T.Var.var(cvtTy(V.ty x), V.name x)))
133                    env locals                    env locals
134              val stms = List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body
135              val stms = List.foldr
136                    (fn (x, stms) => T.Stmt.decl(lookup(env, x), NONE)::stms)
137                      stms locals
138            in            in
139              T.Stmt.block(List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body)              T.Stmt.block stms
140            end            end
141    
142      fun trMethod (strand, env) (IL.Method{name, body}) =      fun trMethod (strand, env) (IL.Method{name, body}) =

Legend:
Removed from v.558  
changed lines
  Added in v.559

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