Revert "Improve accuracy of get/setAllocationCounter"

This reverts commit a1a689dda48113f3735834350fb562bb1927a633.

3 files changed, 0 insertions, 27 deletions

diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index 7086d9113f..6377bde04f 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -382,10 +382,3 @@ test('T12903', [when(opsys('mingw32'), skip)], compile_and_run, [''])
 test('T13832', exit_code(1), compile_and_run, ['-threaded'])
 test('T13894', normal, compile_and_run, [''])
 test('T14497', normal, compile_and_run, ['-O'])
-
-test('alloccounter1', normal, compile_and_run,
-  [
-    # avoid allocating stack chunks, which counts as
-    # allocation and messes up the results:
-    '-with-rtsopts=-k1m'
-  ])
diff --git a/testsuite/tests/rts/alloccounter1.hs b/testsuite/tests/rts/alloccounter1.hs
deleted file mode 100644
index 4b81896d2c..0000000000
--- a/testsuite/tests/rts/alloccounter1.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-module Main where
-
-import Control.Exception
-import Control.Monad
-import Data.List
-import System.Mem
-
-main = do
-  let
-    testAlloc n = do
-      let start = 999999
-      setAllocationCounter start
-      evaluate (last [1..n])
-      c <- getAllocationCounter
-      -- print (start - c)
-      return (start - c)
-  results <- forM [1..1000] testAlloc
-  print (sort results == results)
-    -- results better be in ascending order
diff --git a/testsuite/tests/rts/alloccounter1.stdout b/testsuite/tests/rts/alloccounter1.stdout
deleted file mode 100644
index 0ca95142bb..0000000000
--- a/testsuite/tests/rts/alloccounter1.stdout
+++ /dev/null
@@ -1 +0,0 @@
-True