diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-07-21 20:25:00 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-07-28 09:29:15 -0500 |
| commit | 2e1a0ba1229446fb0c40ff48d4790eeec4029018 (patch) | |
| tree | 1648baad552789bc6ba819a427e2250126832bf1 /rts/FileLock.c | |
| parent | a4aa6bebecdd498799399ddc0d37755aa637cd7c (diff) | |
| download | haskell-2e1a0ba1229446fb0c40ff48d4790eeec4029018.tar.gz | |
rts: delint FileLock.c
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/FileLock.c')
| -rw-r--r-- | rts/FileLock.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/FileLock.c b/rts/FileLock.c index 3a05204932..cd2dc1d1dc 100644 --- a/rts/FileLock.c +++ b/rts/FileLock.c @@ -44,8 +44,9 @@ static int cmpLocks(StgWord w1, StgWord w2) static int hashLock(HashTable *table, StgWord w) { Lock *l = (Lock *)w; + StgWord key = l->inode ^ (l->inode >> 32) ^ l->device ^ (l->device >> 32); // Just xor all 32-bit words of inode and device, hope this is good enough. - return hashWord(table, l->inode ^ (l->inode >> 32) ^ l->device ^ (l->device >> 32)); + return hashWord(table, key); } void |