Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
f4fbb583
by Simon Jakobi at 2026-05-28T12:26:04-04:00
3 changed files:
- + testsuite/tests/perf/should_run/T11226.hs
- + testsuite/tests/perf/should_run/T11226.stdout
- testsuite/tests/perf/should_run/all.T
Changes:
| 1 | +module Main where
|
|
| 2 | + |
|
| 3 | +main :: IO ()
|
|
| 4 | +main = print $ sum $ map bitcount [0, 4 .. 2 ^ (24 :: Int) - 1]
|
|
| 5 | + |
|
| 6 | +bitcount :: Int -> Int
|
|
| 7 | +bitcount x =
|
|
| 8 | + if x > 0
|
|
| 9 | + then let (d, m) = divMod x 2 in bitcount d + m
|
|
| 10 | + else 0 |
| 1 | +46137344 |
| ... | ... | @@ -30,6 +30,13 @@ test('T10359', |
| 30 | 30 | compile_and_run,
|
| 31 | 31 | ['-O'])
|
| 32 | 32 | |
| 33 | +test('T11226',
|
|
| 34 | + [collect_runtime_residency(10),
|
|
| 35 | + only_ways(['normal'])
|
|
| 36 | + ],
|
|
| 37 | + compile_and_run,
|
|
| 38 | + ['-O2'])
|
|
| 39 | + |
|
| 33 | 40 | test('T14955',
|
| 34 | 41 | [collect_stats('bytes allocated',5),
|
| 35 | 42 | only_ways(['normal'])
|