diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-22 15:06:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-22 15:06:29 +0100 |
| commit | 3660ef9554de9953cb27d4e8dd007a3ab499abab (patch) | |
| tree | a6abc5a06c2aa115e130aa3f0a2f6f8020d552ad | |
| parent | f792ba4d34222fd19dd59ea7a9d2665547875fec (diff) | |
| download | haskell-3660ef9554de9953cb27d4e8dd007a3ab499abab.tar.gz | |
Fix build on OS X
| -rw-r--r-- | includes/rts/storage/SMPClosureOps.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/includes/rts/storage/SMPClosureOps.h b/includes/rts/storage/SMPClosureOps.h index ffa2fe8fb3..2b058fede8 100644 --- a/includes/rts/storage/SMPClosureOps.h +++ b/includes/rts/storage/SMPClosureOps.h @@ -74,6 +74,10 @@ EXTERN_INLINE StgInfoTable *tryLockClosure(StgClosure *p) #else /* !THREADED_RTS */ EXTERN_INLINE StgInfoTable * +reallyLockClosure(StgClosure *p) +{ return (StgInfoTable *)p->header.info; } + +EXTERN_INLINE StgInfoTable * lockClosure(StgClosure *p) { return (StgInfoTable *)p->header.info; } |