diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-16 14:37:21 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-16 14:37:21 +0000 |
| commit | ba6c470611c309688549a51224e8e2400c151392 (patch) | |
| tree | eafb23cf89a9f8b45f6c2ac0eeab78ce4b6bfe5f /stdlib/nativeint.ml | |
| parent | 30e6eeed2c36f5893e6fb6c98ac8b3c10302e7df (diff) | |
| download | ocaml-ba6c470611c309688549a51224e8e2400c151392.tar.gz | |
Renommage min,max->min_int,max_int
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3095 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/nativeint.ml')
| -rw-r--r-- | stdlib/nativeint.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/nativeint.ml b/stdlib/nativeint.ml index d00c8793ab..f706a465d3 100644 --- a/stdlib/nativeint.ml +++ b/stdlib/nativeint.ml @@ -37,8 +37,8 @@ let minus_one = of_int (-1) let succ n = add n one let pred n = sub n one let abs n = if n >= zero then n else neg n -let min = shift_left one (Sys.word_size - 1) -let max = sub min one +let min_int = shift_left one (Sys.word_size - 1) +let max_int = sub min_int one let lognot n = logxor n minus_one external format : string -> nativeint -> string = "nativeint_format" |