|
From: Matthew F. <fl...@ml...> - 2006-05-29 16:27:29
|
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; |