[GHC] #15171: Add HeapView functionality breaks validate (stage 0 ghc is 8.4.2)

[GHC]

#15171: Add HeapView functionality breaks validate (stage 0 ghc is 8.4.2)
-------------------------------------+-------------------------------------
           Reporter:  jrp            |             Owner:  (none)
               Type:  bug            |            Status:  new
           Priority:  high           |         Milestone:  8.6.1
          Component:  Runtime        |           Version:  8.5
  System                             |
           Keywords:                 |  Operating System:  Linux
       Architecture:  x86_64         |   Type of failure:  Building GHC
  (amd64)                            |  failed
          Test Case:                 |        Blocked By:
           Blocking:                 |   Related Tickets:
Differential Rev(s):                 |         Wiki Page:
  https://phabricator.haskell.org/D3055|
-------------------------------------+-------------------------------------
 {{{
 "/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
 }}}

-- 
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/15171>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler