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 238, Thu Aug 5 23:17:46 2010 UTC revision 239, Fri Aug 6 00:36:04 2010 UTC
# Line 18  Line 18 
18        | RT_Int64 | RT_UInt64        | RT_Int64 | RT_UInt64
19        | RT_Float | RT_Double        | RT_Float | RT_Double
20    
21        fun fromString ty = (case ty
22               of "signed char" => RT_Int8
23                | "unsigned char" => RT_UInt8
24                | "short" => RT_Int16
25                | "unsigned short" => RT_UInt16
26                | "int" => RT_Int32
27                | "unsigned int" => RT_UInt32
28                | "long long int" => RT_Int64
29                | "unsigned long long int" => RT_UInt64
30                | "float" => RT_Float
31                | "double" => RT_Double
32                | _ => raise Fail("unknown raw type "^ty)
33              (* end case *))
34    
35    end    end

Legend:
Removed from v.238  
changed lines
  Added in v.239

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