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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/c-target.sml

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

revision 732, Sat Apr 2 03:18:30 2011 UTC revision 736, Sat Apr 2 18:50:43 2011 UTC
# Line 50  Line 50 
50        | ivecTy n = if (n < 1) orelse (!RN.gVectorWid < n)        | ivecTy n = if (n < 1) orelse (!RN.gVectorWid < n)
51            then raise Size            then raise Size
52            else T_IVec n            else T_IVec n
53        fun tensorTy [] = realTy
54          | tensorTy [n] = vecTy n
55          | tensorTy [d1, d2] = T_Mat(d1, d2)
56          | tensorTy dd = raise Fail "FIXME: order > 2 tensor type"
57      fun imageTy (ImageInfo.ImgInfo{ty=([], rTy), dim, ...}) = T_Image(dim, rTy)      fun imageTy (ImageInfo.ImgInfo{ty=([], rTy), dim, ...}) = T_Image(dim, rTy)
58      fun imageDataTy (ImageInfo.ImgInfo{ty=([], rTy), ...}) = T_Ptr rTy      fun imageDataTy (ImageInfo.ImgInfo{ty=([], rTy), ...}) = T_Ptr rTy
59      val stringTy = T_String      val stringTy = T_String

Legend:
Removed from v.732  
changed lines
  Added in v.736

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