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

SCM Repository

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

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

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

revision 3927, Sat Jun 4 21:20:01 2016 UTC revision 3931, Sun Jun 5 14:13:21 2016 UTC
# Line 240  Line 240 
240            fun trArg (i, arg) = CL.mkAssign(CL.mkSubscript(lhs, intExp i), trExp (env, arg))            fun trArg (i, arg) = CL.mkAssign(CL.mkSubscript(lhs, intExp i), trExp (env, arg))
241            in            in
242              case rhs              case rhs
243               of IR.E_Pack(_, args) => [CL.mkCall ("vpack", List.map (fn e => trExp(env, e)) args)]               of IR.E_Pack({wid, ...}, args) => [
244                        CL.mkCall (RN.vpack wid, lhs :: List.map (fn e => trExp(env, e)) args)
245                      ]
246                | IR.E_Cons(args, _) => List.mapi trArg args                | IR.E_Cons(args, _) => List.mapi trArg args
247                | IR.E_Seq(args, _) => List.mapi trArg args                | IR.E_Seq(args, _) => List.mapi trArg args
248                | _ => [CL.mkAssign(lhs, trExp (env, rhs))]                | _ => [CL.mkAssign(lhs, trExp (env, rhs))]

Legend:
Removed from v.3927  
changed lines
  Added in v.3931

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