Commits

Anonymous committed 2df923b

Declarations des primitives flottantes.
Declaration des primitives sur les objets.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@154f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (4)

 external magic : 'a -> 'b = "%identity"
 external is_block : t -> bool = "obj_is_block"
 external tag : t -> int = "obj_tag"
-external size : t -> int = "%array_length"
-external field : t -> int -> t = "%array_unsafe_get"
-external set_field : t -> int -> t -> unit = "%array_unsafe_set"
+external size : t -> int = "%obj_size"
+external field : t -> int -> t = "%obj_field"
+external set_field : t -> int -> t -> unit = "%obj_set_field"
 external new_block : int -> int -> t = "obj_block"
 external magic : 'a -> 'b = "%identity"
 external is_block : t -> bool = "obj_is_block"
 external tag : t -> int = "obj_tag"
-external size : t -> int = "%array_length"
-external field : t -> int -> t = "%array_unsafe_get"
-external set_field : t -> int -> t -> unit = "%array_unsafe_set"
+external size : t -> int = "%obj_size"
+external field : t -> int -> t = "%obj_field"
+external set_field : t -> int -> t -> unit = "%obj_set_field"
 external new_block : int -> int -> t = "obj_block"

stdlib/pervasives.ml

 external (-.) : float -> float -> float = "%subfloat"
 external ( *. ) : float -> float -> float = "%mulfloat"
 external (/.) : float -> float -> float = "%divfloat"
-external ( ** ) : float -> float -> float = "power_float"
-external exp : float -> float = "exp_float"
-external log : float -> float = "log_float"
-external sqrt : float -> float = "sqrt_float"
-external sin : float -> float = "sin_float"
-external cos : float -> float = "cos_float"
-external tan : float -> float = "tan_float"
-external asin : float -> float = "asin_float"
-external acos : float -> float = "acos_float"
-external atan : float -> float = "atan_float"
-external atan2 : float -> float -> float = "atan2_float"
+external ( ** ) : float -> float -> float = "power_float" "pow" "float"
+external exp : float -> float = "exp_float" "exp" "float"
+external log : float -> float = "log_float" "log" "float"
+external sqrt : float -> float = "sqrt_float" "sqrt" "float"
+external sin : float -> float = "sin_float" "sin" "float"
+external cos : float -> float = "cos_float" "cos" "float"
+external tan : float -> float = "tan_float" "tan" "float"
+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
 

stdlib/pervasives.mli

 external (-.) : float -> float -> float = "%subfloat"
 external ( *. ) : float -> float -> float = "%mulfloat"
 external (/.) : float -> float -> float = "%divfloat"
-external ( ** ) : float -> float -> float = "power_float"
-external exp : float -> float = "exp_float"
-external log : float -> float = "log_float"
-external sqrt : float -> float = "sqrt_float"
-external sin : float -> float = "sin_float"
-external cos : float -> float = "cos_float"
-external tan : float -> float = "tan_float"
-external asin : float -> float = "asin_float"
-external acos : float -> float = "acos_float"
-external atan : float -> float = "atan_float"
-external atan2 : float -> float -> float = "atan2_float"
+external ( ** ) : float -> float -> float = "power_float" "pow" "float"
+external exp : float -> float = "exp_float" "exp" "float"
+external log : float -> float = "log_float" "log" "float"
+external sqrt : float -> float = "sqrt_float" "sqrt" "float"
+external sin : float -> float = "sin_float" "sin" "float"
+external cos : float -> float = "cos_float" "cos" "float"
+external tan : float -> float = "tan_float" "tan" "float"
+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"
 val abs_float : float -> float
 external float : int -> float = "%floatofint"
 external truncate : float -> int = "%intoffloat"