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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4164, Thu Jul 7 12:56:59 2016 UTC revision 4166, Thu Jul 7 14:33:11 2016 UTC
# Line 856  Line 856 
856      fun trFunc info (IR.Func{name, params, body}) = let      fun trFunc info (IR.Func{name, params, body}) = let
857            val name' = getFuncVar name            val name' = getFuncVar name
858            val params' = List.map U.newParamVar params            val params' = List.map U.newParamVar params
859            val body' = trCFG info body            val env = Env.new info
860              val _ = ListPair.appEq
861                        (fn (x, x') => Env.bindSimple (env, x, T.E_Var x'))
862                          (params, params')
863              val body' = ScopeVars.assignScopes (params', trCFGWithEnv (env, body))
864            in            in
865              T.Func{name = name', params = params', body = body'}              T.Func{name = name', params = params', body = body'}
866            end            end

Legend:
Removed from v.4164  
changed lines
  Added in v.4166

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