Fix build on OS X

3660ef95 · ian@well-typed.com · f792ba4d · 3660ef95
Commit 3660ef95 authored Jun 22, 2013 by ian@well-typed.com
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

includes/rts/storage/SMPClosureOps.h includes/rts/storage/SMPClosureOps.h +4 -0

No files found.
--- a/includes/rts/storage/SMPClosureOps.h
+++ b/includes/rts/storage/SMPClosureOps.h
@@ -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; }