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

SCM Repository

[diderot] Diff of /trunk/src/compiler/c-util/nrrd-types.sml
ViewVC logotype

Diff of /trunk/src/compiler/c-util/nrrd-types.sml

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

revision 1640, Wed Nov 16 02:19:51 2011 UTC revision 2636, Tue May 27 16:18:36 2014 UTC
# Line 31  Line 31 
31              | Ty.TensorTy[n] => (if !N.doublePrecision then nrrdTypeDouble else nrrdTypeFloat)              | Ty.TensorTy[n] => (if !N.doublePrecision then nrrdTypeDouble else nrrdTypeFloat)
32              | Ty.TensorTy[n, m] => (if !N.doublePrecision then nrrdTypeDouble else nrrdTypeFloat)              | Ty.TensorTy[n, m] => (if !N.doublePrecision then nrrdTypeDouble else nrrdTypeFloat)
33              | Ty.SeqTy(Ty.IntTy, _) => (if !N.doublePrecision then nrrdTypeLLong else nrrdTypeInt)              | Ty.SeqTy(Ty.IntTy, _) => (if !N.doublePrecision then nrrdTypeLLong else nrrdTypeInt)
34              | Ty.AddrTy(ImageInfo.ImgInfo{...}) => nrrdTypeUnknown              | Ty.AddrTy _ => nrrdTypeUnknown
35              | Ty.ImageTy(ImageInfo.ImgInfo{...}) => nrrdTypeUnknown              | Ty.ImageTy _ => nrrdTypeUnknown
36              | _ => raise Fail(concat["trNrrdType(", Ty.toString ty, ")"])              | _ => raise Fail(concat["trNrrdType(", Ty.toString ty, ")"])
37            (* end case *))            (* end case *))
38    
# Line 46  Line 46 
46                   | Ty.TensorTy[n] => IntInf.fromInt n                   | Ty.TensorTy[n] => IntInf.fromInt n
47                   | Ty.TensorTy[n, m] => IntInf.fromInt (n * m)                   | Ty.TensorTy[n, m] => IntInf.fromInt (n * m)
48                   | Ty.SeqTy(_, n) => IntInf.fromInt n                   | Ty.SeqTy(_, n) => IntInf.fromInt n
49                   | Ty.AddrTy(ImageInfo.ImgInfo{...}) => 0                   | Ty.AddrTy _ => 0
50                   | Ty.ImageTy(ImageInfo.ImgInfo{...}) => 0                   | Ty.ImageTy _ => 0
51                   | _ => raise Fail(concat["trNrrdType(", Ty.toString ty, ")"])                   | _ => raise Fail(concat["trNrrdType(", Ty.toString ty, ")"])
52                 (* end case *))                 (* end case *))
53            in            in

Legend:
Removed from v.1640  
changed lines
  Added in v.2636

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