From 265bedd9b4869cf5f323ab32ed1e4af0f7a0bfe0 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 8 Jun 2011 18:51:18 +0100 Subject: [PATCH] Fill out the osElfTarget definition For now we panic in the OSUnknown case. It would probably be better to make the enumerations complete instead, though. --- compiler/utils/Platform.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 8f07b47..f3749ca 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -67,11 +67,14 @@ target32Bit p = case platformArch p of -- | This predicates tells us whether the OS supports ELF-like shared libraries. osElfTarget :: OS -> Bool -osElfTarget OSLinux = True -osElfTarget OSFreeBSD = True -osElfTarget OSOpenBSD = True +osElfTarget OSLinux = True +osElfTarget OSFreeBSD = True +osElfTarget OSOpenBSD = True osElfTarget OSSolaris2 = True -osElfTarget _ = False +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. -- These are set in includes/ghcplatform.h by the autoconf scripts -- 1.7.10.4