diff options
| author | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2010-02-24 12:51:44 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2010-02-24 12:51:44 +0000 |
| commit | 39e998c28084f75281e6d3f48ed9f47078f6ca97 (patch) | |
| tree | 60b0b95a1b066a2ed63f5adfc7064bbb317add8b | |
| parent | 2607480d15758c355af87430e5acd7e2df12bdf4 (diff) | |
| download | gcc-39e998c28084f75281e6d3f48ed9f47078f6ca97.zip gcc-39e998c28084f75281e6d3f48ed9f47078f6ca97.tar.gz gcc-39e998c28084f75281e6d3f48ed9f47078f6ca97.tar.bz2 | |
re PR testsuite/32547 (gnat.dg tasking tests fail on IRIX 5.3)
PR ada/32547
* lib/gnat-dg.exp (gnat_load): Redefine.
* ada/acats/run_acats: Run run_all.sh with $SHELL.
* ada/acats/run_all.sh: Downcase tasking not implemented message.
From-SVN: r157037
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rwxr-xr-x | gcc/testsuite/ada/acats/run_acats | 2 | ||||
| -rwxr-xr-x | gcc/testsuite/ada/acats/run_all.sh | 2 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gnat-dg.exp | 23 |
4 files changed, 32 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a09c273..b69f2f6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,13 @@ 2010-02-24 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> + PR ada/32547 + * lib/gnat-dg.exp (gnat_load): Redefine. + + * ada/acats/run_acats: Run run_all.sh with $SHELL. + * ada/acats/run_all.sh: Downcase tasking not implemented message. + +2010-02-24 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> + PR libobjc/36610 * objc/execute/forward-1.x: XFAIL on alpha*-dec-osf*, 64-bit i?86-*-solaris2*, mips-sgi-irix*, sparc*-sun-solaris2* with diff --git a/gcc/testsuite/ada/acats/run_acats b/gcc/testsuite/ada/acats/run_acats index 4ae25fa..3c3d899 100755 --- a/gcc/testsuite/ada/acats/run_acats +++ b/gcc/testsuite/ada/acats/run_acats @@ -55,4 +55,4 @@ chmod +x host_gnatmake # Limit the stack to 16MB for stack checking ulimit -s 16384 -exec $testdir/run_all.sh ${1+"$@"} +exec $SHELL $testdir/run_all.sh ${1+"$@"} diff --git a/gcc/testsuite/ada/acats/run_all.sh b/gcc/testsuite/ada/acats/run_all.sh index a5e1c13..edc76f4 100755 --- a/gcc/testsuite/ada/acats/run_all.sh +++ b/gcc/testsuite/ada/acats/run_all.sh @@ -282,7 +282,7 @@ for chapter in $chapters; do cat ${i}.log >> $dir/acats.log egrep -e '(==== |\+\+\+\+ |\!\!\!\! )' ${i}.log > /dev/null 2>&1 if [ $? -ne 0 ]; then - grep 'Tasking not implemented' ${i}.log > /dev/null 2>&1 + grep 'tasking not implemented' ${i}.log > /dev/null 2>&1 if [ $? -ne 0 ]; then display "FAIL: $i" diff --git a/gcc/testsuite/lib/gnat-dg.exp b/gcc/testsuite/lib/gnat-dg.exp index 8ed6d81..217605e 100644 --- a/gcc/testsuite/lib/gnat-dg.exp +++ b/gcc/testsuite/lib/gnat-dg.exp @@ -1,4 +1,4 @@ -# Copyright (C) 2006, 2007 Free Software Foundation, Inc. +# Copyright (C) 2006, 2007, 2010 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -43,3 +43,24 @@ proc gnat-dg-prune { system text } { proc gnat-dg-runtest { testcases default-extra-flags } { return [gcc-dg-runtest $testcases ${default-extra-flags}] } + +# +# gnat_load -- wrapper around default gnat_load to declare tasking tests +# unsupported on platforms that lack such support +# + +if { [info procs gnat_load] != [list] \ + && [info procs prev_gnat_load] == [list] } { + rename gnat_load prev_gnat_load + + proc gnat_load { program args } { + upvar name testcase + + set result [eval [list prev_gnat_load $program] $args] + set output [lindex $result 1] + if { [regexp "tasking not implemented" $output] } { + return [list "unsupported" $output] + } + return $result + } +} |