projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1eff684
)
omit the __DISCARD__() call if unregisterised
author
Simon Marlow
<simonmar@microsoft.com>
Fri, 24 Mar 2006 09:34:43 +0000
(09:34 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Fri, 24 Mar 2006 09:34:43 +0000
(09:34 +0000)
ghc/compiler/cmm/PprC.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/cmm/PprC.hs
b/ghc/compiler/cmm/PprC.hs
index
51a3f07
..
a8d3066
100644
(file)
--- a/
ghc/compiler/cmm/PprC.hs
+++ b/
ghc/compiler/cmm/PprC.hs
@@
-38,6
+38,7
@@
import UniqFM ( eltsUFM )
import FastString
import Outputable
import Constants
import FastString
import Outputable
import Constants
+import StaticFlags ( opt_Unregisterised )
-- The rest
import Data.List ( intersperse, groupBy )
-- The rest
import Data.List ( intersperse, groupBy )
@@
-709,7
+710,9
@@
pprCall ppr_fn cconv results args vols
-- to the callee, because the argument expressions may refer to
-- machine registers that are also used for passing arguments in the
-- C calling convention.
-- to the callee, because the argument expressions may refer to
-- machine registers that are also used for passing arguments in the
-- C calling convention.
- ptext SLIT("__DISCARD__();") $$
+ (if (not opt_Unregisterised)
+ then ptext SLIT("__DISCARD__();")
+ else empty) $$
#endif
ppr_assign results (ppr_fn <> parens (commafy (map pprArg args))) <> semi $$
ptext SLIT("CALLER_RESTORE_SYSTEM") $$
#endif
ppr_assign results (ppr_fn <> parens (commafy (map pprArg args))) <> semi $$
ptext SLIT("CALLER_RESTORE_SYSTEM") $$