diff options
author | Moritz Angermann <moritz.angermann@gmail.com> | 2017-10-03 15:06:29 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-10-03 17:07:36 -0400 |
commit | de1b802b651de5397bb3c42cdf0189fdc41a8f82 (patch) | |
tree | 0251eaf7c091e7a36556f350c8d9d4657d9fa8fb /utils/genapply | |
parent | 377d5a262ba7e065dc6fb4683a8053f0e5e1379c (diff) | |
download | haskell-de1b802b651de5397bb3c42cdf0189fdc41a8f82.tar.gz |
genapply: Explicitly specify arguments
We seem to not be feeding either live registers or the arguments when
generating the fast call in genapply. This results in strange signature
missmatches between the callee (expecting no registers) and the call
site, expecting to pass registers.
Test Plan: validate
Reviewers: bgamari, simonmar, austin
Reviewed By: simonmar
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D4029
Diffstat (limited to 'utils/genapply')
-rw-r--r-- | utils/genapply/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index 9248c224b8..b30c9f8c46 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -858,7 +858,7 @@ genApplyFast regstatus args = nest 4 (vcat [ text "Sp_adj" <> parens (int (-sp_offset)) <> semi, saveRegOffs reg_locs, - mkJump regstatus fun_ret_label [] [] <> semi + mkJump regstatus fun_ret_label [] args <> semi ]), char '}' ]), |