Commit 417f4d59 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a target32Bit function to Platform

parent 9932074a
......@@ -9,11 +9,14 @@ module Platform (
OS(..),
defaultTargetPlatform,
target32Bit,
osElfTarget
)
where
import Panic
#include "HsVersions.h"
......@@ -52,6 +55,16 @@ data OS
deriving (Show, Eq)
target32Bit :: Platform -> Bool
target32Bit p = case platformArch p of
ArchUnknown -> panic "Don't know if ArchUnknown is 32bit"
ArchX86 -> True
ArchX86_64 -> False
ArchPPC -> True
ArchPPC_64 -> False
ArchSPARC -> True
-- | This predicates tells us whether the OS supports ELF-like shared libraries.
osElfTarget :: OS -> Bool
osElfTarget OSLinux = True
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment