summaryrefslogtreecommitdiff
path: root/ghc/utils
diff options
context:
space:
mode:
authorsimonmar <unknown>2005-04-28 15:28:09 +0000
committersimonmar <unknown>2005-04-28 15:28:09 +0000
commitc84e392ef8e4014e24aa4a0f97976a7a590dd24b (patch)
tree8c607e7ea7848d335ba9bcbcdec24bb7e47f9eb3 /ghc/utils
parent344d961bc81a11d16cb7f37d213379b3c9783f17 (diff)
downloadhaskell-c84e392ef8e4014e24aa4a0f97976a7a590dd24b.tar.gz
[project @ 2005-04-28 15:28:05 by simonmar]
Small code-size optimisation: I forgot to add a specialised case for functions with no argument words (which might happen if the function takes a void argument, for example).
Diffstat (limited to 'ghc/utils')
-rw-r--r--ghc/utils/genapply/GenApply.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/utils/genapply/GenApply.hs b/ghc/utils/genapply/GenApply.hs
index 956ef42065..3f10ddf62f 100644
--- a/ghc/utils/genapply/GenApply.hs
+++ b/ghc/utils/genapply/GenApply.hs
@@ -557,6 +557,7 @@ applyTypes = [
-- between N and P (they both live in the same register), only the bitmap
-- changes, so we could share the apply/save code between lots of cases.
stackApplyTypes = [
+ [],
[N],
[P],
[F],