From 4569092a2367f12acc6e2ae5626bd54b0f734098 Mon Sep 17 00:00:00 2001
From: Michal Terepeta <michal.terepeta@gmail.com>
Date: Mon, 9 Apr 2012 21:47:54 +0200
Subject: [PATCH] Add -fno-cse flag to some IO.Encoding.* modules.
Apparently CSE hurts performance a bit here. Apart from that, remove
the -funbox-strict-fields flag that isn't used.
---
GHC/IO/Encoding/Latin1.hs | 2 +-
GHC/IO/Encoding/UTF16.hs | 2 +-
GHC/IO/Encoding/UTF32.hs | 2 +-
GHC/IO/Encoding/UTF8.hs | 2 +-
4 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/GHC/IO/Encoding/Latin1.hs b/GHC/IO/Encoding/Latin1.hs
index aba66ad..3af2b40 100644
|
a
|
b
|
|
| 3 | 3 | , BangPatterns |
| 4 | 4 | , NondecreasingIndentation |
| 5 | 5 | #-} |
| 6 | | {-# OPTIONS_GHC -funbox-strict-fields #-} |
| | 6 | {-# OPTIONS_GHC -fno-cse #-} |
| 7 | 7 | |
| 8 | 8 | ----------------------------------------------------------------------------- |
| 9 | 9 | -- | |
diff --git a/GHC/IO/Encoding/UTF16.hs b/GHC/IO/Encoding/UTF16.hs
index ca231ca..24575e3 100644
|
a
|
b
|
|
| 5 | 5 | , NondecreasingIndentation |
| 6 | 6 | , MagicHash |
| 7 | 7 | #-} |
| 8 | | {-# OPTIONS_GHC -funbox-strict-fields #-} |
| | 8 | {-# OPTIONS_GHC -fno-cse #-} |
| 9 | 9 | |
| 10 | 10 | ----------------------------------------------------------------------------- |
| 11 | 11 | -- | |
diff --git a/GHC/IO/Encoding/UTF32.hs b/GHC/IO/Encoding/UTF32.hs
index ce3aa52..73068e6 100644
|
a
|
b
|
|
| 4 | 4 | , NondecreasingIndentation |
| 5 | 5 | , MagicHash |
| 6 | 6 | #-} |
| 7 | | {-# OPTIONS_GHC -funbox-strict-fields #-} |
| | 7 | {-# OPTIONS_GHC -fno-cse #-} |
| 8 | 8 | |
| 9 | 9 | ----------------------------------------------------------------------------- |
| 10 | 10 | -- | |
diff --git a/GHC/IO/Encoding/UTF8.hs b/GHC/IO/Encoding/UTF8.hs
index 0d82113..ec178c2 100644
|
a
|
b
|
|
| 4 | 4 | , NondecreasingIndentation |
| 5 | 5 | , MagicHash |
| 6 | 6 | #-} |
| 7 | | {-# OPTIONS_GHC -funbox-strict-fields #-} |
| | 7 | {-# OPTIONS_GHC -fno-cse #-} |
| 8 | 8 | |
| 9 | 9 | ----------------------------------------------------------------------------- |
| 10 | 10 | -- | |