Bug#1016141: segfault in ghc-pkg on hppa architecture

[Helge Deller]

Package: ghc
Version: 9.0.2-3
Tags: hppa

When running this command:
/usr/lib/ghc/bin/ghc-pkg --global-package-db /usr/lib/ghc/package.conf.d list
I face a segfault on the hppa architecture.

Example:
(sid_hppa)root at phantom:/# /usr/lib/ghc/bin/ghc-pkg --global-package-db /usr/lib/ghc/package.conf.d list
/usr/lib/ghc/package.conf.d
    Cabal-3.4.1.0
    array-0.5.4.0
    base-4.15.1.0
    binary-0.8.8.0
    [.... many more...]
    unix-2.7.2.2
    xhtml-3000.2.2.1
Segmentation fault

strace shows:
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    terminfo-0.4.1.5\n", 21    terminfo-0.4.1.5
)  = 21
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    text-1.2.5.0\n", 17    text-1.2.5.0
)      = 17
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    time-1.9.3\n", 15    time-1.9.3
)        = 15
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    transformers-0.5.6.2\n", 25    transformers-0.5.6.2
) = 25
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    unix-2.7.2.2\n", 17    unix-2.7.2.2
)      = 17
poll([{fd=1, events=POLLOUT}], 1, 0)    = 1 ([{fd=1, revents=POLLOUT}])
write(1, "    xhtml-3000.2.2.1\n", 21    xhtml-3000.2.2.1
)  = 21
--- SIGVTALRM {si_signo=SIGVTALRM, si_code=SI_TIMER, si_timerid=0, si_overrun=10, si_value={int=0, ptr=NULL}} ---
rt_sigreturn({mask=[]})                 = 4175667210
--- SIGSEGV {si_signo=SIGSEGV, si_code=SEGV_MAPERR, si_addr=0x9d92c8} ---
+++ killed by SIGSEGV +++
Segmentation fault