Commit 3c1b89ab authored by simonpj's avatar simonpj
Browse files

[project @ 2000-06-09 07:32:31 by simonpj]

In my commit of 24 May I got this boolean condition
back to front:

    tryWW non_rec fn_id rhs
      | not (isNeverInlinePrag inline_prag)
      =  -- Don't split things that will never be inlined

The 'not' is obviously wrong!  As a result virtually nothing
is being worker-wrapper'd

How this has survived for more than two weeks beats me.
parent e7db662b
......@@ -66,19 +66,7 @@ type EncodedString = String -- Encoded form
pprEncodedFS :: EncodedFS -> SDoc
pprEncodedFS fs
= getPprStyle $ \ sty ->
if userStyle sty then
let
s = decode (_UNPK_ fs)
c = head s
in
if startsVarSym c || startsConSym c then
parens (text s)
else
text s
else
ptext fs
pprEncodedFS fs = ptext fs
\end{code}
%************************************************************************
......
......@@ -145,6 +145,9 @@ replaceTyVarName (IfaceTyVar n k) n' = IfaceTyVar n' k
%* *
%************************************************************************
NB: these types get printed into interface files, so
don't change the printing format lightly
\begin{code}
instance (Outputable name) => Outputable (HsType name) where
ppr ty = pprHsType ty
......
......@@ -190,7 +190,7 @@ tryWW :: Bool -- True <=> a non-recursive binding
-- if two, then a worker and a
-- wrapper.
tryWW non_rec fn_id rhs
| not (isNeverInlinePrag inline_prag)
| isNeverInlinePrag inline_prag
= -- Don't split things that will never be inlined
returnUs [ (fn_id, rhs) ]
......
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