X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FSMP.h;h=a91e5d56197783205fbbf2c98e61f870547bd344;hb=87c93cf56c83abf0148c91d5972dbe65dc72c38a;hp=f574ec8100a97f9da7790b3d9425168b8fb6f8b4;hpb=16ed3e3cd3ba05ae7222f8da2c80f8294540817d;p=ghc-hetmet.git

diff --git a/includes/SMP.h b/includes/SMP.h
index f574ec8..a91e5d5 100644
--- a/includes/SMP.h
+++ b/includes/SMP.h
@@ -206,7 +206,7 @@ lockClosure(StgClosure *p)
 }
 
 INLINE_HEADER void
-unlockClosure(StgClosure *p, StgInfoTable *info)
+unlockClosure(StgClosure *p, const StgInfoTable *info)
 {
     // This is a strictly ordered write, so we need a write_barrier():
     write_barrier();
@@ -319,7 +319,7 @@ lockClosure(StgClosure *p)
 { return (StgInfoTable *)p->header.info; }
 
 INLINE_HEADER void
-unlockClosure(StgClosure *p STG_UNUSED, StgInfoTable *info STG_UNUSED)
+unlockClosure(StgClosure *p STG_UNUSED, const StgInfoTable *info STG_UNUSED)
 { /* nothing */ }
 
 // Using macros here means we don't have to ensure the argument is in scope
@@ -336,7 +336,7 @@ INLINE_HEADER void lockTSO(StgTSO *tso)
 { lockClosure((StgClosure *)tso); }
 
 INLINE_HEADER void unlockTSO(StgTSO *tso)
-{ unlockClosure((StgClosure*)tso, (StgInfoTable*)&stg_TSO_info); }
+{ unlockClosure((StgClosure*)tso, (const StgInfoTable *)&stg_TSO_info); }
 
 #endif /* SMP_H */