mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 05:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR testsuite/32547 (gnat.dg tasking tests fail on IRIX 5.3)

Browse Source 
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
This commit is contained in:
Rainer Orth 2010-02-24 12:51:44 +00:00 committed by Rainer Orth
parent 2607480d15
commit 39e998c280
4 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
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

2
gcc/testsuite/ada/acats/run_acats
View File

@ -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+"$@"}

2
gcc/testsuite/ada/acats/run_all.sh
View File

@ -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"

23
gcc/testsuite/lib/gnat-dg.exp
View File

@ -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
}
}