2 -- | A description of the platform we're compiling for.
3 -- Used by the native code generator.
4 -- In the future, this module should be the only one that references
5 -- the evil #defines for each TARGET_ARCH and TARGET_OS
12 defaultTargetPlatform,
18 #include "HsVersions.h"
21 -- | Contains enough information for the native code generator to emit
22 -- code for this platform.
25 { platformArch :: Arch
29 -- | Architectures that the native code generator knows about.
30 -- TODO: It might be nice to extend these constructors with information
31 -- about what instruction set extensions an architecture might support.
42 -- | Operating systems that the native code generator knows about.
43 -- Having OSUnknown should produce a sensible default, but no promises.
55 -- | This predicates tells us whether the OS supports ELF-like shared libraries.
56 osElfTarget :: OS -> Bool
57 osElfTarget OSLinux = True
58 osElfTarget OSFreeBSD = True
59 osElfTarget OSOpenBSD = True
60 osElfTarget OSSolaris2 = True
63 -- | This is the target platform as far as the #ifdefs are concerned.
64 -- These are set in includes/ghcplatform.h by the autoconf scripts
65 defaultTargetPlatform :: Platform
67 = Platform defaultTargetArch defaultTargetOS
70 -- | Move the evil TARGET_ARCH #ifdefs into Haskell land.
71 defaultTargetArch :: Arch
73 defaultTargetArch = ArchX86
74 #elif x86_64_TARGET_ARCH
75 defaultTargetArch = ArchX86_64
76 #elif powerpc_TARGET_ARCH
77 defaultTargetArch = ArchPPC
78 #elif powerpc64_TARGET_ARCH
79 defaultTargetArch = ArchPPC_64
80 #elif sparc_TARGET_ARCH
81 defaultTargetArch = ArchSPARC
83 #error "Platform.buildArch: undefined"
87 -- | Move the evil TARGET_OS #ifdefs into Haskell land.
90 defaultTargetOS = OSLinux
91 #elif darwin_TARGET_OS
92 defaultTargetOS = OSDarwin
93 #elif solaris2_TARGET_OS
94 defaultTargetOS = OSSolaris2
95 #elif mingw32_TARGET_OS
96 defaultTargetOS = OSMinGW32
97 #elif freebsd_TARGET_OS
98 defaultTargetOS = OSFreeBSD
99 #elif openbsd_TARGET_OS
100 defaultTargetOS = OSOpenBSD
102 defaultTargetOS = OSUnknown