[project @ 2000-12-07 09:10:32 by simonpj]
authorsimonpj <unknown>
Thu, 7 Dec 2000 09:10:32 +0000 (09:10 +0000)
committersimonpj <unknown>
Thu, 7 Dec 2000 09:10:32 +0000 (09:10 +0000)
commit646e8010cad9da6273c4de177325ef3f82746186
tree18b29260dd4995b023e5b2fde5618fec24e55960
parent730ca873dd0ff2a45f932d0ffdc5f30572848937
[project @ 2000-12-07 09:10:32 by simonpj]
Be very keen to inline simple primops.
  We give a discount of 1 for each arg so that (op# x y z) costs 1.
  I found occasions where we had
f x y z = case op# x y z of { s -> (# s, () #) }
  and f wasn't getting inlined
ghc/compiler/coreSyn/CoreUnfold.lhs