Mercurial > hg > xemacs-beta

diff src/ralloc.c @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 859a2309aef8
children 131b0175ea99
line wrap: on
line diff
--- a/src/ralloc.c	Mon Aug 13 08:54:52 2007 +0200
+++ b/src/ralloc.c	Mon Aug 13 08:55:10 2007 +0200
@@ -757,7 +757,11 @@
 static int
 MHASH (VM_ADDR addr)
 {
+#if (LONGBITS == 64)
+  unsigned long int addr_shift = (unsigned long int)(addr) >> USELESS_LOWER_ADDRESS_BITS;
+#else
   unsigned int addr_shift = (unsigned int)(addr) >> USELESS_LOWER_ADDRESS_BITS;
+#endif
   int hval = addr_shift % MHASH_PRIME; /* We could have addresses which are -ve 
 					  when converted to signed ints */
   return ((hval >= 0) ? hval : MHASH_PRIME + hval);