stage2 crash: PAP object entered!

With stage2 today:

$ ./ghc/stage2-inplace/ghc -package foo
ghc: internal error: PAP object entered!
    (GHC version 6.11 for x86_64_unknown_linux)
    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

Interestingly, -dcore-lint doesn't find any errors. Looking at the -ddump-simpl output for Packages.hs, this is the function that is supposed to throw the exception containing the error message for an unknown package. It has been suspiciously eta-expanded a bit...

a_r5fu :: GHC.Base.String
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.Prim.State# GHC.Prim.RealWorld
          -> GHC.IOBase.IO [PackageConfig.PackageConfig]
[GlobalId]
[Arity 25]
a_r5fu =
  \ (p_a1Pc :: GHC.Base.String)
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    _
    (eta22_s5c7 :: GHC.Prim.State# GHC.Prim.RealWorld) ->
    (\ (eta23_s5dN :: GHC.Prim.State# GHC.Prim.RealWorld) ->
       ((Panic.ghcError
           @ (GHC.IOBase.IO [PackageConfig.PackageConfig])
           (Panic.CmdLineError
              (Pretty.fullRender
                 @ GHC.Base.String
                 Pretty.PageMode
                 Pretty.lvl1
                 Pretty.lvl
                 Pretty.string_txt
                 (GHC.Types.[] @ GHC.Types.Char)
                 (Pretty.Beside lvl_r5fs GHC.Bool.True (Pretty.text p_a1Pc)))))
        `cast` (GHC.IOBase.NTCo:IO [PackageConfig.PackageConfig]
                :: GHC.IOBase.IO [PackageConfig.PackageConfig]
                     ~
                   GHC.Prim.State# GHC.Prim.RealWorld
                   -> (# GHC.Prim.State# GHC.Prim.RealWorld,
                         [PackageConfig.PackageConfig] #)))
         eta23_s5dN)
    `cast` (sym (GHC.IOBase.NTCo:IO [PackageConfig.PackageConfig])
            :: GHC.Prim.State# GHC.Prim.RealWorld
               -> (# GHC.Prim.State# GHC.Prim.RealWorld,
                     [PackageConfig.PackageConfig] #)
                 ~
               GHC.IOBase.IO [PackageConfig.PackageConfig])

Trac metadata

Trac field	Value
Version	6.10.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	high
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture