Delete __GLASGOW_HASKELL__ ifdefs for stage0 < 7.6.
authorThomas Miedema <thomasmiedema@gmail.com>
Tue, 7 Oct 2014 13:48:06 +0000 (08:48 -0500)
committerAustin Seipp <austin@well-typed.com>
Tue, 7 Oct 2014 13:48:07 +0000 (08:48 -0500)
Summary:
My understanding is that ghc 7.10 should be buildable with the last 3 versions
of ghc, i.e 7.6, 7.8 and 7.10 itself.

Test Plan: x

Reviewers: austin

Reviewed By: austin

Subscribers: hvr, simonmar, ezyang, carter, thomie

Differential Revision: https://phabricator.haskell.org/D254

16 files changed:
ghc/hschooks.c
libraries/base/tests/enum01.hs
libraries/base/tests/enum02.hs
libraries/base/tests/enum03.hs
libraries/base/tests/list001.hs
testsuite/tests/arityanal/Main.hs
testsuite/tests/concurrent/should_run/conc024.hs
testsuite/tests/concurrent/should_run/conc029.hs
testsuite/tests/concurrent/should_run/conc030.hs
testsuite/tests/concurrent/should_run/conc034.hs
testsuite/tests/concurrent/should_run/foreignInterruptible.hs
testsuite/tests/driver/T2464.hs
testsuite/tests/dynlibs/T4464B.c
testsuite/tests/ghci.debugger/HappyTest.hs
testsuite/tests/numeric/should_run/T7014.hs
testsuite/tests/rts/testblockalloc.c

index 4c588d0..67cdd57 100644 (file)
@@ -45,11 +45,7 @@ defaultsHook (void)
 
     // See #3408: the default idle GC time of 0.3s is too short on
     // Windows where we receive console events once per second or so.
-#if __GLASGOW_HASKELL__ >= 703
     RtsFlags.GcFlags.idleGCDelayTime = SecondsToTime(5);
-#else
-    RtsFlags.GcFlags.idleGCDelayTime = 5*1000;
-#endif
 }
 
 void
index 8b490bb..0f26173 100644 (file)
@@ -3,9 +3,6 @@
 module Main(main) where
 
 import Control.Exception
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 import Data.Char
 import Data.Ratio
 
index 95812e5..23de6eb 100644 (file)
@@ -3,9 +3,6 @@
 module Main(main) where
 
 import Control.Exception
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 import Data.Int
 
 main = do
