#4991: base GHC/Conc/Sync causes build failure
---------------------------------+------------------------------------------
Reporter: nsch | Owner:
Type: bug | Status: new
Priority: normal | Component: libraries/base
Version: 7.1 | Keywords:
Testcase: | Blockedby:
Os: Unknown/Multiple | Blocking:
Architecture: Unknown/Multiple | Failure: Building GHC failed
---------------------------------+------------------------------------------
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
}}}
--
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/4991>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler
_______________________________________________
Glasgow-haskell-bugs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
