diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2023-01-28 09:04:42 -0500 |
|---|---|---|
| committer | Zubin Duggal <zubin.duggal@gmail.com> | 2023-04-14 13:07:40 +0530 |
| commit | f9b47bdecfc1ba7646b912215b18989312254fc0 (patch) | |
| tree | dfb1d4196dc4e90350b59694fd527625dae95b22 | |
| parent | 4b6acb26465d4eb72cb015f24c11bd82758dc6a3 (diff) | |
| download | haskell-f9b47bdecfc1ba7646b912215b18989312254fc0.tar.gz | |
nonmoving: Fix unregisterised build
(cherry picked from commit f2ef2f5e7a01cf5ec97b751f344233a6a8b781ca)
| -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 4d4cd4f35a..b75072d3e8 100644 --- a/rts/sm/NonMoving.h +++ b/rts/sm/NonMoving.h @@ -340,10 +340,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) |