diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-03-06 12:24:40 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-03-06 13:28:32 +0000 |
commit | 93e42a6895d2172f40d37fd13cb7405243dc4d0f (patch) | |
tree | 61e620bdba7d5b0e37348d68ba6ab2a60959a21e /compiler/codeGen/StgCmmEnv.hs | |
parent | 9a32e71d912985a6fd8e3491518ac357f2e8686b (diff) | |
download | haskell-93e42a6895d2172f40d37fd13cb7405243dc4d0f.tar.gz |
Lower safe foreign calls in the new CmmLayoutStack
We also generate much better code for safe foreign calls (and maybe
also unsafe foreign calls) than previously. See the two new Notes:
Note [lower safe foreign calls]
Note [safe foreign call convention]
Diffstat (limited to 'compiler/codeGen/StgCmmEnv.hs')
-rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index d8a7061eec..3b56e2feb6 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -27,7 +27,7 @@ module StgCmmEnv ( bindArgsToRegs, bindToReg, rebindToReg, bindArgToReg, idToReg, - getArgAmode, getNonVoidArgAmodes, + getArgAmode, getNonVoidArgAmodes, getCgIdInfo, maybeLetNoEscape, ) where @@ -213,7 +213,6 @@ getNonVoidArgAmodes (arg:args) ; amodes <- getNonVoidArgAmodes args ; return ( amode : amodes ) } - ------------------------------------------------------------------------ -- Interface functions for binding and re-binding names ------------------------------------------------------------------------ |