Ajout de max_int et min_int.

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

stdlib/pervasives.ml

@@ -65,6 +65,9 @@ external (lsl) : int -> int -> int = "%lslint"
 external (lsr) : int -> int -> int = "%lsrint"
 external (asr) : int -> int -> int = "%asrint"
 
+let min_int = if 1 lsl 31 = 0 then 1 lsl 30 else 1 lsl 62
+let max_int = min_int - 1
+
 (* Floating-point operations *)
 
 external (~-.) : float -> float = "%negfloat"

stdlib/pervasives.mli

@@ -164,6 +164,10 @@ external (mod) : int -> int -> int = "%modint"
            platform-dependent. *)
 val abs : int -> int
         (* Return the absolute value of the argument. *)
+val max_int: int
+val min_int: int
+        (* The greatest and smallest representable integers. *)
+
 
 (** Bitwise operations *)