Ticket #5734: 0002-Add-Architecture-names-from-aclocal.mk-missing-in-Pl.patch

File 0002-Add-Architecture-names-from-aclocal.mk-missing-in-Pl.patch, 1.1 KB (added by nomeata, 4 years ago)

Patch in git format, needs patch from #5735 applied first to apply cleanly.

  • compiler/utils/Platform.hs

    From bba6188afccabb6a4c82893b4547f560caffcc3f Mon Sep 17 00:00:00 2001
    From: Joachim Breitner <[email protected]>
    Date: Sun, 1 Jan 2012 02:20:40 +0100
    Subject: [PATCH 2/2] Add Architecture names from aclocal.mk missing in
     Platform.hs
    
    Fixes: #5734
    ---
     compiler/utils/Platform.hs |    6 ++++++
     1 files changed, 6 insertions(+), 0 deletions(-)
    
    diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs
    index 46cbbef..1e335e1 100644
    a b data Arch 
    4545          , armISAExt :: [ArmISAExt] }
    4646        | ArchS390
    4747        | ArchS390x
     48        | ArchMipseb
     49        | ArchMipsel
     50        | ArchAlpha
    4851        deriving (Read, Show, Eq)
    4952
    5053
    target32Bit p = case platformArch p of 
    8992                ArchARM _ _ -> True
    9093                ArchS390    -> True
    9194                ArchS390x   -> False
     95                ArchMipsel  -> True
     96                ArchMipseb  -> True
     97                ArchAlpha   -> True
    9298
    9399
    94100-- | This predicates tells us whether the OS supports ELF-like shared libraries.