diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-04 12:41:26 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-04 12:41:26 +0000 |
| commit | b89cda5f86a61bd68448c1aaa24c6ea767a5bfaf (patch) | |
| tree | 7724b794e66d7296f50547124ce0059fc3536bc1 /byterun/compare.c | |
| parent | 5d7edf5d8cce41eb9582ab79433d509e3a217261 (diff) | |
| download | ocaml-b89cda5f86a61bd68448c1aaa24c6ea767a5bfaf.tar.gz | |
Nettoyages pour modele IL32LLP64
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7394 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/compare.c')
| -rw-r--r-- | byterun/compare.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/compare.c b/byterun/compare.c index a709b2e473..3337f77d05 100644 --- a/byterun/compare.c +++ b/byterun/compare.c @@ -83,7 +83,7 @@ static struct compare_item * compare_resize_stack(struct compare_item * sp) #define LESS -1 #define EQUAL 0 #define GREATER 1 -#define UNORDERED (1L << (8 * sizeof(value) - 1)) +#define UNORDERED ((intnat)1 << (8 * sizeof(value) - 1)) /* The return value of compare_val is as follows: > 0 v1 is greater than v2 |