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

SCM Repository

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

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

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

revision 2587, Thu Apr 17 04:30:15 2014 UTC revision 2588, Thu Apr 17 14:51:26 2014 UTC
# Line 208  Line 208 
208              | (Op.Subscript(Ty.SeqTy(ty, n)), [v, ix]) => CL.mkSubscript(v, ix)              | (Op.Subscript(Ty.SeqTy(ty, n)), [v, ix]) => CL.mkSubscript(v, ix)
209              | (Op.Subscript(Ty.DynSeqTy ty), [v, ix]) => let              | (Op.Subscript(Ty.DynSeqTy ty), [v, ix]) => let
210                  val elemTy = trType ty                  val elemTy = trType ty
211                    val sizeOf = CTyTranslate.sizeOfType ty
212                  in                  in
213                    CL.mkUnOp (CL.%*,                    CL.mkUnOp (CL.%*,
214                      CL.mkCast(CL.T_Ptr elemTy,                      CL.mkCast(CL.T_Ptr elemTy,
215                        CL.mkApply("Diderot_DynSeqAddr", [CL.mkSizeof elemTy, v, ix])))                        CL.mkApply("Diderot_DynSeqAddr", [sizeOf, v, ix])))
216                  end                  end
217              | (Op.Subscript(Ty.TensorTy[n]), [v, ix]) => let              | (Op.Subscript(Ty.TensorTy[n]), [v, ix]) => let
218                  val unionTy = CL.T_Named(N.unionTy n)                  val unionTy = CL.T_Named(N.unionTy n)

Legend:
Removed from v.2587  
changed lines
  Added in v.2588

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