From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 3 Jan 2008 14:03:38 +0000 (+0000)
Subject: Fix warnings with newer gcc versions (I hope)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ba206f7e1bafea81ebcde17a3fff88a55040e599

Fix warnings with newer gcc versions (I hope)
---

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 */