Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • rts/Hash.c
    ... ... @@ -81,7 +81,7 @@ hashWord(const HashTable *table, StgWord key)
    81 81
         int bucket;
    
    82 82
     
    
    83 83
         /* Strip the boring zero bits */
    
    84
    -    key >>= sizeof(StgWord);
    
    84
    +    key /= sizeof(StgWord);
    
    85 85
     
    
    86 86
         /* Mod the size of the hash table (a power of 2) */
    
    87 87
         bucket = key & table->mask1;