diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1998-11-11 15:35:48 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1998-11-11 15:35:48 +0000 |
| commit | 939d9b30a9240aa8d78e833fe5af07d262f40968 (patch) | |
| tree | a5efeb0af8d38128eeecd4fe9bfe03ab39849a9f /stdlib/pervasives.ml | |
| parent | 6c220cd9c17d296e3abb0aa0907eb303df5d0a12 (diff) | |
| download | ocaml-939d9b30a9240aa8d78e833fe5af07d262f40968.tar.gz | |
En ocamlopt, les acces hors bornes levent Invalid_argument au lieu de planter le programme. Itou pour les fonctions C qui appellent invalid_argument. Teste sur Intel, a tester sur les autres
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2165 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 11c590ebc6..9ba8078b57 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -31,7 +31,7 @@ external (<) : 'a -> 'a -> bool = "%lessthan" external (>) : 'a -> 'a -> bool = "%greaterthan" external (<=) : 'a -> 'a -> bool = "%lessequal" external (>=) : 'a -> 'a -> bool = "%greaterequal" -external compare: 'a -> 'a -> int = "compare" "noalloc" +external compare: 'a -> 'a -> int = "compare" let min x y = if x <= y then x else y let max x y = if x >= y then x else y |