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

SCM Repository

[diderot] Diff of /trunk/src/compiler/fields/raw-types.sml
ViewVC logotype

Diff of /trunk/src/compiler/fields/raw-types.sml

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

revision 510, Tue Feb 8 16:12:38 2011 UTC revision 511, Tue Feb 8 17:01:43 2011 UTC
# Line 58  Line 58 
58              | RT_Double => "double"              | RT_Double => "double"
59            (* end case *))            (* end case *))
60    
61      (* return the size of the type in bytes *)
62        fun sizeb ty = (case ty
63               of RT_Int8 => 1
64                | RT_UInt8 => 1
65                | RT_Int16 => 2
66                | RT_UInt16 => 2
67                | RT_Int32 => 4
68                | RT_UInt32 => 4
69                | RT_Int64 => 8
70                | RT_UInt64 => 8
71                | RT_Float => 4
72                | RT_Double => 8
73              (* end case *))
74    
75    end    end

Legend:
Removed from v.510  
changed lines
  Added in v.511

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