Commit 50881100 authored by Ryan Scott's avatar Ryan Scott

Add performance test for #13056

This performance regression was fixed by commit
517d03e4 (#12234). Let's add a performance test
to ensure that it doesn't break again.
parent b4f2afe7
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveFoldable #-}
module Bug where
import Data.Typeable
import GHC.Generics
import Data.Data
data Condition v = Condition
deriving (Functor, Foldable)
data CondTree v c a = CondNode
{ condTreeData :: a
, condTreeConstraints :: c
, condTreeComponents :: [CondBranch v c a]
}
deriving (Functor, Foldable)
data CondBranch v c a = CondBranch
{ condBranchCondition :: Condition v
, condBranchIfTrue :: CondTree v c a
, condBranchIfFalse :: Maybe (CondTree v c a)
}
deriving (Functor, Foldable)
......@@ -902,7 +902,6 @@ test('T12234',
compile,
[''])
test('T13035',
[ only_ways(['normal']),
compiler_stats_num_field('bytes allocated',
......@@ -912,3 +911,13 @@ test('T13035',
],
compile,
[''] )
test('T13056',
[ only_ways(['optasm']),
compiler_stats_num_field('bytes allocated',
[(wordsize(64), 520166912, 5),
# 2017-01-06 520166912 initial
]),
],
compile,
['-O1'])
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