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, 3 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.