rts: Fix isByteArrayPinned#'s treatment of large arrays
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 3 Jul 2017 23:09:03 +0000 (19:09 -0400)
committerBen Gamari <ben@smart-cactus.org>
Mon, 3 Jul 2017 23:42:21 +0000 (19:42 -0400)
commita6f3d1b00e9c37a56cd4db9e519309e94a65d181
treeb2133ecde8fef1e90649a667b20946fde4a62d8a
parentef63ff27251a20ff11e58c9303677fa31e609a88
rts: Fix isByteArrayPinned#'s treatment of large arrays

It should respond with True to both BF_PINNED and BF_LARGE byte arrays.
However, previously it would only check the BF_PINNED flag.

Test Plan: Validate

Reviewers: simonmar, austin, erikd

Subscribers: winterland1989, rwbarton, thomie

GHC Trac Issues: #13894

Differential Revision: https://phabricator.haskell.org/D3685
rts/PrimOps.cmm
testsuite/tests/rts/T13894.hs [new file with mode: 0644]
testsuite/tests/rts/all.T