diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-29 19:08:50 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
commit | 1fbb4bf5f3d31f115e5a824588efc529cebf3185 (patch) | |
tree | 09536a015d43c76ea8358645566513df472df119 | |
parent | bfd0a78cdd0287c26998a4d9419174e4dc305c6f (diff) | |
download | haskell-1fbb4bf5f3d31f115e5a824588efc529cebf3185.tar.gz |
NCGConfig: remove useless ncgUnitId field
-rw-r--r-- | compiler/GHC/CmmToAsm/Config.hs | 2 | ||||
-rw-r--r-- | compiler/GHC/CmmToAsm/Monad.hs | 1 |
2 files changed, 0 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/Config.hs b/compiler/GHC/CmmToAsm/Config.hs index 6879a8c41c..6be6f17342 100644 --- a/compiler/GHC/CmmToAsm/Config.hs +++ b/compiler/GHC/CmmToAsm/Config.hs @@ -9,12 +9,10 @@ where import GHC.Prelude import GHC.Platform import GHC.Cmm.Type (Width(..)) -import GHC.Unit.Module -- | Native code generator configuration data NCGConfig = NCGConfig { ncgPlatform :: !Platform -- ^ Target platform - , ncgUnitId :: Unit -- ^ Target unit ID , ncgProcAlignment :: !(Maybe Int) -- ^ Mandatory proc alignment , ncgDebugLevel :: !Int -- ^ Debug level , ncgExternalDynamicRefs :: !Bool -- ^ Generate code to link against dynamic libraries diff --git a/compiler/GHC/CmmToAsm/Monad.hs b/compiler/GHC/CmmToAsm/Monad.hs index 9310c6073a..258acae40c 100644 --- a/compiler/GHC/CmmToAsm/Monad.hs +++ b/compiler/GHC/CmmToAsm/Monad.hs @@ -149,7 +149,6 @@ mkNatM_State us delta dflags this_mod initConfig :: DynFlags -> NCGConfig initConfig dflags = NCGConfig { ncgPlatform = targetPlatform dflags - , ncgUnitId = homeUnit dflags , ncgProcAlignment = cmmProcAlignment dflags , ncgDebugLevel = debugLevel dflags , ncgExternalDynamicRefs = gopt Opt_ExternalDynamicRefs dflags |