The R Project SVN R

Rev

Rev 53310 | Rev 83460 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 53310 Rev 65805
Line 91... Line 91...
91 
     no idea whether it is bad or very bad. */
 91 
     no idea whether it is bad or very bad. */
92 
  hash = 0;
 92 
  hash = 0;
93 
  for (i = 0; i < (int)sizeof(ptr)*8 / TABLE_BITS; i++)
 93 
  for (i = 0; i < (int)sizeof(ptr)*8 / TABLE_BITS; i++)
94 
    {
 94 
    {
95 
/* R change: unsigned long may be shorter than ptr */
 95 
/* R change: unsigned long may be shorter than ptr */
96 
#ifdef WIN64
 96 
#ifdef _WIN64
97 
      hash ^= (size_t)ptr >> i*8;
 97 
      hash ^= (size_t)ptr >> i*8;
98 
#else
 98 
#else
99 
      hash ^= (unsigned long)ptr >> i*8;
 99 
      hash ^= (unsigned long)ptr >> i*8;
100 
#endif
 100 
#endif
101 
      hash += i * 17;
 101 
      hash += i * 17;