Commit 64cf9423 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Merge branch 'master' of http://darcs.haskell.org//testsuite

parents debfd1d0 2a99c19a
......@@ -61,7 +61,8 @@ changeBindPr anns mb_replacement b e = do
[ReplaceWith replace_string] -> do
e' <- changeExpr anns (Just replace_string) e
return (b, e')
_ -> error $ "Too many change_anns on one binder:" ++ showSDoc (ppr b)
_ -> do dflags <- getDynFlags
error ("Too many change_anns on one binder:" ++ showPpr dflags b)
changeExpr :: UniqFM [ReplaceWith] -> Maybe String -> CoreExpr -> CoreM CoreExpr
changeExpr anns mb_replacement e = let go = changeExpr anns mb_replacement in case e of
......
......@@ -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
T5246.hs:11:10:
Couldn't match type `Int' with `[Char]'
In the expression: foo
In the expression: let ?x = "hello" in foo
In an equation for `bar': bar = let ?x = "hello" in foo
T5246.hs:11:10:
Couldn't match type `[Char]' with `Int'
When using functional dependencies to combine
?x::[Char],
arising from the implicit-parameter bindings for ?x
at T5246.hs:(10,7)-(11,12)
?x::Int, arising from a use of `foo' at T5246.hs:11:10-12
In the expression: foo
In the expression: let ?x = "hello" in foo
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