diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-09-11 14:58:52 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-09-11 14:58:52 +0000 |
| commit | 469677cbd20c7fa4013a05edfbb866350cd509e2 (patch) | |
| tree | fdf07cdbee271814a5e3a2353bf3b26a2b1e10bd /stdlib/pervasives.ml | |
| parent | 658954d7cef5721d7c28a97cd17f9501be1fc418 (diff) | |
| download | ocaml-469677cbd20c7fa4013a05edfbb866350cd509e2.tar.gz | |
Modif de la construction de min_int, car certains assembleurs 32 bits
font une erreur sur 1 lsl 62.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@260 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/pervasives.ml')
| -rw-r--r-- | stdlib/pervasives.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml index f64298dfbf..ce6f1de81e 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -65,7 +65,7 @@ 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 min_int = 1 lsl (if 1 lsl 31 = 0 then 30 else 62) let max_int = min_int - 1 (* Floating-point operations *) |