Commit e28748e7 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-06-14 14:16:45 by simonmar]

isNeverInlinePrag returned False for a NOINLINE pragma, which seems
wrong to me.  4.07 also has this bug, and it's why Memo is going wrong.
parent 620c2c3f
......@@ -331,11 +331,11 @@ data InlinePragInfo
-- exact significance of the IMustNotBeINLINEd pragma
isNeverInlinePrag :: InlinePragInfo -> Bool
isNeverInlinePrag (IMustNotBeINLINEd True Nothing) = True
isNeverInlinePrag other = False
isNeverInlinePrag (IMustNotBeINLINEd _ Nothing) = True
isNeverInlinePrag other = False
neverInlinePrag :: InlinePragInfo
neverInlinePrag = IMustNotBeINLINEd True Nothing
neverInlinePrag = IMustNotBeINLINEd True{-should be False? --SDM -} Nothing
instance Outputable InlinePragInfo where
-- This is now parsed in interface files
......
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