Commit 2a99c19a authored by Simon Marlow's avatar Simon Marlow

add a test for INLINE and -fprof-auto (#6131)

I had the test lying around already, just hooking it up
parent 0c0b2bb1
......@@ -113,3 +113,4 @@ test('T5363',
[ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
compile_and_run, [''])
test('profinline001', extra_ways(['prof']), compile_and_run, [''])
module Main (main, f, g, h, i) where
main = print (f 42)
f, g, h, i :: Int -> Int
f x = g x + h x + i x
g x = x + 1
{-# INLINE h #-}
h x = x + 2
{-# INLINABLE i #-}
i x = x + 3
Fri Jun 15 11:01 2012 Time and Allocation Profiling Report (Final)
profinline001 +RTS -p -RTS
total time = 0.00 secs (0 ticks @ 1000 us, 1 processor)
total alloc = 49,336 bytes (excludes profiling overheads)
COST CENTRE MODULE %time %alloc
MAIN MAIN 0.0 1.2
CAF GHC.IO.Handle.FD 0.0 71.0
CAF GHC.IO.Encoding 0.0 5.7
CAF GHC.Conc.Signal 0.0 1.4
main Main 0.0 19.2
individual inherited
COST CENTRE MODULE no. entries %time %alloc %time %alloc
MAIN MAIN 103 0 0.0 1.2 0.0 100.0
CAF Main 205 0 0.0 0.8 0.0 20.3
main Main 206 1 0.0 19.2 0.0 19.5
f Main 207 1 0.0 0.3 0.0 0.4
g Main 208 1 0.0 0.0 0.0 0.0
CAF GHC.Conc.Signal 203 0 0.0 1.4 0.0 1.4
CAF GHC.IO.Encoding 195 0 0.0 5.7 0.0 5.7
CAF GHC.IO.Encoding.Iconv 193 0 0.0 0.5 0.0 0.5
CAF GHC.IO.Handle.FD 185 0 0.0 71.0 0.0 71.0
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment