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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/common/raw-types.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/common/raw-types.sml

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

revision 3926, Sat Jun 4 05:01:29 2016 UTC revision 3927, Sat Jun 4 21:20:01 2016 UTC
# Line 2  Line 2 
2   *   *
3   * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)   * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4   *   *
5   * COPYRIGHT (c) 2015 The University of Chicago   * COPYRIGHT (c) 2016 The University of Chicago
6   * All rights reserved.   * All rights reserved.
7   *   *
8   * This file defines the representation of the raw scalar types used to   * This file defines the representation of the raw scalar types used to
# Line 13  Line 13 
13    struct    struct
14    
15    (* raw numeric types as supported by NRRD *)    (* raw numeric types as supported by NRRD *)
16      datatype ty      datatype t
17        = RT_Int8 | RT_UInt8        = RT_Int8 | RT_UInt8
18        | RT_Int16 | RT_UInt16        | RT_Int16 | RT_UInt16
19        | RT_Int32 | RT_UInt32        | RT_Int32 | RT_UInt32
# Line 22  Line 22 
22    
23      val realTy = ref RT_Float   (* default real type; this is set in Main.main *)      val realTy = ref RT_Float   (* default real type; this is set in Main.main *)
24    
25      fun same (a : ty, b) = (a = b)      fun same (a : t, b) = (a = b)
26    
27      fun hash RT_Int8    = 0w17      fun hash RT_Int8    = 0w17
28        | hash RT_UInt8   = 0w59        | hash RT_UInt8   = 0w59

Legend:
Removed from v.3926  
changed lines
  Added in v.3927

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