From: simonmar <unknown>
Date: Thu, 25 May 2000 10:40:39 +0000 (+0000)
Subject: [project @ 2000-05-25 10:40:39 by simonmar]
X-Git-Tag: Approximately_9120_patches~4377
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b5c71bff716366ae888bf120776d3e163c86c60a;p=ghc-hetmet.git

[project @ 2000-05-25 10:40:39 by simonmar]
Add missing case in parsing of inline pragmas.
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 4062b55..8110d27 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -681,6 +681,7 @@ id_info_item	:: { HsIdInfo RdrName }
 inline_prag     :: { InlinePragInfo }
                 :  {- empty -}                  { NoInlinePragInfo }
                 | '[' INTEGER ']'               { IMustNotBeINLINEd True  (Just (fromInteger $2)) } -- INLINE n
+                | '[' '!' ']'               	{ IMustNotBeINLINEd True Nothing } -- NOTINLINE
                 | '[' '!' INTEGER ']'           { IMustNotBeINLINEd False (Just (fromInteger $3)) } -- NOINLINE n
 
 -------------------------------------------------------