Bug 1806109 - [s390x] FTBFS: ghc-lib-parser fails to build
Summary: [s390x] FTBFS: ghc-lib-parser fails to build
Keywords:
Status: CLOSED RAWHIDE
Alias: None
Product: Fedora
Classification: Fedora
Component: ghc-ghc-lib-parser
Version: 37
Hardware: s390x
OS: Linux
unspecified
medium
Target Milestone: ---
Assignee: Jens Petersen
QA Contact: Fedora Extras Quality Assurance
URL:
Whiteboard:
Depends On:
Blocks:
TreeView+ depends on / blocked
 
Reported: 2020-02-22 07:08 UTC by Jens Petersen
Modified: 2023-02-21 08:53 UTC (History)
1 user (show)

Fixed In Version: ghc-ghc-lib-parser-9.2.5.20221107-3.fc38
Doc Type: If docs needed, set a value
Doc Text:
Clone Of:
Environment:
Last Closed: 2023-02-21 08:53:28 UTC
Type: Bug
Embargoed:


Attachments (Terms of Use)

Description Jens Petersen 2020-02-22 07:08:02 UTC
Description of problem:
Recent hlint releases > 2.1.17 require the new ghc-lib-parser library.
However currently it fails to build on s390x.

Version-Release number of selected component (if applicable):
ghc-8.6.5-102.fc32.s390x
hlint-2.1.26-1.fc32
ghc-lib-parser-8.8.0.20190424
ghc-lib-parser-8.8.2.20200205

How reproducible:
100%

Steps to Reproduce:
1. Build hlint in f32

Actual results:
Configuring ghc-lib-parser-8.8.0.20190424...
+ '[' -x Setup ']'
+ LANG=C.utf8
+ ./Setup build
Preprocessing library for ghc-lib-parser-8.8.0.20190424..
In file included from /usr/lib64/ghc-8.6.5/include/Stg.h:319,
                 from /usr/lib64/ghc-8.6.5/include/Rts.h:29,
                 from InfoTable.hsc:8:
/usr/lib64/ghc-8.6.5/include/stg/SMP.h: In function ‘write_barrier’:
/usr/lib64/ghc-8.6.5/include/stg/SMP.h:200:2: error: #error memory barriers unimplemented on this architecture
  200 | #error memory barriers unimplemented on this architecture
      |  ^~~~~
/usr/lib64/ghc-8.6.5/include/stg/SMP.h: In function ‘store_load_barrier’:
/usr/lib64/ghc-8.6.5/include/stg/SMP.h:222:2: error: #error memory barriers unimplemented on this architecture
  222 | #error memory barriers unimplemented on this architecture
      |  ^~~~~
/usr/lib64/ghc-8.6.5/include/stg/SMP.h: In function ‘load_load_barrier’:
/usr/lib64/ghc-8.6.5/include/stg/SMP.h:245:2: error: #error memory barriers unimplemented on this architecture
  245 | #error memory barriers unimplemented on this architecture
      |  ^~~~~
compiling dist/build/GHC/Exts/Heap/InfoTable_hsc_make.c failed (exit code 1)
command was: /usr/bin/gcc -c dist/build/GHC/Exts/Heap/InfoTable_hsc_make.c -o dist/build/GHC/Exts/Heap/InfoTable_hsc_make.o -fno-stack-protector -fno-stack-protector -fuse-ld=gold -D__GLASGOW_HASKELL__=806 -Dlinux_BUILD_OS=1 -Ds390x_BUILD_ARCH=1 -Dlinux_HOST_OS=1 -Ighc-lib/generated -Ighc-lib/stage0/compiler/build -Ighc-lib/stage1/compiler/build -Icompiler -Icompiler/utils -Idist/build/ghc-lib/generated -Idist/build/ghc-lib/stage0/compiler/build -Idist/build/ghc-lib/stage1/compiler/build -Idist/build/compiler -Idist/build/compiler/utils -DTHREADED_RTS -DSTAGE=2 -DTHREADED_RTS -DGHCI -DGHC_IN_GHCI -Idist/build/autogen -Idist/build/global-autogen -include dist/build/autogen/cabal_macros.h -I/usr/lib64/ghc-8.6.5/process-1.6.5.0/include -I/usr/lib64/ghc-8.6.5/unix-2.7.2.2/include -I/usr/lib64/ghc-8.6.5/time-1.8.0.2/include -I/usr/lib64/ghc-8.6.5/bytestring-0.10.8.2/include -I/usr/lib64/ghc-8.6.5/base-4.12.0.0/include -I/usr/lib64/ghc-8.6.5/integer-gmp-1.0.2.0/include -I/usr/lib64/ghc-8.6.5/include -I/usr/lib64/ghc-8.6.5/include/

