diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-18 08:51:28 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-18 08:51:28 +0000 |
commit | f4ca3d65bd87d704b0fb56cd841bab07b81173f0 (patch) | |
tree | 88330e7aaec97e510e2c6ff2bcc1d1106f855467 /stdlib/int32.ml | |
parent | 511b966ba78bc051969bf46cb432dd79d60d4690 (diff) | |
download | ocaml-f4ca3d65bd87d704b0fb56cd841bab07b81173f0.tar.gz |
Ajout {Int32,Int64,Nativeint}.{of_float,to_float}
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3103 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/int32.ml')
-rw-r--r-- | stdlib/int32.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/stdlib/int32.ml b/stdlib/int32.ml index 40beb146c4..d56c5385de 100644 --- a/stdlib/int32.ml +++ b/stdlib/int32.ml @@ -28,6 +28,8 @@ external shift_right : int32 -> int -> int32 = "%int32_asr" external shift_right_logical : int32 -> int -> int32 = "%int32_lsr" external of_int : int -> int32 = "%int32_of_int" external to_int : int32 -> int = "%int32_to_int" +external of_float : float -> int32 = "int32_of_float" +external to_float : int32 -> float = "int32_to_float" let zero = of_int 0 let one = of_int 1 |