diff options
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 1 | ||||
| -rw-r--r-- | compiler/utils/Platform.hs | 9 |
2 files changed, 3 insertions, 7 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 4bde8efd5b..a01fa1b55e 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -853,7 +853,6 @@ genCCall target dest_regs argsAndHints OSMinGW32 -> panic "PPC.CodeGen.genCCall: not defined for this os" OSFreeBSD -> panic "PPC.CodeGen.genCCall: not defined for this os" OSOpenBSD -> panic "PPC.CodeGen.genCCall: not defined for this os" - OSUnknown -> panic "PPC.CodeGen.genCCall: not defined for this os" data GenCCallPlatform = GCPLinux | GCPDarwin diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 362d7822d0..7446fc1099 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -48,11 +48,9 @@ data Arch deriving (Show, Eq) --- | Operating systems that the native code generator knows about. --- Having OSUnknown should produce a sensible default, but no promises. +-- | Operating systems that we know about. data OS - = OSUnknown - | OSLinux + = OSLinux | OSDarwin | OSSolaris2 | OSMinGW32 @@ -96,7 +94,6 @@ 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. @@ -142,7 +139,7 @@ defaultTargetOS = OSFreeBSD #elif openbsd_TARGET_OS defaultTargetOS = OSOpenBSD #else -defaultTargetOS = OSUnknown +#error Unknown OS #endif #if arm_TARGET_ARCH |