Eval

1 files changed, 11 insertions, 0 deletions

diff --git a/caux.sml b/caux.sml
index 9c5b1c9..7dcefef 100644
--- a/caux.sml
+++ b/caux.sml
@@ -10,7 +10,18 @@ local
   val parse_float = _import "parse_float": string * int ref -> Real32.real;
   val parse_double =
     _import "parse_float": string * int ref -> Real64.real;
+
 in
   val parseFloat = parse parse_float
   val parseDouble = parse parse_double
+
+  val word64Toint64 =
+    _import "conv_word64_to_int64": Word64.word -> Int64.int;
+  val int64Toword64 =
+    _import "conv_int64_to_word64": Int64.int -> Word64.word;
+
+  val word64Toint32 =
+    _import "conv_word64_to_int32": Word64.word -> Int32.int;
+  val int32Toword64 =
+    _import "conv_int32_to_word64": Int32.int -> Word64.word;
 end