The R Project SVN R

Rev

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

Rev 50910 Rev 51168
Line 80... Line 80...
80 
  /* I took this hash function just off the top of my head, I have
 80 
  /* I took this hash function just off the top of my head, I have
81 
     no idea whether it is bad or very bad. */
 81 
     no idea whether it is bad or very bad. */
82 
  hash = 0;
 82 
  hash = 0;
83 
  for (i = 0; i < (int)sizeof(ptr)*8 / TABLE_BITS; i++)
 83 
  for (i = 0; i < (int)sizeof(ptr)*8 / TABLE_BITS; i++)
84 
    {
 84 
    {
- 
 
 85 
/* R change: unsigned long may be shorter than ptr */
85 
#ifdef WIN64
 86 
#ifdef WIN64
86 
      hash ^= (size_t)ptr >> i*8;
 87 
      hash ^= (size_t)ptr >> i*8;
87 
#else
 88 
#else
88 
      hash ^= (unsigned long)ptr >> i*8;
 89 
      hash ^= (unsigned long)ptr >> i*8;
89 
#endif
 90 
#endif