compiler/utils/Platform.hs

   1
   2 -- | A description of the platform we're compiling for.
   3 --      In the future, this module should be the only one that references
   4 --      the evil #defines for each TARGET_ARCH and TARGET_OS
   5 --
   6 module Platform (
   7         Platform(..),
   8         Arch(..),
   9         OS(..),
  10
  11         defaultTargetPlatform,
  12         target32Bit,
  13         osElfTarget
  14 )
  15
  16 where
  17
  18 import Panic
  19
  20 #include "HsVersions.h"
  21
  22
  23 -- | Contains enough information for the native code generator to emit
  24 --      code for this platform.
  25 data Platform
  26         = Platform
  27         { platformArch  :: Arch
  28         , platformOS    :: OS }
  29
  30
  31 -- | Architectures that the native code generator knows about.
  32 --      TODO: It might be nice to extend these constructors with information
  33 --      about what instruction set extensions an architecture might support.
  34 --
  35 data Arch
  36         = ArchUnknown
  37         | ArchX86
  38         | ArchX86_64
  39         | ArchPPC
  40         | ArchPPC_64
  41         | ArchSPARC
  42         deriving (Show, Eq)
  43
  44
  45 -- | Operating systems that the native code generator knows about.
  46 --      Having OSUnknown should produce a sensible default, but no promises.
  47 data OS
  48         = OSUnknown
  49         | OSLinux
  50         | OSDarwin
  51         | OSSolaris2
  52         | OSMinGW32
  53         | OSFreeBSD
  54         | OSOpenBSD
  55         deriving (Show, Eq)
  56
  57
  58 target32Bit :: Platform -> Bool
  59 target32Bit p = case platformArch p of
  60                 ArchUnknown -> panic "Don't know if ArchUnknown is 32bit"
  61                 ArchX86     -> True
  62                 ArchX86_64  -> False
  63                 ArchPPC     -> True
  64                 ArchPPC_64  -> False
  65                 ArchSPARC   -> True
  66
  67
  68 -- | This predicates tells us whether the OS supports ELF-like shared libraries.
  69 osElfTarget :: OS -> Bool
  70 osElfTarget OSLinux   = True
  71 osElfTarget OSFreeBSD = True
  72 osElfTarget OSOpenBSD = True
  73 osElfTarget OSSolaris2 = True
  74 osElfTarget _         = False
  75
  76 -- | This is the target platform as far as the #ifdefs are concerned.
  77 --      These are set in includes/ghcplatform.h by the autoconf scripts
  78 defaultTargetPlatform :: Platform
  79 defaultTargetPlatform
  80         = Platform defaultTargetArch defaultTargetOS
  81
  82
  83 -- | Move the evil TARGET_ARCH #ifdefs into Haskell land.
  84 defaultTargetArch :: Arch
  85 #if i386_TARGET_ARCH
  86 defaultTargetArch       = ArchX86
  87 #elif x86_64_TARGET_ARCH
  88 defaultTargetArch       = ArchX86_64
  89 #elif powerpc_TARGET_ARCH
  90 defaultTargetArch       = ArchPPC
  91 #elif powerpc64_TARGET_ARCH
  92 defaultTargetArch       = ArchPPC_64
  93 #elif sparc_TARGET_ARCH
  94 defaultTargetArch       = ArchSPARC
  95 #else
  96 defaultTargetArch       = ArchUnknown
  97 #endif
  98
  99
 100 -- | Move the evil TARGET_OS #ifdefs into Haskell land.
 101 defaultTargetOS :: OS
 102 #if   linux_TARGET_OS
 103 defaultTargetOS = OSLinux
 104 #elif darwin_TARGET_OS
 105 defaultTargetOS = OSDarwin
 106 #elif solaris2_TARGET_OS
 107 defaultTargetOS = OSSolaris2
 108 #elif mingw32_TARGET_OS
 109 defaultTargetOS = OSMinGW32
 110 #elif freebsd_TARGET_OS
 111 defaultTargetOS = OSFreeBSD
 112 #elif openbsd_TARGET_OS
 113 defaultTargetOS = OSOpenBSD
 114 #else
 115 defaultTargetOS = OSUnknown
 116 #endif
 117