Segfault using listThreads

Summary

listThreads causes a segfault.

Steps to reproduce

-- A.hs
main = forever $ listThreads >>= print

$ _build/stage1/bin/ghc A.hs && ./A
...snip about 1000 of the same line
[ThreadId 1]
[ThreadId 1]
[ThreadId 1]
fish: Job 1, './A' terminated by signal SIGSEGV (Address boundary error)

Expected behavior

Don't segfault.

Environment

GHC version used: 9.6.1-rc1 compiled from source at commit fbc98e66
Operating System: Mac M1 13.1
System Architecture: arm

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information