Add HeapView functionality breaks validate (stage 0 ghc is 8.4.2)

"/opt/ghc/bin/ghc" -hisuf hi -osuf  o -hcsuf hc -static  -O0 -H64m -Wall   -package-db libraries/bootstrapping.conf  -this-unit-id mtl-2.2.2 -hide-all-packages -i -ilibraries/mtl/. -ilibraries/mtl/dist-boot/build -Ilibraries/mtl/dist-boot/build -ilibraries/mtl/dist-boot/build/./autogen -Ilibraries/mtl/dist-boot/build/./autogen -Ilibraries/mtl/.    -optP-include -optPlibraries/mtl/dist-boot/build/./autogen/cabal_macros.h -package-id base-4.11.1.0 -package-id transformers-0.5.5.0 -Wall -fno-warn-unused-imports -fno-warn-warnings-deprecations -Wcompat -Wnoncanonical-monad-instances -Wnoncanonical-monadfail-instances -XHaskell2010   -no-user-package-db -rtsopts  -fno-warn-deprecated-flags      -odir libraries/mtl/dist-boot/build -hidir libraries/mtl/dist-boot/build -stubdir libraries/mtl/dist-boot/build    -c libraries/mtl/./Control/Monad/RWS/Lazy.hs -o libraries/mtl/dist-boot/build/Control/Monad/RWS/Lazy.o 

libraries/ghc-heap/GHC/Exts/Heap.hs:119:48: error:
    • Couldn't match expected type ‘ByteArray#’
                  with actual type ‘Array# b0’
    • In the first argument of ‘sizeofByteArray#’, namely ‘dat’
      In the first argument of ‘I#’, namely ‘(sizeofByteArray# dat)’
      In the first argument of ‘div’, namely
        ‘(I# (sizeofByteArray# dat))’
    • Relevant bindings include
        dat :: Array# b0
          (bound at libraries/ghc-heap/GHC/Exts/Heap.hs:115:18)
    |
119 |             let nelems = (I# (sizeofByteArray# dat)) `div` wORD_SIZE
    |                                                ^^^

libraries/ghc-heap/GHC/Exts/Heap.hs:121:47: error:
    • Couldn't match expected type ‘ByteArray#’
                  with actual type ‘Array# b0’
    • In the first argument of ‘indexWordArray#’, namely ‘dat’
      In the first argument of ‘W#’, namely ‘(indexWordArray# dat i)’
      In the expression: W# (indexWordArray# dat i)
    • Relevant bindings include
        dat :: Array# b0
          (bound at libraries/ghc-heap/GHC/Exts/Heap.hs:115:18)
    |
121 |                 rawWds = [W# (indexWordArray# dat i) | I# i <- [0.. end] ]
    |                                               ^^^

libraries/ghc-heap/GHC/Exts/Heap.hs:122:43: error:
    • Couldn't match expected type ‘Array# a0’
                  with actual type ‘ByteArray#’
    • In the first argument of ‘sizeofArray#’, namely ‘pointers’
      In the first argument of ‘I#’, namely ‘(sizeofArray# pointers)’
      In the expression: I# (sizeofArray# pointers)
    |
122 |                 pelems = I# (sizeofArray# pointers)
    |                                           ^^^^^^^^

libraries/ghc-heap/GHC/Exts/Heap.hs:123:67: error:
    • Couldn't match expected type ‘Array# Any’
                  with actual type ‘ByteArray#’
    • In the fourth argument of ‘Array’, namely ‘pointers’
      In the second argument of ‘($)’, namely
        ‘Array 0 (pelems - 1) pelems pointers’
      In the expression: amap' Box $ Array 0 (pelems - 1) pelems pointers
    |
123 |                 ptrList = amap' Box $ Array 0 (pelems - 1) pelems pointers
    |                                                                   ^^^^^^^^
libraries/ghc-heap/ghc.mk:3: recipe for target 'libraries/ghc-heap/dist-boot/build/GHC/Exts/Heap.o' failed
make[1]: *** [libraries/ghc-heap/dist-boot/build/GHC/Exts/Heap.o] Error 1

Trac metadata

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