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

SCM Repository

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

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

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

revision 2023, Wed Oct 10 12:27:13 2012 UTC revision 2024, Wed Oct 10 13:36:38 2012 UTC
# Line 174  Line 174 
174                    CL.mkSubscript(vecExp, ix)                    CL.mkSubscript(vecExp, ix)
175                  end                  end
176              | (Op.Subscript(Ty.SeqTy(ty, n)), [v, ix]) => CL.mkSubscript(v, ix)              | (Op.Subscript(Ty.SeqTy(ty, n)), [v, ix]) => CL.mkSubscript(v, ix)
177                | (Op.Subscript(Ty.DynSeqTy ty), [v, ix]) => let
178                    val elemTy = trType ty
179                    in
180                      CL.mkUnOp (CL.%*,
181                        CL.mkCast(CL.T_Ptr elemTy,
182                          CL.mkApply("Diderot_DynSeqAddr", [CL.mkSizeof elemTy, v, ix])))
183                    end
184              | (Op.Subscript(Ty.TensorTy[n]), [v, ix]) => let              | (Op.Subscript(Ty.TensorTy[n]), [v, ix]) => let
185                  val unionTy = CL.T_Named(N.unionTy n)                  val unionTy = CL.T_Named(N.unionTy n)
186                  val vecExp = CL.mkSelect(CL.mkCast(unionTy, v), "r")                  val vecExp = CL.mkSelect(CL.mkCast(unionTy, v), "r")

Legend:
Removed from v.2023  
changed lines
  Added in v.2024

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