Commit 39f96fb8 authored by Simon Marlow's avatar Simon Marlow
Browse files

omit the __DISCARD__() call if unregisterised

parent 1eff6846
......@@ -38,6 +38,7 @@ import UniqFM ( eltsUFM )
import FastString
import Outputable
import Constants
import StaticFlags ( opt_Unregisterised )
-- 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.
ptext SLIT("__DISCARD__();") $$
(if (not opt_Unregisterised)
then ptext SLIT("__DISCARD__();")
else empty) $$
ppr_assign results (ppr_fn <> parens (commafy (map pprArg args))) <> semi $$
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment