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 2589, Thu Apr 17 19:12:55 2014 UTC revision 2590, Thu Apr 17 19:26:31 2014 UTC
# Line 206  Line 206 
206                    CL.mkSubscript(vecExp, ix)                    CL.mkSubscript(vecExp, ix)
207                  end                  end
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 as Ty.TensorTy[n])), [v, ix]) => let
210                    val elemTy = trType ty
211                    val sizeOf = CTyTranslate.sizeOfType ty
212                    in
213                      CL.mkApply(N.loadVec n,
214                        [CL.mkApply("Diderot_DynSeqAddr", [sizeOf, v, ix])])
215                    end
216              | (Op.Subscript(Ty.DynSeqTy ty), [v, ix]) => let              | (Op.Subscript(Ty.DynSeqTy ty), [v, ix]) => let
217                  val elemTy = trType ty                  val elemTy = trType ty
218                  val sizeOf = CTyTranslate.sizeOfType ty                  val sizeOf = CTyTranslate.sizeOfType ty

Legend:
Removed from v.2589  
changed lines
  Added in v.2590

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