modif de Xavier

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3085 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2000-04-14 09:41:56 +00:00 · 2000-04-14 09:41:56 +00:00 · 43ea4c20e6
parent 4b60a95476
commit 43ea4c20e6
1 changed files with 1 additions and 1 deletions
--- a/byterun/hash.c
+++ b/byterun/hash.c
@ -141,7 +141,7 @@ value hash_variant(char * tag)
  for (accu = Val_int(0); *tag != 0; tag++) 
    accu = Val_int(223 * Int_val(accu) + *((unsigned char *) tag));
 #ifdef ARCH_SIXTYFOUR
-  accu = accu & Val_int(0x7FFFFFFF);
+  accu = accu & Val_long(0x7FFFFFFFL);
 #endif
  /* Force sign extension of bit 31 for compatibility between 32 and 64-bit
     platforms */