Commit 7095121c authored by Simon Peyton Jones's avatar Simon Peyton Jones

Merge with master

parents 23f4463f f3b2ed5a
module T7237 where
import Data.List (foldl')
data SPair = SPair { pX, pY :: Double } deriving (Eq,Show)
data AList = AList { pairs :: [SPair] } deriving Show
rnf' :: AList -> ()
rnf' aList = foldl' (flip seq) () (pairs aList) `seq` ()
......@@ -16,4 +16,8 @@ test('3579', normal, compile, [''])
test('2578', normal, run_command, ['$MAKE -s --no-print-directory 2578'])
# skip llvm on i386 as we don't support fPIC
test('jmp_tbl', if_arch('i386', omit_ways(['llvm', 'optllvm'])), compile, ['-fPIC -O'])
test('massive_array', if_arch('i386', omit_ways(['llvm', 'optllvm'])), compile, ['-fPIC'])
test('massive_array',
[ if_arch('i386', expect_broken(7213)),
if_arch('i386', omit_ways(['llvm', 'optllvm'])) ],
compile, ['-fPIC'])
test('T7237', normal, compile, [''])
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
T5252:
$(RM) -f T5252*.hi T5252*.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252.hs
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
T5252:
$(RM) -f T5252*.hi T5252*.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252.hs
# Failed when compiled *without* optimisation
T5252Take2:
$(RM) -f T5252*.hi T5252*.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252Take2a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5252Take2.hs
module T5252Take2 where
import qualified T5252Take2a as M
write_message :: M.WriteMessage -> IO Bool
write_message (M.WriteMessage _) = return True
{-# OPTIONS_GHC -funbox-strict-fields #-}
module T5252Take2a ( WriteMessage(..) , WriteDevice ) where
import qualified Data.ByteString as ByteString
data WriteMessage = WriteMessage !WriteDevice
newtype WriteDevice = WriteDevice ByteString.ByteString
......@@ -95,3 +95,9 @@ test('T5001',
extra_clean(['T5001a.hi', 'T5001a.o'])],
multimod_compile,
['T5001', '-v0'])
# T5252Take2 failed when compiled *wihtout* optimisation
test('T5252Take2',
extra_clean(['T5252Take2a.hi', 'T5252Take2a.o']),
run_command,
['$MAKE -s --no-print-directory T5252Take2'])
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
# -fforce-recomp makes lots of driver tests trivially pass, so we
# filter it out from $(TEST_HC_OPTS).
TEST_HC_OPTS_NO_RECOMP = $(filter-out -fforce-recomp,$(TEST_HC_OPTS))
# Recompilation tests
clean:
rm -f *.o *.hi
rm -f MyBool.hs Foo.hs Main.hs
rm -f Main$(exeext)
# bug #7215
recomp012: clean
echo 'module MyBool where data MyBool = MyFalse | MyTrue deriving Show' >MyBool.hs
echo 'module Foo where import MyBool; foo = MyFalse' > Foo.hs
echo 'import Foo; main = print foo' > Main.hs
'$(TEST_HC)' $(TEST_HC_OPTS_NO_RECOMP) -v0 -c -O2 MyBool.hs
'$(TEST_HC)' $(TEST_HC_OPTS_NO_RECOMP) -v0 -c -O2 Foo.hs
'$(TEST_HC)' $(TEST_HC_OPTS_NO_RECOMP) -v0 -O2 Main.hs
./Main
sleep 1
echo 'module Foo where import MyBool; foo = MyTrue' > Foo.hs
'$(TEST_HC)' $(TEST_HC_OPTS_NO_RECOMP) -v0 -c -O2 Foo.hs
'$(TEST_HC)' $(TEST_HC_OPTS_NO_RECOMP) -v0 -O2 Main.hs
./Main
# Test for #7215, a recompilation bug
test('recomp012',
[ clean_cmd('$MAKE -s clean') ],
run_command,
['$MAKE -s --no-print-directory recomp012'])
......@@ -13,12 +13,15 @@ T3807:
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -no-auto-link-packages -no-hs-main T3807-load.c -o T3807-load -ldl
./T3807-load
.PHONY: T4464dyn
T4464dyn:
.PHONY: T4464
T4464:
$(RM) T4464B.o T4464C.o T4464H.hi T4464H.o
$(RM) T4464H_stub.c T4464H_stub.h T4464H_stub.o
$(RM) HS4464.dll HS4464.dll.a t4464.exe
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -shared T4464H.hs T4464B.c -optc-DRTSOPTS=RtsOptsSafeOnly -o HS4464.dll
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 -shared T4464H.hs T4464B.c -optc-DRTSOPTS=RtsOptsSafeOnly -o HS4464.dll
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 T4464C.c HS4464.dll.a -o t4464.exe -no-hs-main
-./t4464.exe
echo "====="
......@@ -26,9 +29,17 @@ T4464:
$(RM) T4464B.o T4464C.o T4464H.hi T4464H.o
$(RM) T4464H_stub.c T4464H_stub.h T4464H_stub.o
$(RM) HS4464.dll HS4464.dll.a t4464.exe
'$(TEST_HC)' $(TEST_HC_OPTS) -v0 -shared T4464H.hs T4464B.c -optc-DRTSOPTS=RtsOptsAll -o HS4464.dll
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 -shared T4464H.hs T4464B.c -optc-DRTSOPTS=RtsOptsAll -o HS4464.dll
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 T4464C.c HS4464.dll.a -o t4464.exe -no-hs-main
./t4464.exe
echo "====="
echo "=====" >&2
$(RM) T4464B.o T4464C.o T4464H.hi T4464H.o
$(RM) T4464H_stub.c T4464H_stub.h T4464H_stub.o
$(RM) HS4464.dll HS4464.dll.a t4464.exe
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 -dynamic -shared T4464H.hs T4464B.c -optc-DRTSOPTS=RtsOptsAll -o HS4464.dll
'$(TEST_HC)' $(filter-out -rtsopts,$(TEST_HC_OPTS)) -v0 -dynamic T4464C.c -o t4464.exe -no-hs-main -L. -lHS4464
./t4464.exe
.PHONY: T5373
T5373:
......
......@@ -2,3 +2,5 @@ Creating library file: HS4464.dll.a
ghcDll: Most RTS options are disabled. Link with -rtsopts to enable them.
=====
Creating library file: HS4464.dll.a
=====
Creating library file: HS4464.dll.a
#include <Rts.h>
extern void __stginit_T4464H(void);
void HsStart(void) {
int argc = 3;
char* argv[] = {"ghcDll", "+RTS", "-H50M", NULL}; // argv must end with NULL
......@@ -19,9 +17,6 @@ void HsStart(void) {
#else
hs_init(&argc, &args);
#endif
// Tell Haskell about all root modules
hs_add_root(__stginit_T4464H);
}
void HsEnd(void) {
......
TOP=../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
# T5881 needs a script because it goes wrong only when
# the modules are compiled separately, not with --make
T5881:
$(RM) -f T5881.hi T5881.o T5881a.hi T5881a.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5881a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T5881.hs
# T6025 is like T5881; needs separate compile
T6025:
$(RM) -f T6025.hi T6025.o T6025a.hi T6025a.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T6025a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T6025.hs
# T6054 is like T5881; needs separate compile
# The second compile fails, and should do so, hence leading "-"
T6054:
$(RM) -f T6054.hi T6054.o T6054a.hi T6054a.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T6054a.hs
-'$(TEST_HC)' $(TEST_HC_OPTS) -c T6054.hs
T7022:
$(RM) -f T7022.hi T7022.o T7022a.hi T7022a.o T7022b.hi T7022b.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c T7022a.hs
'$(TEST_HC)' $(TEST_HC_OPTS) -c T7022b.hs -v0
-'$(TEST_HC)' $(TEST_HC_OPTS) -c -v0 T7022.hs
module Main where
data T a = T a
type C = T Int
type CL = [C]
main = print 1
setTestOpts(only_compiler_types(['ghc']))
test('T7239', normal, compile, ['-fext-core'])
......@@ -9,7 +9,7 @@ GenCannotDoRep0.hs:13:45:
GenCannotDoRep0.hs:17:1:
Can't make a derived instance of `Generic (P Int)':
P must not be instantiated; try deriving `P Int' instead
P must not be instantiated; try deriving `P a' instead
In the stand-alone deriving instance for `Generic (P Int)'
GenCannotDoRep0.hs:26:1:
......
......@@ -3,4 +3,3 @@ module Test2 where
f x = g x
g y = y
:seti -XMonomorphismRestriction
:l 2740.hs
:step f 1 2 3
:step
......
:l ../Test2
:b 3
:b 5
f 1
f (1 :: Integer)
:st
:st
:st
......
:l ../QSort
:st qsort [1,2]
:st qsort [1::Integer,2]
:step
seq left ()
:print left
:l ../Test3.hs
:st mymap (+1) [1,2,3]
:st mymap (+1) [1::Integer,2,3]
:st
:show bindings
f x -- should fail, unknown return type
......
:load break026
:step foldl (+) 0 [1..5]
:step foldl (+) 0 [1::Integer .. 5]
:step
:step
:step
......@@ -9,7 +9,7 @@
-- answer should be 1
:load break026
:step foldl (+) 0 [1..5]
:step foldl (+) 0 [1::Integer .. 5]
:step
:step
:step
......
:l ../QSort
:break qsort
qsort [3,2,1]
qsort [3::Integer,2,1]
:step
:i a
-- Printing of lists
let li = map Just [0..5]
let li = map Just [0::Integer .. 5]
:p li
head li
:p li
......@@ -9,4 +9,4 @@ length li
:sp li
li
:p li
:sp li
\ No newline at end of file
:sp li
......@@ -4,7 +4,7 @@ let a = False
:sp a
:p a
let b = map Just [1..4]
let b = map Just [1::Integer .. 4]
:p b
head b
:p b
......
......@@ -2,7 +2,7 @@
:l ../QSort
:break 5
qsort [8, 4]
qsort [8::Integer, 4]
:p right
seq right ()
......@@ -12,4 +12,4 @@ seq left ()
:p left
length left
:p left
:continue
\ No newline at end of file
:continue
......@@ -2,7 +2,7 @@
-- Testing collisions
let _t1 = "user value"
let li = map Just [1..4]
let li = map Just [1::Integer .. 4]
:p li
_t1
_t2
\ No newline at end of file
_t2
......@@ -3,7 +3,7 @@
:set -XGADTs -XRank2Types
:l ../GADT
let d = DictN 1
let d = DictN (1 :: Integer)
:p d
seq _t1 ()
:p d
......
......@@ -2,9 +2,9 @@
:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test
let a = map MkT [1..2]
let a = map MkT [1::Integer .. 2]
:p a
seq _t1 ()
:p a
seq _t2 ()
:p a
\ No newline at end of file
:p a
......@@ -2,7 +2,7 @@
:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test
let a = map (MkT2 . MkT) [1..2]
let a = map (MkT2 . MkT) [1::Integer .. 2]
:p a
seq _t1 ()
:p a
......
......@@ -3,6 +3,6 @@
:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test
let a = MkT [1..2]
let a = MkT [1::Integer .. 2]
seq a ()
:p a
......@@ -3,7 +3,7 @@
:set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
:l ../Test
let a = MkT 1
let a = MkT (1 :: Integer)
seq a ()
:p a
a
......
:m + Data.IORef
let l = map Just [1..10]
let l = map Just [1::Integer .. 10]
:p l
head l
r <- newIORef l
:p r
:sp r
\ No newline at end of file
:sp r
α
let α = 4
let α = 4 :: Integer
α
4
:type α
let test = 0
let test = 0 :: Integer
:show bindings
:force test
:show bindings
......
:set -XScopedTypeVariables
(\(x :: a, y :: a) -> [x, "hi"])
let f = (\(x :: a, y :: a) -> [x, "hi"])
<interactive>:3:27:
Couldn't match expected type `a' with actual type `[Char]'
In the expression: "hi"
In the expression: [x, "hi"]
In the expression: (\ (x :: a, y :: a) -> [x, "hi"])
......@@ -2,7 +2,7 @@
data T = A {a :: Int}
:i A
:i a
let a = 3
let a = 3 :: Integer
:i a
a
data R = B {a :: Int}
......
let x=undefined
let y=3
let y=3 :: Integer
:force x
:show bindings
-- in 7.3 and earlier this used to print just "*** Exception:
......
......@@ -40,6 +40,7 @@ base language is: Haskell2010
with the following modifiers:
-XGADTs
-XGADTSyntax
-XNoMonomorphismRestriction
-XNoDatatypeContexts
-XNondecreasingIndentation
-XMonoLocalBinds
......
......@@ -3,5 +3,5 @@ mod73.hs:3:7:
Not in scope: `Prelude.g'
Perhaps you meant one of these:
`Prelude.id' (imported from Prelude),
`Prelude.gcd' (imported from Prelude),
`Prelude.or' (imported from Prelude)
`Prelude.log' (imported from Prelude),
`Prelude.pi' (imported from Prelude)
......@@ -13,10 +13,11 @@ test('T1969',
# 15 (x86/OS X)
# 19 (x86/OS X)
if_wordsize(64,
compiler_stats_num_field('peak_megabytes_allocated', 24,
37)),
compiler_stats_num_field('peak_megabytes_allocated', 22,
24)),
# expected value: 28 (amd64/Linux)
# expected value: 34 (amd64/Linux)
# 2012-09-20 23 (amd64/Linux)
if_wordsize(32,
compiler_stats_num_field('max_bytes_used', 4000000,
7000000)),
......@@ -36,7 +37,7 @@ test('T1969',
# 221667908 (x86/OS X)
# 274932264 (x86/Linux)
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 606230880, 1)),
compiler_stats_range_field('bytes allocated', 641959976, 1)),
# 17/11/2009: 434,845,560 (amd64/Linux)
# 08/12/2009: 459,776,680 (amd64/Linux)
# 17/05/2010: 519,377,728 (amd64/Linux)
......@@ -44,6 +45,9 @@ test('T1969',
# 16/07/2012: 589,168,872 (amd64/Linux)
# 20/07/2012: 595,936,240 (amd64/Linux)
# 23/08/2012: 606,230,880 (amd64/Linux)
# 29/08/2012: 633,334,184 (amd64/Linux)
# (^ new codegen)
# 18/09/2012: 641,959,976 (amd64/Linux)
only_ways(['normal']),
extra_hc_opts('-dcore-lint')
# Leave -dcore-lint on for this one test, so that we have something
......@@ -71,18 +75,20 @@ test('T3294',
# expected value: 17725476 (x86/OS X)
# 14593500 (Windows)
if_wordsize(64,
compiler_stats_range_field('max_bytes_used', 25753192, 15)),
# Improved with the new codegen merge,
# because we now do stg->cmm->NCG for one
# top-level binding at a time.
compiler_stats_range_field('max_bytes_used', 37724352, 15)),
# prev: 25753192 (amd64/Linux)
# 29/08/2012: 37724352 (amd64/Linux)
# (increase due to new codegen, see #7198)
if_wordsize(32,
compiler_stats_num_field('bytes allocated', 650000000,
750000000)),
# expected value: 815479800 (x86/Linux)
if_wordsize(64,
compiler_stats_num_field('bytes allocated', 1200000000,
1500000000)),
# expected value: 1357587088 (amd64/Linux)
compiler_stats_range_field('bytes allocated', 2717327208, 5)),
# old: 1,357,587,088 (amd64/Linux)
# 29/08/2012: 2,961,778,696 (amd64/Linux)
# (^ increase due to new codegen, see #7198)
# 18/09/2012: 2,717,327,208 (amd64/Linux)
conf_3294
],
compile,
......@@ -113,8 +119,9 @@ test('T4801',
12000000)),
# expected value: 10290952 (windows)
if_wordsize(64,
compiler_stats_range_field('max_bytes_used', 17629176, 15)),
# expected value: 20486256 (amd64/OS X):
compiler_stats_range_field('max_bytes_used', 18500000, 15)),
# prev: 20486256 (amd64/OS X)
# 30/08/2012: 17305600--20391920 (varies a lot)
if_platform('x86_64-apple-darwin',
compiler_stats_num_field('max_bytes_used', 20000000,
23000000)),
......@@ -198,10 +205,11 @@ test('T783',
if_wordsize(32,
compiler_stats_num_field('bytes allocated', 125000000,
225000000)),
# sample: 349263216 (amd64/Linux)
# sample: 384479856 (amd64/Linux, 7/8/2012)
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 384479856, 10))
compiler_stats_range_field('bytes allocated', 436927840, 10))
# prev: 349,263,216 (amd64/Linux)
# 07/08/2012: 384,479,856 (amd64/Linux)
# 29/08/2012: 436,927,840 (amd64/Linux)
],
compile,[''])
......@@ -211,7 +219,10 @@ test('T5321Fun',
if_wordsize(32,
compiler_stats_range_field('bytes allocated', 300000000, 10)),
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 600000000, 10))
compiler_stats_range_field('bytes allocated', 713385808, 10))
# prev: 585,521,080
# 29/08/2012: 713,385,808
# (increase due to new codegen)
],
compile,[''])
......@@ -221,7 +232,10 @@ test('T5321FD',
if_wordsize(32,
compiler_stats_range_field('bytes allocated', 213380256, 10)),
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 418306336, 10))
compiler_stats_range_field('bytes allocated', 492905640, 10))
# prev: 418,306,336
# 29/08/2012: 492,905,640
# (increase due to new codegen)
],
compile,[''])
......@@ -241,7 +255,8 @@ test('T5837',
# sample: 3926235424 (amd64/Linux, 15/2/2012)
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 79110184, 10))
compiler_stats_range_field('bytes allocated', 87254264, 10))
# 2012-09-20 87254264 amd64/Linux
],
compile_fail,['-fcontext-stack=50'])
......@@ -251,6 +266,7 @@ test('T6048',
compiler_stats_range_field('bytes allocated', 38000000, 10)),
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 67328320, 10))
compiler_stats_range_field('bytes allocated', 97247032, 10))
# 18/09/2012 97247032 amd64/Linux
],
compile,[''])
......@@ -2,23 +2,26 @@
test('haddock.base',
[unless_in_tree_compiler(skip)
,if_wordsize(64,
stats_num_field('peak_megabytes_allocated', 239,
241))
stats_num_field('peak_megabytes_allocated', 236,
248))
# 2012-08-14: 240 (amd64/Linux)
# 2012-09-18: 237 (amd64/Linux)
,if_wordsize(32,
stats_num_field('peak_megabytes_allocated', 142,
143))
# 2012-08-14: 144 (x86/OSX)
,if_wordsize(64,
stats_range_field('max_bytes_used', 87374568, 2))
stats_range_field('max_bytes_used', 84794136, 2))
# 2012-08-14: 87374568 (amd64/Linux)
# 2012-08-21: 86428216 (amd64/Linux)
# 2012-09-20: 84794136 (amd64/Linux)
,if_wordsize(32,
stats_range_field('max_bytes_used', 45574928, 1))
# 2012-08-14: 45574928 (x86/OSX)
,if_wordsize(64,
stats_range_field('bytes allocated', 5920822352, 1))
stats_range_field('bytes allocated', 5829972376, 1))
# 2012-08-14: 5920822352 (amd64/Linux)
# 2012-09-20: 5829972376 (amd64/Linux)
,if_wordsize(32,
stats_range_field('bytes allocated', 3046487920, 1))
# 2012-08-14: 3046487920 (x86/OSX)
......@@ -29,25 +32,29 @@ test('haddock.base',
test('haddock.Cabal',
[unless_in_tree_compiler(skip)
,if_wordsize(64,
stats_num_field('peak_megabytes_allocated', 201,
203))
# 2012-08-14: 202 (amd64/Linux)
stats_num_field('peak_megabytes_allocated', 225,
229))
# 2012-08-14: 202 (amd64/Linux)
# 2012-08-29: 211 (amd64/Linux, new codegen)
# 2012-09-20: 227 (amd64/Linux, new codegen)
,if_wordsize(32,
stats_num_field('peak_megabytes_allocated', 115,
117))
# 2012-08-14: 116 (x86/OSX)
,if_wordsize(64,
stats_range_field('max_bytes_used', 74119424, 1))
# 2012-08-14: 74119424 (amd64/Linux)
stats_range_field('max_bytes_used', 77992512, 1))
# 2012-08-14: 74119424 (amd64/Linux)
# 2012-08-29: 77992512 (amd64/Linux, new codegen)
,if_wordsize(32,
stats_range_field('max_bytes_used', 47461532, 1))
# 2012-08-14: 47461532 (x86/OSX)
# 2012-08-14: 47461532 (x86/OSX)
,if_wordsize(64,
stats_range_field('bytes allocated', 3255435248, 1))
# 2012-08-14: 3255435248 (amd64/Linux)
stats_range_field('bytes allocated', 3324606664, 1))
# 2012-08-14: 3255435248 (amd64/Linux)
# 2012-08-29: 3324606664 (amd64/Linux, new codegen)
,if_wordsize(32,
stats_range_field('bytes allocated', 1648610180, 1))
# 2012-08-14: 1648610180 (x86/OSX)
# 2012-08-14: 1648610180 (x86/OSX)
],
stats,
['../../../../libraries/Cabal/Cabal/dist-install/doc/html/Cabal/Cabal.haddock.t'])
......@@ -55,23 +62,27 @@ test('haddock.Cabal',
test('haddock.compiler',
[unless_in_tree_compiler(skip)
,if_wordsize(64,
stats_num_field('peak_megabytes_allocated', 1198,
1204))
stats_num_field('peak_megabytes_allocated', 1226,
1230))
# 2012-08-14: 1203 (amd64/Linux)
# 2012-08-21: 1199 (amd64/Linux)
# 2012-09-20: 1228 (amd64/Linux)
,if_wordsize(32,
stats_num_field('peak_megabytes_allocated', 630,
632))
# 2012-08-14: 631 (x86/OSX)
,if_wordsize(64,
stats_range_field('max_bytes_used', 428775544, 1))
stats_range_field('max_bytes_used', 437618008, 1))
# 2012-08-14: 428775544 (amd64/Linux)
# 2012-09-20: 437618008 (amd64/Linux)
,if_wordsize(32,
stats_range_field('max_bytes_used', 231064920, 1))
# 2012-08-14: 231064920 (x86/OSX)
,if_wordsize(64,
stats_range_field('bytes allocated', 26070600504, 1))
# 2012-08-14: 26070600504 (amd64/Linux)
stats_range_field('bytes allocated', 26882813032, 1))
# 2012-08-14: 26,070,600,504 (amd64/Linux)
# 2012-08-29: 26,353,100,288 (amd64/Linux, new CG)
# 2012-09-18: 26,882,813,032 (amd64/Linux)
,if_wordsize(32,
stats_range_field('bytes allocated', 13471797488, 1))
# 2012-08-14: 13471797488 (x86/OSX)
......
{-# LANGUAGE PolyKinds #-}
module T7224 where