diff options
| author | simonmar <unknown> | 2005-04-28 15:28:09 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-28 15:28:09 +0000 |
| commit | c84e392ef8e4014e24aa4a0f97976a7a590dd24b (patch) | |
| tree | 8c607e7ea7848d335ba9bcbcdec24bb7e47f9eb3 /ghc/compiler/codeGen | |
| parent | 344d961bc81a11d16cb7f37d213379b3c9783f17 (diff) | |
| download | haskell-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/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgCallConv.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/compiler/codeGen/CgCallConv.hs b/ghc/compiler/codeGen/CgCallConv.hs index 9b73c3bcf7..f5232a58d9 100644 --- a/ghc/compiler/codeGen/CgCallConv.hs +++ b/ghc/compiler/codeGen/CgCallConv.hs @@ -108,6 +108,8 @@ argBits (PtrArg : args) = False : argBits args argBits (arg : args) = take (cgRepSizeW arg) (repeat True) ++ argBits args stdPattern :: [CgRep] -> Maybe Int +stdPattern [] = Just ARG_NONE -- just void args, probably + stdPattern [PtrArg] = Just ARG_P stdPattern [FloatArg] = Just ARG_F stdPattern [DoubleArg] = Just ARG_D |