diff options
| -rw-r--r-- | compiler/GHC/Utils/Panic/Plain.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Utils/Panic/Plain.hs b/compiler/GHC/Utils/Panic/Plain.hs index 37e0574d4b..dd3bd01d75 100644 --- a/compiler/GHC/Utils/Panic/Plain.hs +++ b/compiler/GHC/Utils/Panic/Plain.hs @@ -117,6 +117,10 @@ panic x = unsafeDupablePerformIO $ do if null stack then throwPlainGhcException (PlainPanic x) else throwPlainGhcException (PlainPanic (x ++ '\n' : renderStack stack)) +-- These are otherwise inlined and result in unnecessary code bloat. +{-# NOINLINE panic #-} +{-# NOINLINE sorry #-} +{-# NOINLINE pgmError #-} sorry x = throwPlainGhcException (PlainSorry x) pgmError x = throwPlainGhcException (PlainProgramError x) |