index 9f730a9..1cbe309 100644 (file)
@@ -2,9 +2,6 @@
 {-# LANGUAGE CPP #-}
 module Main(main) where
 
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 import Control.Exception
 import Data.Word
 import Data.Int
index cec5f99..a2a39dd 100644 (file)
@@ -3,9 +3,6 @@ module Main where
 
 import Data.List
 import Control.Exception
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 
 -- This module briefly tests all the functions in PrelList and a few
 -- from List.
index 25419fb..5c0bf89 100644 (file)
@@ -9,19 +9,10 @@ import Control.Monad.ST
 import Control.Monad (when)\r
 import Data.STRef\r
 import GHC.ST\r
-#if __GLASGOW_HASKELL__ >= 503\r
 import Data.Array\r
 import Data.Char (ord)\r
 import Data.Array.Base (unsafeAt)\r
-#else\r
-import Array\r
-import Char (ord)\r
-#endif\r
-#if __GLASGOW_HASKELL__ >= 503\r
 import GHC.Exts\r
-#else\r
-import GlaExts\r
-#endif\r
 alex_base :: AlexAddr\r
 alex_base = AlexA# "\xf8\xff\xfd\xff\x02\x00\x4c\x00"#\r
 \r
@@ -185,19 +176,9 @@ data AlexAddr = AlexA# Addr#
 \r
 {-# INLINE alexIndexShortOffAddr #-}\r
 alexIndexShortOffAddr (AlexA# arr) off =\r
-#if __GLASGOW_HASKELL__ > 500\r
          narrow16Int# i\r
-#elif __GLASGOW_HASKELL__ == 500\r
-         intToInt16# i\r
-#else\r
-         (i `iShiftL#` 16#) `iShiftRA#` 16#\r
-#endif\r
   where\r
-#if __GLASGOW_HASKELL__ >= 503\r
          i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)\r
-#else\r
-         i = word2Int# ((high `shiftL#` 8#) `or#` low)\r
-#endif\r
          high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))\r
          low  = int2Word# (ord# (indexCharOffAddr# arr off'))\r
          off' = off *# 2#\r
index c141082..9a82320 100644 (file)
@@ -3,9 +3,6 @@ module Main where
 
 import Control.Exception
 import Control.Concurrent
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 import System.Mem
 
 -- illustrates the BlockOnDeadMVar exception
index ceca99d..cca4ccf 100644 (file)
@@ -3,9 +3,6 @@ module Main where
 
 import Control.Exception
 import Control.Concurrent
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 
 -- the BlockOnDeadMVar exception doesn't cause any output by default
 
index 658feb3..b2f439c 100644 (file)
@@ -3,9 +3,6 @@ module Main where
 
 import Control.Exception
 import Control.Concurrent
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 
 -- the ThreadKilled exception doesn't cause any output by default
 
index 993b961..85852d6 100644 (file)
@@ -5,10 +5,6 @@ import Foreign
 
 import System.IO (hFlush,stdout)
 
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
-
 -- !!! Try to get two threads into a knot depending on each other.
 
 -- This should result in the main thread being sent a NonTermination
index 52da549..73585ec 100644 (file)
@@ -3,9 +3,6 @@ module Main where
 
 import Control.Concurrent
 import Control.Exception
-#if __GLASGOW_HASKELL__ < 705
-import Prelude hiding (catch)
-#endif
 import Foreign
 import System.IO
 
index 3547c10..6bee708 100644 (file)
@@ -4,9 +4,6 @@
 #ifdef TEST
 {-# LANGUAGE EmptyDataDecls #-}
 #endif
-#if __GLASGOW_HASKELL__ < 610
-{-# INCLUDE "foo.h" #-} -- would generate a deprecation warning if enabled
-#endif
 
 module Test2464 where
 data T
index 310b75a..c8fd845 100644 (file)
@@ -7,16 +7,12 @@ void HsStart(void) {
 
     // Initialize Haskell runtime
     char** args = argv;
-#if __GLASGOW_HASKELL__ >= 703
     {
         RtsConfig conf = defaultRtsConfig;
         conf.rts_opts_enabled = RTSOPTS; // RTSOPTS defined on the
                                          // command line with -DRTSOPTS=...
         hs_init_ghc(&argc, &args, conf);
     }
-#else
-    hs_init(&argc, &args);
-#endif
 }
 
 void HsEnd(void) {
index 02c6a96..8eac4e7 100644 (file)
@@ -345,19 +345,9 @@ happyDoAction i tk st
 
 
 indexShortOffAddr (HappyA# arr) off =
-#if __GLASGOW_HASKELL__ > 500
        narrow16Int# i
-#elif __GLASGOW_HASKELL__ == 500
-       intToInt16# i
-#else
-       (i `iShiftL#` 16#) `iShiftRA#` 16#
-#endif
   where
-#if __GLASGOW_HASKELL__ >= 503
        i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
-#else
-       i = word2Int# ((high `shiftL#` 8#) `or#` low)
-#endif
        high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
        low  = int2Word# (ord# (indexCharOffAddr# arr off'))
        off' = off *# 2#
index 222b33b..e02264d 100644 (file)
@@ -3,9 +3,6 @@
 module Main where
 
 import Data.Bits
-#if __GLASGOW_HASKELL__ < 705
-import Data.Word (Word)
-#endif
 
 test_and1 :: Word -> Word
 test_and1 x = x .&. 0
index 7fd14b6..b49ae00 100644 (file)
@@ -21,15 +21,11 @@ int main (int argc, char *argv[])
 
     srand(SEED);
 
-#if __GLASGOW_HASKELL__ >= 703
     {
         RtsConfig conf = defaultRtsConfig;
         conf.rts_opts_enabled = RtsOptsAll;
         hs_init_ghc(&argc, &argv, conf);
     }
-#else
-    hs_init(&argc, &argv);
-#endif
 
    // repeatedly sweep though the array, allocating new random-sized
    // objects and deallocating the old ones.