diff options
Diffstat (limited to 'compiler/utils/Platform.hs')
| -rw-r--r-- | compiler/utils/Platform.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 449a62a5b6..179449c603 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -9,6 +9,7 @@ module Platform ( ArmISAExt(..), ArmABI(..), PPC_64ABI(..), + IntegerLibrary(..), target32Bit, isARM, @@ -26,6 +27,7 @@ import GhcPrelude -- code for this platform. data Platform = Platform { + platformIntegerLibrary :: IntegerLibrary, platformArch :: Arch, platformOS :: OS, -- Word size in bytes (i.e. normally 4 or 8, @@ -35,10 +37,15 @@ data Platform platformHasGnuNonexecStack :: Bool, platformHasIdentDirective :: Bool, platformHasSubsectionsViaSymbols :: Bool, - platformIsCrossCompiling :: Bool + platformIsCrossCompiling :: Bool, + platformString :: String } deriving (Read, Show, Eq) +data IntegerLibrary = IntegerGMP + | IntegerSimple + deriving (Read, Show, Eq) + -- | Architectures that the native code generator knows about. -- TODO: It might be nice to extend these constructors with information @@ -159,4 +166,3 @@ platformUsesFrameworks = osUsesFrameworks . platformOS osSubsectionsViaSymbols :: OS -> Bool osSubsectionsViaSymbols OSDarwin = True osSubsectionsViaSymbols _ = False - |