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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/cl-target/tree-to-cl.sml

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

revision 3087, Tue Mar 17 16:35:47 2015 UTC revision 3088, Tue Mar 17 18:27:27 2015 UTC
# Line 212  Line 212 
212            (* end case *))            (* end case *))
213    
214      fun trExp (env, e) = (case e      fun trExp (env, e) = (case e
215             of IL.E_State x => rvalueStateVar (env, x)             of IL.E_Global x => rvalueGlobalVar (env, x)
216                | IL.E_State x => rvalueStateVar (env, x)
217              | IL.E_Var x => rvalueVar (env, x)              | IL.E_Var x => rvalueVar (env, x)
218              | IL.E_Lit(Literal.Int n) => CL.mkIntTy(n, !CLN.gIntTy)              | IL.E_Lit(Literal.Int n) => CL.mkIntTy(n, !CLN.gIntTy)
219              | IL.E_Lit(Literal.Bool b) => CL.mkBool b              | IL.E_Lit(Literal.Bool b) => CL.mkBool b
# Line 356  Line 357 
357                    | IL.S_Assign([x], exp) => trAssign (env, lvalueVar (env, x), exp)                    | IL.S_Assign([x], exp) => trAssign (env, lvalueVar (env, x), exp)
358                    | IL.S_Assign(xs, exp) =>                    | IL.S_Assign(xs, exp) =>
359                            trMultiAssign (env, List.map (fn x => lvalueVar (env, x)) xs, exp)                            trMultiAssign (env, List.map (fn x => lvalueVar (env, x)) xs, exp)
360                      | IL.S_GAssign(x, exp) => trAssign (env, lvalueGlobalVar (env, x), exp)
361                    | IL.S_IfThen(cond, thenBlk) =>                    | IL.S_IfThen(cond, thenBlk) =>
362                        [CL.mkIfThen(trExp(env, cond), trBlk(env, thenBlk))]                        [CL.mkIfThen(trExp(env, cond), trBlk(env, thenBlk))]
363                    | IL.S_IfThenElse(cond, thenBlk, elseBlk) =>                    | IL.S_IfThenElse(cond, thenBlk, elseBlk) =>

Legend:
Removed from v.3087  
changed lines
  Added in v.3088

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