Commit 3660ef95 authored by ian@well-typed.com's avatar ian@well-typed.com

Fix build on OS X

parent f792ba4d
......@@ -73,6 +73,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; }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment