Commit 7ad72eb3 authored by Michal Terepeta's avatar Michal Terepeta Committed by Ben Gamari

cmm: Remove unnecessary HsVersion.h includes

Test Plan: ./validate

Reviewers: goldfire, bgamari, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision: https://phabricator.haskell.org/D4367
parent d2511e3b
{-# 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
......
......@@ -41,8 +41,6 @@ import Outputable
import Data.Word ( Word8 )
#include "HsVersions.h"
-----------------------------------------------------------------------------
-- Cmm, GenCmm
-----------------------------------------------------------------------------
......
{-# 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
......
{-# LANGUAGE CPP #-}
module CmmCallConv (
ParamLocation(..),
assignArgumentsPos,
......@@ -7,8 +5,6 @@ module CmmCallConv (
realArgRegsCover
) where
#include "HsVersions.h"
import GhcPrelude
import CmmExpr
......
{-# 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
......
{-# LANGUAGE CPP #-}
module CmmMachOp
( MachOp(..)
, pprMachOp, isCommutableMachOp, isAssociativeMachOp
......@@ -28,8 +26,6 @@ module CmmMachOp
)
where
#include "HsVersions.h"
import GhcPrelude
import CmmType
......
{-# 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
......
{-# 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
......
......@@ -42,8 +42,6 @@ import Control.Monad
import Data.List
import Data.Maybe
#include "HsVersions.h"
-----------------------------------------------------------------------------
-- Building Graphs
......
......@@ -47,9 +47,6 @@ module SMRep (
pprWord8String, stringToWord8s
) where
#include "../HsVersions.h"
#include "../includes/MachDeps.h"
import GhcPrelude
import BasicTypes( ConTagZ )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment