Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Utilisation de la primitive %absfloat. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@685 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-03-07 13:46:46 +00:00
parent 4845863b7a
commit 2e119be662
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
stdlib/pervasives.ml
View File

@ -90,9 +90,7 @@ external asin : float -> float = "asin_float" "asin" "float"
external acos : float -> float = "acos_float" "acos" "float"
external atan : float -> float = "atan_float" "atan" "float"
external atan2 : float -> float -> float = "atan2_float" "atan2" "float"
let abs_float f = if f >= 0.0 then f else -. f
external abs_float : float -> float = "%absfloat"
external float : int -> float = "%floatofint"
external truncate : float -> int = "%intoffloat"

2
stdlib/pervasives.mli
View File

@ -226,7 +226,7 @@ external acos : float -> float = "acos_float" "acos" "float"
external atan : float -> float = "atan_float" "atan" "float"
external atan2 : float -> float -> float = "atan2_float" "atan2" "float"
(* Usual transcendental functions on floating-point numbers. *)
val abs_float : float -> float
external abs_float : float -> float = "%absfloat"
(* Return the absolute value of the argument. *)
external float : int -> float = "%floatofint"
(* Convert an integer to floating-point. *)