From 1d34bd56c9dde4dad72d3e8a4cfabdf11337dfb3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 18 Mar 2009 15:12:55 +0000 Subject: [PATCH] FIX unregisterised target by #ifdefing targetPlatform stuff I'm not sure if this is the correct fix. If targetPlatform is really NCG-specific, then maybe we should call it asmTargetPlatform or something. --- compiler/main/DynFlags.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index eb9a182..e3fd426 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -64,7 +64,9 @@ module DynFlags ( #include "HsVersions.h" +#ifndef OMIT_NATIVE_CODEGEN import Platform +#endif import Module import PackageConfig import PrelNames ( mAIN, main_RDR_Unqual ) @@ -340,7 +342,9 @@ data DynFlags = DynFlags { specConstrCount :: Maybe Int, -- ^ Max number of specialisations for any one function liberateCaseThreshold :: Maybe Int, -- ^ Threshold for LiberateCase +#ifndef OMIT_NATIVE_CODEGEN targetPlatform :: Platform, -- ^ The platform we're compiling for. Used by the NCG. +#endif stolen_x86_regs :: Int, cmdlineHcIncludes :: [String], -- ^ @\-\#includes@ importPaths :: [FilePath], @@ -586,7 +590,9 @@ defaultDynFlags = specConstrThreshold = Just 200, specConstrCount = Just 3, liberateCaseThreshold = Just 200, +#ifndef OMIT_NATIVE_CODEGEN targetPlatform = defaultTargetPlatform, +#endif stolen_x86_regs = 4, cmdlineHcIncludes = [], importPaths = ["."], -- 1.7.10.4