From 5a26fb46a911300126e5980c17d4aaa197896197 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 01:52:30 +0000 Subject: [PATCH] [project @ 1997-05-26 01:52:30 by sof] Added handling of INLINE pragmas --- ghc/compiler/typecheck/TcBinds.lhs | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/typecheck/TcBinds.lhs b/ghc/compiler/typecheck/TcBinds.lhs index 25c7833..d8f3a6c 100644 --- a/ghc/compiler/typecheck/TcBinds.lhs +++ b/ghc/compiler/typecheck/TcBinds.lhs @@ -64,6 +64,8 @@ import Unique ( Unique ) import SrcLoc ( SrcLoc ) import Outputable --( interppSP, interpp'SP ) + + \end{code} @@ -635,7 +637,15 @@ tcPragmaSigs :: [RenamedSig] -- The pragma signatures TcHsBinds s, LIE s) -tcPragmaSigs sigs = returnTc ( \name -> NoPragmaInfo, EmptyBinds, emptyLIE ) +-- For now we just deal with INLINE pragmas +tcPragmaSigs sigs = returnTc (prag_fn, EmptyBinds, emptyLIE ) + where + prag_fn name | any has_inline sigs = IWantToBeINLINEd + | otherwise = NoPragmaInfo + where + has_inline (InlineSig n _) = (n == name) + has_inline other = False + {- tcPragmaSigs sigs -- 1.7.10.4