Expected results:
Not error

Additional info:
Reported upstream in https://github.com/digital-asset/ghc-lib/issues/184

Comment 2 Ben Cotton 2020-08-11 15:26:41 UTC
This bug appears to have been reported against 'rawhide' during the Fedora 33 development cycle.
Changing version to 33.

Comment 3 Jens Petersen 2020-09-01 08:11:22 UTC
Same with ghc-8.8.4

Comment 4 Ben Cotton 2021-02-09 16:15:46 UTC
This bug appears to have been reported against 'rawhide' during the Fedora 34 development cycle.
Changing version to 34.

Comment 5 Jens Petersen 2022-09-05 06:27:53 UTC
In F37 (ghc-8.10.7) it gets a little bit further:

Building library for ghc-lib-parser-8.10.7.20220219..
[  1 of 228] Compiling GHC.BaseDir
In file included from /usr/lib64/ghc-8.10.7/include/Stg.h:318,
                 from /tmp/ghc3054439_0/ghc_224.hc:3:0: error: 
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:442:2: error:
     error: #error BaseReg must be in a register for THREADED_RTS
      442 | #error BaseReg must be in a register for THREADED_RTS
          |  ^~~~~
    |
442 | #error BaseReg must be in a register for THREADED_RTS
    |  ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘s2v6_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:58:9: error:
     note: in expansion of macro ‘R1’
       58 | _s2v6 = R1.w;
          |         ^~
   |
58 | _s2v6 = R1.w;
   |         ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     note: each undeclared identifier is reported only once for each function it appears in
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:58:9: error:
     note: in expansion of macro ‘R1’
       58 | _s2v6 = R1.w;
          |         ^~
   |
58 | _s2v6 = R1.w;
   |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘s2v9_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:84:9: error:
     note: in expansion of macro ‘R1’
       84 | _s2v9 = R1.w;
          |         ^~
   |
84 | _s2v9 = R1.w;
   |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘s2vj_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:108:9: error:
     note: in expansion of macro ‘R1’
      108 | _s2vj = R1.w;
          |         ^~
    |
108 | _s2vj = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘ghczmlibzmparserzm8zi10zi7zi20220219zm2KTL4PvUSPzz69fBdVajaEP_GHCziBaseDir_expandPathVar_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:138:15: error:
     note: in expansion of macro ‘Sp’
      138 | if ((W_)(((W_)Sp+(-0x20UL)) < (W_)SpLim)) goto _c2wK; else goto _c2wL;
          |               ^~
    |
138 | if ((W_)(((W_)Sp+(-0x20UL)) < (W_)SpLim)) goto _c2wK; else goto _c2wL;
    |               ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2vK’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:181:9: error:
     note: in expansion of macro ‘R1’
      181 | _s2v2 = R1.w;
          |         ^~
    |
181 | _s2v2 = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2wf’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:220:9: error:
     note: in expansion of macro ‘R1’
      220 | _s2va = R1.w;
          |         ^~
    |
