diff options
| author | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-28 09:58:28 -0500 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-31 13:01:31 -0500 |
| commit | 4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56 (patch) | |
| tree | 572c456d4310592c8827cb363c5d2c205a0cf9d4 /utils | |
| parent | b61f5f734d08fe9cdca3ac06560fc15e97aa77ab (diff) | |
| download | haskell-4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56.tar.gz | |
Add type signatures.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/genapply/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index d01b025b49..50904ea7c0 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -580,6 +580,7 @@ argRep V32 = text "V32_" argRep V64 = text "V64_" argRep _ = text "W_" +genApply :: RegStatus -> [ArgRep] -> Doc genApply regstatus args = let fun_ret_label = mkApplyRetName args @@ -776,6 +777,7 @@ genApply regstatus args = -- ----------------------------------------------------------------------------- -- Making a fast unknown application, args are in regs +genApplyFast :: RegStatus -> [ArgRep] -> Doc genApplyFast regstatus args = let fun_fast_label = mkApplyFastName args |