base GHC/Conc/Sync causes build failure
Current HEAD fails with:
"inplace/bin/ghc-stage1" -H64m -O0 -fasm -package-name base-4.3.1.0 -hide-all-packages -i -ilibraries/base/. -ilibraries/base/dist-install/build -ilibraries/base/dist-install/build/autogen -Ilibraries/base/dist-install/build -Ilibraries/base/dist-install/build/autogen -Ilibraries/base/include -optP-DOPTIMISE_INTEGER_GCD_LCM -optP-include -optPlibraries/base/dist-install/build/autogen/cabal_macros.h -package ghc-prim-0.2.0.0 -package integer-gmp-0.2.0.2 -package rts-1.0 -package-name base -XHaskell98 -O -fasm -no-user-package-conf -rtsopts -odir libraries/base/dist-install/build -hidir libraries/base/dist-install/build -stubdir libraries/base/dist-install/build -hisuf hi -osuf o -hcsuf hc -c libraries/base/./GHC/Conc/Sync.lhs -o libraries/base/dist-install/build/GHC/Conc/Sync.o
libraries/base/GHC/Conc/Sync.lhs:430:5:
Couldn't match expected type `(# State# RealWorld, Int# #)'
with actual type `(# t0, t1, t2, t3 #)'
In the pattern: (# s', stat, _cap, _locked #)
In a case alternative:
(# s', stat, _cap, _locked #) -> (# s', mk_stat (I# stat) #)
In the expression:
case threadStatus# t s of {
(# s', stat, _cap, _locked #) -> (# s', mk_stat (I# stat) #) }
libraries/base/GHC/Conc/Sync.lhs:451:6:
Couldn't match expected type `(# State# RealWorld, Int# #)'
with actual type `(# t0, t1, t2, t3 #)'
In the pattern: (# s', _, cap#, locked# #)
In a case alternative:
(# s', _, cap#, locked# #) -> (# s', (I# cap#, locked# /=# 0#) #)
In the expression:
case threadStatus# t s of {
(# s', _, cap#, locked# #) -> (# s', (I# cap#, locked# /=# 0#) #) }
make[1]: *** [libraries/base/dist-install/build/GHC/Conc/Sync.o] Error 1
Trac metadata
Trac field | Value |
---|---|
Version | 7.1 |
Type | Bug |
TypeOfFailure | OtherFailure |
Priority | normal |
Resolution | Unresolved |
Component | libraries/base |
Test case | |
Differential revisions | |
BlockedBy | |
Related | |
Blocking | |
CC | |
Operating system | |
Architecture |