X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FOSThreads.c;fp=rts%2Fposix%2FOSThreads.c;h=510a51d4451bed7afadb2d793300d75fd342d4e0;hb=e1dddcb3ebc7a3365cf22592d2c162039dfb6ce4;hp=6b6fa5cf6dcc0d7139d36128cfcc2de7e3c1b0ba;hpb=728cfb0158aa4f0a663ee2e613f6874ffd240d72;p=ghc-hetmet.git

diff --git a/rts/posix/OSThreads.c b/rts/posix/OSThreads.c
index 6b6fa5c..510a51d 100644
--- a/rts/posix/OSThreads.c
+++ b/rts/posix/OSThreads.c
@@ -152,7 +152,7 @@ void
 freeThreadLocalKey (ThreadLocalKey *key)
 {
     int r;
-    if ((r = pthread_key_delete(key)) != 0) {
+    if ((r = pthread_key_delete(*key)) != 0) {
 	barf("freeThreadLocalKey: %s", strerror(r));
     }
 }