Jens Petersen
13 years ago
parent
a27c47f9d9
commit
6b98066a85
@ -1,29 +0,0 @@
|
||||
From 1cbf3bcae87dd102942d85ce71ea17d42d4b5f5a Mon Sep 17 00:00:00 2001
|
||||
From: Karel Gardas <karel.gardas@centrum.cz>
|
||||
Date: Tue, 14 Feb 2012 08:03:07 +0100
|
||||
Subject: [PATCH 2/2] fix ARM StgCRun to not save and restore r11/fp register twice
|
||||
|
||||
---
|
||||
rts/StgCRun.c | 4 ++--
|
||||
1 files changed, 2 insertions(+), 2 deletions(-)
|
||||
|
||||
--- a/rts/StgCRun.c
|
||||
+++ b/rts/StgCRun.c
|
||||
@@ -632,7 +632,7 @@
|
||||
/*
|
||||
* save callee-saves registers on behalf of the STG code.
|
||||
*/
|
||||
- "stmfd sp!, {r4-r11, fp, ip, lr}\n\t"
|
||||
+ "stmfd sp!, {r4-r10, fp, ip, lr}\n\t"
|
||||
#if !defined(arm_HOST_ARCH_PRE_ARMv6)
|
||||
"vstmdb sp!, {d8-d11}\n\t"
|
||||
#endif
|
||||
@@ -669,7 +669,7 @@
|
||||
#if !defined(arm_HOST_ARCH_PRE_ARMv6)
|
||||
"vldmia sp!, {d8-d11}\n\t"
|
||||
#endif
|
||||
- "ldmfd sp!, {r4-r11, fp, ip, lr}\n\t"
|
||||
+ "ldmfd sp!, {r4-r10, fp, ip, lr}\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (f), "r" (basereg), "i" (RESERVED_C_STACK_BYTES)
|
||||
#if !defined(__thumb__)
|
||||
@ -1,34 +0,0 @@
|
||||
From 957f778cb971d63cbbea0c71c727c94474b1b905 Mon Sep 17 00:00:00 2001
|
||||
From: Karel Gardas <karel.gardas@centrum.cz>
|
||||
Date: Tue, 14 Feb 2012 08:01:47 +0100
|
||||
Subject: [PATCH 1/2] fix ARM's StgCRun clobbered register list for both ARM and Thumb modes
|
||||
|
||||
---
|
||||
rts/StgCRun.c | 16 +++++++++++++++-
|
||||
1 files changed, 15 insertions(+), 1 deletions(-)
|
||||
|
||||
--- a/rts/StgCRun.c
|
||||
+++ b/rts/StgCRun.c
|
||||
@@ -672,7 +672,21 @@
|
||||
"ldmfd sp!, {r4-r11, fp, ip, lr}\n\t"
|
||||
: "=r" (r)
|
||||
: "r" (f), "r" (basereg), "i" (RESERVED_C_STACK_BYTES)
|
||||
- : "%r4", "%r5", "%r6", "%r8", "%r9", "%r10", "%r11", "%fp", "%ip", "%lr"
|
||||
+#if !defined(__thumb__)
|
||||
+ /* In ARM mode, r11/fp is frame-pointer and so we cannot mark
|
||||
+ it as clobbered. If we do so, GCC complains with error. */
|
||||
+ : "%r4", "%r5", "%r6", "%r7", "%r8", "%r9", "%r10", "%ip", "%lr"
|
||||
+#else
|
||||
+ /* In Thumb mode r7 is frame-pointer and so we cannot mark it
|
||||
+ as clobbered. On the other hand we mark as clobbered also
|
||||
+ those regs not used in Thumb mode. Hard to judge if this is
|
||||
+ needed, but certainly Haskell code is using them for
|
||||
+ placing GHC's virtual registers there. See
|
||||
+ includes/stg/MachRegs.h Please note that Haskell code is
|
||||
+ compiled by GHC/LLVM into ARM code (not Thumb!), at least
|
||||
+ as of February 2012 */
|
||||
+ : "%r4", "%r5", "%r6", "%r8", "%r9", "%r10", "%fp", "%ip", "%lr"
|
||||
+#endif
|
||||
);
|
||||
return r;
|
||||
}
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,16 +0,0 @@
|
||||
Description: Use VFPv3-D16 FPU for ARM builds
|
||||
Author: Jani Monoses <jani@ubuntu.com>
|
||||
|
||||
Index: ghc/aclocal.m4
|
||||
===================================================================
|
||||
--- ghc.orig/aclocal.m4 2012-02-01 18:10:32.000000000 +0000
|
||||
+++ ghc/aclocal.m4 2012-03-10 16:40:32.415005650 +0000
|
||||
@@ -333,7 +333,7 @@
|
||||
],
|
||||
[changequote(, )dnl
|
||||
ARM_ISA=ARMv7
|
||||
- ARM_ISA_EXT="[VFPv3,NEON]"
|
||||
+ ARM_ISA_EXT="[VFPv3D16,NEON]"
|
||||
changequote([, ])dnl
|
||||
])
|
||||
])
|
||||
@ -1,26 +0,0 @@
|
||||
Description: If we are on armhf, tell llvm to generate code for this ABI. Not
|
||||
forwarded upstream, because they will do a more 'proper' patch. See upstream
|
||||
bug #5914.
|
||||
Author: Iain Lane <laney@debian.org>
|
||||
|
||||
Index: ghc/compiler/main/DriverPipeline.hs
|
||||
===================================================================
|
||||
--- ghc.orig/compiler/main/DriverPipeline.hs 2012-03-10 16:41:46.000000000 +0000
|
||||
+++ ghc/compiler/main/DriverPipeline.hs 2012-03-10 16:42:59.209169474 +0000
|
||||
@@ -1,5 +1,5 @@
|
||||
{-# OPTIONS -fno-cse #-}
|
||||
-{-# LANGUAGE NamedFieldPuns #-}
|
||||
+{-# LANGUAGE NamedFieldPuns, CPP #-}
|
||||
-- -fno-cse is needed for GLOBAL_VAR's to behave properly
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
@@ -1379,6 +1379,9 @@
|
||||
then ["-mattr=+v7,+vfp3"]
|
||||
else if (elem VFPv3D16 ext)
|
||||
then ["-mattr=+v7,+vfp3,+d16"]
|
||||
+#ifdef __ARM_PCS_VFP
|
||||
+ ++ ["-float-abi=hard"]
|
||||
+#endif
|
||||
else []
|
||||
_ -> []
|
||||
|
||||
Loading…
Reference in new issue