diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 4 | ||||
| -rw-r--r-- | compiler/utils/Encoding.hs | 4 | ||||
| -rw-r--r-- | compiler/utils/FastMutInt.lhs | 6 | ||||
| -rw-r--r-- | compiler/utils/FastString.lhs | 4 | ||||
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 4 |
5 files changed, 21 insertions, 1 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 3d20609067..80d10cba66 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -1,4 +1,8 @@ {-# OPTIONS -cpp #-} +{-# OPTIONS_GHC -O -funbox-strict-fields #-} +-- We always optimise this, otherwise performance of a non-optimised +-- compiler is severely affected + -- -- (c) The University of Glasgow 2002-2006 -- diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs index f2659e6a9a..c790f386a4 100644 --- a/compiler/utils/Encoding.hs +++ b/compiler/utils/Encoding.hs @@ -1,3 +1,7 @@ +{-# OPTIONS_GHC -O #-} +-- We always optimise this, otherwise performance of a non-optimised +-- compiler is severely affected + -- ----------------------------------------------------------------------------- -- -- (c) The University of Glasgow, 1997-2006 diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index 00aba34bba..e8ea58c8db 100644 --- a/compiler/utils/FastMutInt.lhs +++ b/compiler/utils/FastMutInt.lhs @@ -1,10 +1,14 @@ +\begin{code} {-# OPTIONS -cpp #-} +{-# OPTIONS_GHC -O #-} +-- We always optimise this, otherwise performance of a non-optimised +-- compiler is severely affected + -- -- (c) The University of Glasgow 2002-2006 -- -- Unboxed mutable Ints -\begin{code} module FastMutInt( FastMutInt, newFastMutInt, readFastMutInt, writeFastMutInt, diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index ac79b5b75f..f338002709 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -2,6 +2,10 @@ % (c) The University of Glasgow, 1997-2006 % \begin{code} +{-# OPTIONS_GHC -O -funbox-strict-fields #-} +-- We always optimise this, otherwise performance of a non-optimised +-- compiler is severely affected + {- FastString: A compact, hash-consed, representation of character strings. Comparison is O(1), and you can get a Unique from them. diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index d51c800fca..3b2a3df2c8 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -6,6 +6,10 @@ Buffers for scanning string input stored in external arrays. \begin{code} +{-# OPTIONS_GHC -O -funbox-strict-fields #-} +-- We always optimise this, otherwise performance of a non-optimised +-- compiler is severely affected + module StringBuffer ( StringBuffer(..), |