diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-01-03 14:03:38 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-01-03 14:03:38 +0000 |
| commit | ba206f7e1bafea81ebcde17a3fff88a55040e599 (patch) | |
| tree | 6bffe621ec792fd593ccfcf1d1431ccc0615f781 /includes/SMP.h | |
| parent | f89b598d9d023eb4a33d26cd4d2c446ace25bef1 (diff) | |
| download | haskell-ba206f7e1bafea81ebcde17a3fff88a55040e599.tar.gz | |
Fix warnings with newer gcc versions (I hope)
Diffstat (limited to 'includes/SMP.h')
| -rw-r--r-- | includes/SMP.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/includes/SMP.h b/includes/SMP.h index f574ec8100..a91e5d5619 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 */ |