diff options
author | Ben Gamari <ben@smart-cactus.org> | 2023-01-28 09:04:42 -0500 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-03-08 15:02:31 -0500 |
commit | 3ae0f368542b24b2ee2cd102cf65db8db705c83c (patch) | |
tree | 66a4a8a8d8bbc14f0ae10c0859003a5e43304bcd | |
parent | e84f716798e0d3431aa7ec42b243dc0998cb6444 (diff) | |
download | haskell-3ae0f368542b24b2ee2cd102cf65db8db705c83c.tar.gz |
nonmoving: Fix unregisterised build
-rw-r--r-- | rts/sm/NonMoving.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/sm/NonMoving.h b/rts/sm/NonMoving.h index 26031626a9..d38df26f32 100644 --- a/rts/sm/NonMoving.h +++ b/rts/sm/NonMoving.h @@ -343,10 +343,14 @@ INLINE_HEADER bool nonmovingClosureBeingSwept(StgClosure *p) } } +// N.B. RtsFlags is defined as a pointer in STG code consequently this code +// doesn't typecheck. +#if !IN_STG_CODE INLINE_HEADER bool isNonmovingClosure(StgClosure *p) { return RtsFlags.GcFlags.useNonmoving && (!HEAP_ALLOCED_GC(p) || Bdescr((P_)p)->flags & BF_NONMOVING); } +#endif #if defined(DEBUG) |