[project @ 2001-10-03 13:57:33 by simonpj]
authorsimonpj <unknown>
Wed, 3 Oct 2001 13:57:33 +0000 (13:57 +0000)
committersimonpj <unknown>
Wed, 3 Oct 2001 13:57:33 +0000 (13:57 +0000)
commite205a0ce83c11de96656cf0b870eee3955b1c440
treeb6b1dbc6212b5c20d2864ee025a8db9e98dd990b
parent5e1f86a7bf4d8ee342a0155b49bfc3077bceeefa
[project @ 2001-10-03 13:57:33 by simonpj]
-------------------------------------------
Don't bomb out on inlining big constructors
-------------------------------------------

The unfolder bombs out if the expression get too big; no point in
computing its exact size when it's vast.  But for *constructors*
applied to a lot of args, it's worth keeping going, because we
get a big *disount* too
$fFooInt = :CFoo a1 a2 a3 ... a50

We want to keep the inlining for $fFooInt in interface files, so
that importing guys can do the selection.

Solution: only bomb out when size-discount gets too big.
ghc/compiler/coreSyn/CoreUnfold.lhs