Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/bca9767bf30a671b814f20f5efd78cbde5c57d77 >--------------------------------------------------------------- commit bca9767bf30a671b814f20f5efd78cbde5c57d77 Author: Simon Marlow <[email protected]> Date: Wed Nov 23 11:54:30 2011 +0000 add test scc004 which is expect_broken(#5654) >--------------------------------------------------------------- tests/profiling/should_run/all.T | 6 +++++ tests/profiling/should_run/scc004.hs | 10 +++++++++ tests/profiling/should_run/scc004.prof.sample | 28 +++++++++++++++++++++++++ 3 files changed, 44 insertions(+), 0 deletions(-) diff --git a/tests/profiling/should_run/all.T b/tests/profiling/should_run/all.T index bfd5954..9bae788 100644 --- a/tests/profiling/should_run/all.T +++ b/tests/profiling/should_run/all.T @@ -37,6 +37,12 @@ test('scc003', [req_profiling, compile_and_run, ['-fno-state-hack']) # Note [consistent stacks] +test('scc004', [req_profiling, + extra_ways(['prof']), only_ways(['prof'] + prof_ways), + expect_broken(5654)], + compile_and_run, + ['']) + test('5314', [ only_ways(prof_ways + extra_prof_ways), extra_ways(extra_prof_ways), diff --git a/tests/profiling/should_run/scc004.hs b/tests/profiling/should_run/scc004.hs new file mode 100644 index 0000000..bdb73d8 --- /dev/null +++ b/tests/profiling/should_run/scc004.hs @@ -0,0 +1,10 @@ +{-# NOINLINE f #-} +f :: Int -> Int +f = {-# SCC f #-} g + +{-# NOINLINE g #-} +g :: Int -> Int +g x = {-# SCC g #-} x + 1 + +main = {-# SCC main #-} return $! f 3 + diff --git a/tests/profiling/should_run/scc004.prof.sample b/tests/profiling/should_run/scc004.prof.sample new file mode 100644 index 0000000..7d12acd --- /dev/null +++ b/tests/profiling/should_run/scc004.prof.sample @@ -0,0 +1,28 @@ + Wed Nov 23 11:52 2011 Time and Allocation Profiling Report (Final) + + scc004 +RTS -p -RTS + + total time = 0.00 secs (0 ticks @ 20 ms) + total alloc = 39,400 bytes (excludes profiling overheads) + +COST CENTRE MODULE %time %alloc + +MAIN MAIN 0.0 1.7 +CAF GHC.Conc.Signal 0.0 1.7 +CAF GHC.IO.Encoding 0.0 7.1 +CAF GHC.IO.Handle.FD 0.0 88.7 + + + individual inherited +COST CENTRE MODULE no. entries %time %alloc %time %alloc + +MAIN MAIN 98 0 0.0 1.7 0.0 100.0 + CAF GHC.IO.Handle.FD 124 0 0.0 88.7 0.0 88.7 + CAF GHC.IO.Encoding.Iconv 116 0 0.0 0.6 0.0 0.6 + CAF GHC.IO.Encoding 114 0 0.0 7.1 0.0 7.1 + CAF GHC.Conc.Signal 106 0 0.0 1.7 0.0 1.7 + CAF Main 104 0 0.0 0.1 0.0 0.2 + f Main 197 1 0.0 0.0 0.0 0.0 + main Main 196 1 0.0 0.0 0.0 0.1 + f Main 198 0 0.0 0.0 0.0 0.0 + g Main 199 1 0.0 0.0 0.0 0.0 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
