diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-19 01:58:54 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-19 01:58:54 +0100 |
| commit | 013a3e3b79a86e377c6c94b34f6313d58363c6b3 (patch) | |
| tree | 744507d686cfcc657dc39ca0ece5c88ded541eb5 /compiler/utils/Platform.hs | |
| parent | 5ab74eb767e42a897f16b5872cac9e3462612ee7 (diff) | |
| download | haskell-013a3e3b79a86e377c6c94b34f6313d58363c6b3.tar.gz | |
Revert "Remove OSUnknown"
This reverts commit f75f26cc4eed3c3cfc256ebfb9e77b8e82a766fc.
On second thoughts, this does make sense, for unregisterised via-C
OSes at least.
Diffstat (limited to 'compiler/utils/Platform.hs')
| -rw-r--r-- | compiler/utils/Platform.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 7446fc1099..362d7822d0 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -48,9 +48,11 @@ data Arch deriving (Show, Eq) --- | Operating systems that we know about. +-- | Operating systems that the native code generator knows about. +-- Having OSUnknown should produce a sensible default, but no promises. data OS - = OSLinux + = OSUnknown + | OSLinux | OSDarwin | OSSolaris2 | OSMinGW32 @@ -94,6 +96,7 @@ osElfTarget OSOpenBSD = True osElfTarget OSSolaris2 = True osElfTarget OSDarwin = False osElfTarget OSMinGW32 = False +osElfTarget OSUnknown = panic "Don't know if OSUnknown is elf" -- | This is the target platform as far as the #ifdefs are concerned. @@ -139,7 +142,7 @@ defaultTargetOS = OSFreeBSD #elif openbsd_TARGET_OS defaultTargetOS = OSOpenBSD #else -#error Unknown OS +defaultTargetOS = OSUnknown #endif #if arm_TARGET_ARCH |