diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-25 11:39:02 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-25 11:39:02 +0000 |
| commit | 7fcb1d47c53410bbeb011989c6f2b5f809e7da06 (patch) | |
| tree | 8bce74f1f76d8680eaab7cc91936200fd97834db /stdlib/pervasives.ml | |
| parent | 8deb415b89da7584a8358b49f748073349c6c6f0 (diff) | |
| download | ocaml-7fcb1d47c53410bbeb011989c6f2b5f809e7da06.tar.gz | |
Annotations "noalloc" sur les primitives.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@144 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 4bdd94c5f8..9583308fbe 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -15,7 +15,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" +external compare: 'a -> 'a -> int = "compare" "noalloc" let min x y = if x <= y then x else y let max x y = if x >= y then x else y |