From: simonmar <unknown>
Date: Mon, 25 Sep 2000 11:32:55 +0000 (+0000)
Subject: [project @ 2000-09-25 11:32:55 by simonmar]
X-Git-Tag: Approximately_9120_patches~3738
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2926e6e5c1947375879d9dbe0f678c61cb129ce5;p=ghc-hetmet.git

[project @ 2000-09-25 11:32:55 by simonmar]
INLINE is_ctype, otherwise charType gets inlined in the RHS by virtue
of only being used once, and we lose the opportunity to inline is_ctype.
---

diff --git a/ghc/compiler/parser/Ctype.lhs b/ghc/compiler/parser/Ctype.lhs
index adcaec2..4d9c600 100644
--- a/ghc/compiler/parser/Ctype.lhs
+++ b/ghc/compiler/parser/Ctype.lhs
@@ -35,6 +35,7 @@ The predicates below look costly, but aren't, GHC+GCC do a great job
 at the big case below.
 
 \begin{code}
+{-# INLINE is_ctype #-}
 is_ctype :: Int -> Char# -> Bool
 is_ctype mask c = (fromIntegral (charType (C# c)) .&. fromIntegral mask) /= (0::Int32)