[MLton-commit] r4622

Matthew Fluet MLton@mlton.org
Mon, 29 May 2006 16:27:29 -0700


Synch basis-ffi.sml
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library/primitive/basis-ffi.sml

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library/primitive/basis-ffi.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library/primitive/basis-ffi.sml	2006-05-29 17:30:09 UTC (rev 4621)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library/primitive/basis-ffi.sml	2006-05-29 23:27:28 UTC (rev 4622)
@@ -961,6 +961,7 @@
 val class = _import "Real32_class" : Real32.t -> C_Int.t;
 val div = _import "Real32_div" : Real32.t * Real32.t -> Real32.t;
 val equal = _import "Real32_equal" : Real32.t * Real32.t -> Bool.t;
+val fetch = _import "Real32_fetch" : (Real32.t) ref -> Real32.t;
 val frexp = _import "Real32_frexp" : Real32.t * (C_Int.t) ref -> Real32.t;
 val gdtoa = _import "Real32_gdtoa" : Real32.t * C_Int.t * C_Int.t * (C_Int.t) ref -> C_String.t;
 val ldexp = _import "Real32_ldexp" : Real32.t * C_Int.t -> Real32.t;
@@ -990,6 +991,7 @@
 val (minNormalPosGet, minNormalPosSet) = _symbol "Real32_minNormalPos": (unit -> (Real32.t)) * ((Real32.t) -> unit);
 val (minPosGet, minPosSet) = _symbol "Real32_minPos": (unit -> (Real32.t)) * ((Real32.t) -> unit);
 val modf = _import "Real32_modf" : Real32.t * (Real32.t) ref -> Real32.t;
+val move = _import "Real32_move" : (Real32.t) ref * (Real32.t) ref -> unit;
 val mul = _import "Real32_mul" : Real32.t * Real32.t -> Real32.t;
 val muladd = _import "Real32_muladd" : Real32.t * Real32.t * Real32.t -> Real32.t;
 val mulsub = _import "Real32_mulsub" : Real32.t * Real32.t * Real32.t -> Real32.t;
@@ -997,6 +999,7 @@
 val nextAfter = _import "Real32_nextAfter" : Real32.t * Real32.t -> Real32.t;
 val round = _import "Real32_round" : Real32.t -> Real32.t;
 val signBit = _import "Real32_signBit" : Real32.t -> C_Int.t;
+val store = _import "Real32_store" : (Real32.t) ref * Real32.t -> unit;
 val strto = _import "Real32_strto" : NullString8.t -> Real32.t;
 val sub = _import "Real32_sub" : Real32.t * Real32.t -> Real32.t;
 val toReal32 = _import "Real32_toReal32" : Real32.t -> Real32.t;
@@ -1018,6 +1021,7 @@
 val class = _import "Real64_class" : Real64.t -> C_Int.t;
 val div = _import "Real64_div" : Real64.t * Real64.t -> Real64.t;
 val equal = _import "Real64_equal" : Real64.t * Real64.t -> Bool.t;
+val fetch = _import "Real64_fetch" : (Real64.t) ref -> Real64.t;
 val frexp = _import "Real64_frexp" : Real64.t * (C_Int.t) ref -> Real64.t;
 val gdtoa = _import "Real64_gdtoa" : Real64.t * C_Int.t * C_Int.t * (C_Int.t) ref -> C_String.t;
 val ldexp = _import "Real64_ldexp" : Real64.t * C_Int.t -> Real64.t;
@@ -1047,6 +1051,7 @@
 val (minNormalPosGet, minNormalPosSet) = _symbol "Real64_minNormalPos": (unit -> (Real64.t)) * ((Real64.t) -> unit);
 val (minPosGet, minPosSet) = _symbol "Real64_minPos": (unit -> (Real64.t)) * ((Real64.t) -> unit);
 val modf = _import "Real64_modf" : Real64.t * (Real64.t) ref -> Real64.t;
+val move = _import "Real64_move" : (Real64.t) ref * (Real64.t) ref -> unit;
 val mul = _import "Real64_mul" : Real64.t * Real64.t -> Real64.t;
 val muladd = _import "Real64_muladd" : Real64.t * Real64.t * Real64.t -> Real64.t;
 val mulsub = _import "Real64_mulsub" : Real64.t * Real64.t * Real64.t -> Real64.t;
@@ -1054,6 +1059,7 @@
 val nextAfter = _import "Real64_nextAfter" : Real64.t * Real64.t -> Real64.t;
 val round = _import "Real64_round" : Real64.t -> Real64.t;
 val signBit = _import "Real64_signBit" : Real64.t -> C_Int.t;
+val store = _import "Real64_store" : (Real64.t) ref * Real64.t -> unit;
 val strto = _import "Real64_strto" : NullString8.t -> Real64.t;
 val sub = _import "Real64_sub" : Real64.t * Real64.t -> Real64.t;
 val toReal32 = _import "Real64_toReal32" : Real64.t -> Real32.t;