220 | _s2va = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2wl’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:249:16: error:
     note: in expansion of macro ‘R1’
      249 | switch (*((P_)(R1.w+0x7UL))) {
          |                ^~
    |
249 | switch (*((P_)(R1.w+0x7UL))) {
    |                ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2ws’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:281:9: error:
     note: in expansion of macro ‘R1’
      281 | _s2vg = R1.w;
          |         ^~
    |
281 | _s2vg = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2w6’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:463:13: error:
     note: in expansion of macro ‘BaseReg’
      463 | #define Hp (BaseReg->rHp)
          |             ^~~~~~~
    |
463 | #define Hp (BaseReg->rHp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:323:1: error:
     note: in expansion of macro ‘Hp’
      323 | Hp=Hp+5;
          | ^~
    |
323 | Hp=Hp+5;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2vO’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:354:9: error:
     note: in expansion of macro ‘R1’
      354 | _s2v3 = R1.w;
          |         ^~
    |
354 | _s2v3 = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2wS’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:394:1: error:
     note: in expansion of macro ‘R1’
      394 | R1.w = (W_)&ghczmprim_GHCziTypes_ZMZN_closure+1;
          | ^~
    |
394 | R1.w = (W_)&ghczmprim_GHCziTypes_ZMZN_closure+1;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘ghczmlibzmparserzm8zi10zi7zi20220219zm2KTL4PvUSPzz69fBdVajaEP_GHCziBaseDir_expandTopDir1_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:413:9: error:
     note: in expansion of macro ‘R1’
      413 | _r2pf = R1.w;
          |         ^~
    |
413 | _r2pf = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘ghczmlibzmparserzm8zi10zi7zi20220219zm2KTL4PvUSPzz69fBdVajaEP_GHCziBaseDir_expandTopDir_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:453:15: error:
     note: in expansion of macro ‘Sp’
      453 | if ((W_)(((W_)Sp+(-0x8UL)) < (W_)SpLim)) goto _c2xM; else goto _c2xN;
          |               ^~
    |
453 | if ((W_)(((W_)Sp+(-0x8UL)) < (W_)SpLim)) goto _c2xM; else goto _c2xN;
    |               ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘ghczmlibzmparserzm8zi10zi7zi20220219zm2KTL4PvUSPzz69fBdVajaEP_GHCziBaseDir_getBaseDirzub_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:491:9: error:
     note: in expansion of macro ‘R1’
      491 | _r2pi = R1.w;
          |         ^~
    |
491 | _r2pi = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘s2vs_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:552:9: error:
     note: in expansion of macro ‘R1’
      552 | _s2vs = R1.w;
          |         ^~
    |
552 | _s2vs = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘s2vD_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:578:9: error:
     note: in expansion of macro ‘R1’
      578 | _s2vD = R1.w;
          |         ^~
    |
578 | _s2vD = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2y7’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:606:1: error:
     note: in expansion of macro ‘Sp’
      606 | Sp[1] = (W_)&c2y9_info;
          | ^~
    |
606 | Sp[1] = (W_)&c2y9_info;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2y9’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:631:9: error:
     note: in expansion of macro ‘R1’
      631 | _s2vr = R1.w;
          |         ^~
    |
631 | _s2vr = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2yt’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:667:1: error:
     note: in expansion of macro ‘Sp’
      667 | Sp[1] = (W_)&c2yv_info;
          | ^~
    |
667 | Sp[1] = (W_)&c2yv_info;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2yv’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:161:14: error:
     note: in expansion of macro ‘BaseReg’
      161 | # define R1 (BaseReg->rR1)
          |              ^~~~~~~
    |
161 | # define R1 (BaseReg->rR1)
    |              ^
/tmp/ghc3054439_0/ghc_224.hc:692:9: error:
     note: in expansion of macro ‘R1’
      692 | _s2vw = R1.w;
          |         ^~
    |
692 | _s2vw = R1.w;
    |         ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2yO’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:721:1: error:
     note: in expansion of macro ‘Sp’
      721 | Sp[-1] = R1.w;
          | ^~
    |
721 | Sp[-1] = R1.w;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2yE’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:739:1: error:
     note: in expansion of macro ‘Sp’
      739 | Sp[-1] = R1.w;
          | ^~
    |
739 | Sp[-1] = R1.w;
    | ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘ghczmlibzmparserzm8zi10zi7zi20220219zm2KTL4PvUSPzz69fBdVajaEP_GHCziBaseDir_getBaseDir1_entry’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:451:13: error:
     note: in expansion of macro ‘BaseReg’
      451 | #define Sp (BaseReg->rSp)
          |             ^~~~~~~
    |
451 | #define Sp (BaseReg->rSp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:761:15: error:
     note: in expansion of macro ‘Sp’
      761 | if ((W_)(((W_)Sp+(-0x20UL)) < (W_)SpLim)) goto _c2z3; else goto _c2z4;
          |               ^~
    |
761 | if ((W_)(((W_)Sp+(-0x20UL)) < (W_)SpLim)) goto _c2z3; else goto _c2z4;
    |               ^
/tmp/ghc3054439_0/ghc_224.hc: In function ‘_c2y1’:
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:444:46: error:
     error: ‘MainCapability’ undeclared (first use in this function); did you mean ‘PartCapability_’?
      444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
          |                                              ^~~~~~~~~~~~~~
    |
444 | #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
    |                                              ^
/usr/lib64/ghc-8.10.7/include/stg/Regs.h:463:13: error:
     note: in expansion of macro ‘BaseReg’
      463 | #define Hp (BaseReg->rHp)
          |             ^~~~~~~
    |
463 | #define Hp (BaseReg->rHp)
    |             ^
/tmp/ghc3054439_0/ghc_224.hc:794:1: error:
     note: in expansion of macro ‘Hp’
      794 | Hp=Hp+5;
          | ^~
    |
794 | Hp=Hp+5;
    | ^
`gcc' failed in phase `C Compiler'. (Exit code: 1)


Note You need to log in before you can comment on or make changes to this bug.