Mercurial > hg > xemacs-beta

diff src/ralloc.c @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents ac0620f6398e
children 0132846995bd
line wrap: on
line diff
--- a/src/ralloc.c	Mon Aug 13 09:21:56 2007 +0200
+++ b/src/ralloc.c	Mon Aug 13 09:23:06 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);