basis-library/config/objptr/objptr-rep32.sml

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