1 (* Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
8 structure ObjptrInt
= Int64
9 structure ObjptrWord
= Word64
11 functor ObjptrInt_ChooseIntN (A
: CHOOSE_INTN_ARG
) :
12 sig val f
: ObjptrInt
.int A
.t
end =
14 functor ObjptrWord_ChooseWordN (A
: CHOOSE_WORDN_ARG
) :
15 sig val f
: ObjptrWord
.word A
.t
end =
16 ChooseWordN_Word64 (A
)