summaryrefslogtreecommitdiff
path: root/rts/FileLock.c
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2015-11-03 16:16:27 -0600
committerAustin Seipp <austin@well-typed.com>2015-11-03 16:16:30 -0600
commit334fe4500c234e83f250f74679f7bbe20208abba (patch)
tree2fad3f32a81b9fe2a4b0eaa3dd4026728851ab1d /rts/FileLock.c
parentb62605e53c167719b3bf8842eba628061cf22dd1 (diff)
downloadhaskell-334fe4500c234e83f250f74679f7bbe20208abba.tar.gz
rts/Hash: Constify HashTable* in lookupHashTable
This seems like an obvious place to apply `const` Reviewed By: simonmar, austin Differential Revision: https://phabricator.haskell.org/D1416
Diffstat (limited to 'rts/FileLock.c')
-rw-r--r--rts/FileLock.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/FileLock.c b/rts/FileLock.c
index cd2dc1d1dc..f8e11ee1bf 100644
--- a/rts/FileLock.c
+++ b/rts/FileLock.c
@@ -41,7 +41,7 @@ static int cmpLocks(StgWord w1, StgWord w2)
return (l1->device == l2->device && l1->inode == l2->inode);
}
-static int hashLock(HashTable *table, StgWord w)
+static int hashLock(const HashTable *table, StgWord w)
{
Lock *l = (Lock *)w;
StgWord key = l->inode ^ (l->inode >> 32) ^ l->device ^ (l->device >> 32);