[commit: ghc] wip/angerman/llvmng: [genapply] feed args. (68e9b1b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/angerman/llvmng
Link       : http://ghc.haskell.org/trac/ghc/changeset/68e9b1b9dd482fac1e9ed2fa22f87c6947fbd12a/ghc

>---------------------------------------------------------------

commit 68e9b1b9dd482fac1e9ed2fa22f87c6947fbd12a
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Mon Sep 25 20:34:28 2017 +0800

    [genapply] feed args.


>---------------------------------------------------------------

68e9b1b9dd482fac1e9ed2fa22f87c6947fbd12a
 utils/genapply/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs
index 9248c22..b30c9f8 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 '}'
         ]),