cmm: Remove unnecessary HsVersion.h includes
authorMichal Terepeta <michal.terepeta@gmail.com>
Tue, 6 Feb 2018 18:26:29 +0000 (13:26 -0500)
committerBen Gamari <ben@smart-cactus.org>
Tue, 6 Feb 2018 19:21:16 +0000 (14:21 -0500)
Test Plan: ./validate

Reviewers: goldfire, bgamari, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

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

compiler/cmm/Bitmap.hs
compiler/cmm/Cmm.hs
compiler/cmm/CmmBuildInfoTables.hs
compiler/cmm/CmmCallConv.hs
compiler/cmm/CmmLayoutStack.hs
compiler/cmm/CmmMachOp.hs
compiler/cmm/CmmOpt.hs
compiler/cmm/CmmType.hs
compiler/cmm/MkGraph.hs
compiler/cmm/SMRep.hs

index 6ff6193..e6ac15f 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, BangPatterns #-}
+{-# LANGUAGE BangPatterns #-}
 
 --
 -- (c) The University of Glasgow 2003-2006
@@ -15,9 +15,6 @@ module Bitmap (
         seqBitmap,
   ) where
 
-#include "HsVersions.h"
-#include "../includes/MachDeps.h"
-
 import GhcPrelude
 
 import SMRep
index c9ecda8..9f83273 100644 (file)
@@ -41,8 +41,6 @@ import Outputable
 
 import Data.Word        ( Word8 )
 
-#include "HsVersions.h"
-
 -----------------------------------------------------------------------------
 --  Cmm, GenCmm
 -----------------------------------------------------------------------------
index a482306..dc5cfd6 100644 (file)
@@ -1,12 +1,10 @@
-{-# LANGUAGE BangPatterns, CPP, GADTs #-}
+{-# LANGUAGE BangPatterns, GADTs #-}
 
 module CmmBuildInfoTables
     ( CAFSet, CAFEnv, cafAnal
     , doSRTs, TopSRT, emptySRT, isEmptySRT, srtToData )
 where
 
-#include "HsVersions.h"
-
 import GhcPrelude hiding (succ)
 
 import Hoopl.Block
index c32710e..e1067e9 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 module CmmCallConv (
   ParamLocation(..),
   assignArgumentsPos,
@@ -7,8 +5,6 @@ module CmmCallConv (
   realArgRegsCover
 ) where
 
-#include "HsVersions.h"
-
 import GhcPrelude
 
 import CmmExpr
index b2d74b2..6cf8f8e 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns, CPP, RecordWildCards, GADTs #-}
+{-# LANGUAGE BangPatterns, RecordWildCards, GADTs #-}
 module CmmLayoutStack (
        cmmLayoutStack, setInfoTableStackMap
   ) where
@@ -39,8 +39,6 @@ import Data.Array as Array
 import Data.Bits
 import Data.List (nub)
 
-#include "HsVersions.h"
-
 {- Note [Stack Layout]
 
 The job of this pass is to
index 8ac4a6f..9203911 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 module CmmMachOp
     ( MachOp(..)
     , pprMachOp, isCommutableMachOp, isAssociativeMachOp
@@ -28,8 +26,6 @@ module CmmMachOp
    )
 where
 
-#include "HsVersions.h"
-
 import GhcPrelude
 
 import CmmType
index f9b1260..6b4d792 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 -- The default iteration limit is a bit too low for the definitions
 -- in this module.
 {-# OPTIONS_GHC -fmax-pmcheck-iterations=10000000 #-}
@@ -19,8 +17,6 @@ module CmmOpt (
         cmmMachOpFoldM
  ) where
 
-#include "HsVersions.h"
-
 import GhcPrelude
 
 import CmmUtils
index cb15dc7..0538b9f 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 module CmmType
     ( CmmType   -- Abstract
     , b8, b16, b32, b64, b128, b256, b512, f32, f64, bWord, bHalfWord, gcWord
@@ -29,7 +27,6 @@ module CmmType
    )
 where
 
-#include "HsVersions.h"
 
 import GhcPrelude
 
index f130f1b..d9f1402 100644 (file)
@@ -42,8 +42,6 @@ import Control.Monad
 import Data.List
 import Data.Maybe
 
-#include "HsVersions.h"
-
 
 -----------------------------------------------------------------------------
 -- Building Graphs
index 1469ae1..9f8a49b 100644 (file)
@@ -47,9 +47,6 @@ module SMRep (
         pprWord8String, stringToWord8s
     ) where
 
-#include "../HsVersions.h"
-#include "../includes/MachDeps.h"
-
 import GhcPrelude
 
 import BasicTypes( ConTagZ )