This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Tweak a couple of testcases for the ARM
- From: Eric Botcazou <ebotcazou at adacore dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: Laurent GUERBY <laurent at guerby dot net>
- Date: Tue, 29 Dec 2009 17:12:24 +0100
- Subject: [Ada] Tweak a couple of testcases for the ARM
Kindly tested by Laurent, applied on the mainline.
2009-12-29 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/test_raise_from_pure.adb: XFAIL for the ARM.
* gnat.dg/warn5.adb: Expect warning on the ARM.
--
Eric Botcazou
Index: gnat.dg/test_raise_from_pure.adb
===================================================================
--- gnat.dg/test_raise_from_pure.adb (revision 155361)
+++ gnat.dg/test_raise_from_pure.adb (working copy)
@@ -1,6 +1,11 @@
--- { dg-do run }
--- { dg-options "-O2" }
+-- { dg-do run { xfail arm*-*-* } }
+-- { dg-options "-O2" }
+
+-- This is an optimization test and its failure is only a missed optimization.
+-- For technical reasons it cannot pass with SJLJ exceptions.
+
with Raise_From_Pure; use Raise_From_Pure;
+
procedure test_raise_from_pure is
K : Integer;
begin
Index: gnat.dg/warn5.adb
===================================================================
--- gnat.dg/warn5.adb (revision 155361)
+++ gnat.dg/warn5.adb (working copy)
@@ -26,7 +26,7 @@ procedure Warn5 is
function Pointer (Pos : Natural; List : List_Type) return Pointer_Type is
begin
- return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* hppa*-*-* ia64-*-* mips*-*-* sparc*-*-* } }
+ return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* arm*-*-* hppa*-*-* ia64-*-* mips*-*-* sparc*-*-* } }
end;
begin