Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/ml-nlffi-lib/memory/mlrep-i32f64.sml
ViewVC logotype

Annotation of /sml/trunk/src/ml-nlffi-lib/memory/mlrep-i32f64.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1029 - (view) (download)

1 : blume 840 (*
2 :     * User-visible ML-side representation of certain primitive C types.
3 :     *
4 :     * x86/Sparc version (all ints: 32 bit, all floats: 64 bit)
5 :     *
6 :     * (C) 2001, Lucent Technologies, Bell Labs
7 :     *
8 :     * author: Matthias Blume (blume@research.bell-labs.com)
9 :     *)
10 :     structure MLRep = struct
11 :     structure SChar = Int32
12 :     structure UChar = Word32
13 :     structure SInt = Int32
14 :     structure UInt = Word32
15 :     structure SShort = Int32
16 :     structure UShort = Word32
17 :     structure SLong = Int32
18 :     structure ULong = Word32
19 :     structure Float = Real
20 :     structure Double = Real
21 : blume 1029
22 :     (* word-style bit-operations on integers... *)
23 :     structure SCharBitops = IntBitOps
24 :     (structure I = SChar structure W = UChar)
25 :     structure SIntBitops = IntBitOps
26 :     (structure I = SInt structure W = UInt)
27 :     structure SShortBitops = IntBitOps
28 :     (structure I = SShort structure W = UShort)
29 :     structure SLongBitops = IntBitOps
30 :     (structure I = SLong structure W = ULong)
31 : blume 840 end

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