diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-05-04 20:27:42 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-05-04 20:28:58 +0100 |
| commit | f0fcc41d755876a1b02d1c7c79f57515059f6417 (patch) | |
| tree | 89cce0cfc61744b1c7b732619ea9de04f21fdcfe /testsuite/tests/concurrent/should_run/allocLimit3.hs | |
| parent | 5141baf76132fe0d8f88cfa0a62698cc3b37e48a (diff) | |
| download | haskell-f0fcc41d755876a1b02d1c7c79f57515059f6417.tar.gz | |
Revert "Per-thread allocation counters and limits"
Problems were found on 32-bit platforms, I'll commit again when I have a fix.
This reverts the following commits:
54b31f744848da872c7c6366dea840748e01b5cf
b0534f78a73f972e279eed4447a5687bd6a8308e
Diffstat (limited to 'testsuite/tests/concurrent/should_run/allocLimit3.hs')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/allocLimit3.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/testsuite/tests/concurrent/should_run/allocLimit3.hs b/testsuite/tests/concurrent/should_run/allocLimit3.hs deleted file mode 100644 index 28881dc016..0000000000 --- a/testsuite/tests/concurrent/should_run/allocLimit3.hs +++ /dev/null @@ -1,15 +0,0 @@ -module Main (main) where - -import GHC.Conc -import Control.Concurrent -import Control.Exception - -main = do - setAllocationCounter (10*1024) - enableAllocationLimit - - -- alloc limit overflow while masked: should successfully print the - -- result, and then immediately raise the exception - r <- mask_ $ try $ print (length [1..100000]) - - print (r :: Either SomeException ()) |