diff options
Diffstat (limited to 'testsuite/tests/rts/T14900.hs')
-rw-r--r-- | testsuite/tests/rts/T14900.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/rts/T14900.hs b/testsuite/tests/rts/T14900.hs index 613f66d3a9..e1de9a6a89 100644 --- a/testsuite/tests/rts/T14900.hs +++ b/testsuite/tests/rts/T14900.hs @@ -13,6 +13,8 @@ newByteArray (I# sz) = IO $ \s -> case newByteArray# sz s of { (# s', arr# #) -> case unsafeFreezeByteArray# arr# s of { (# s'', barr# #) -> (# s', ByteArray barr# #) }} +-- Currently we expect large/compact regions not to count as pinned. +-- See #22255 for the reasoning. main :: IO () main = do ByteArray arr1# <- fmap getCompact $ newByteArray 65000 >>= compact |