From b89cda5f86a61bd68448c1aaa24c6ea767a5bfaf Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Thu, 4 May 2006 12:41:26 +0000
Subject: Nettoyages pour modele IL32LLP64

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7394 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 byterun/compare.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'byterun/compare.c')

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
-- 
cgit v1.2.1