1 (* Copyright (C
) 2009 Matthew Fluet
.
2 * Copyright (C
) 1999-2006, 2008 Henry Cejtin
, Matthew Fluet
, Suresh
3 * Jagannathan
, and Stephen Weeks
.
4 * Copyright (C
) 1997-2000 NEC Research Institute
.
6 * MLton is released under a BSD
-style license
.
7 * See the file MLton
-LICENSE for details
.
10 structure Word64
= Word
12 (* Dummy implementation that will not be used at run
-time
. *)
13 structure PackWord64Big
: PACK_WORD
= struct
15 val isBigEndian
= true
16 fun subVec _
= raise Fail
"PackWord64Big.subVec"
17 fun subVecX _
= raise Fail
"PackWord64Big.subVecX"
18 fun subArr _
= raise Fail
"PackWord64Big.subArr"
19 fun subArrX _
= raise Fail
"PackWord64Big.subArrX"
20 fun update _
= raise Fail
"PackWord64Big.update"
22 (* Dummy implementation that will not be used at run
-time
. *)
23 structure PackWord64Little
: PACK_WORD
= struct
25 val isBigEndian
= false
26 fun subVec _
= raise Fail
"PackWord64Little.subVec"
27 fun subVecX _
= raise Fail
"PackWord64Little.subVecX"
28 fun subArr _
= raise Fail
"PackWord64Little.subArr"
29 fun subArrX _
= raise Fail
"PackWord64Little.subArrX"
30 fun update _
= raise Fail
"PackWord64Little.update"