gcc/testsuite:

PR ada/18302
	* ada/acats/run_all.sh (target_run): Use run_test.exp to execute
	commands.
	* ada/acats/run_test.exp: New file.

	gcc/ada:

	PR ada/18302
	* gcc-interface/Make-lang.in (check-acats): Export rootme, EXPECT.

Co-Authored-By: James A. Morrison <phython@gcc.gnu.org>

From-SVN: r151614
This commit is contained in:
Rainer Orth 2009-09-10 20:36:19 +00:00 committed by Rainer Orth
parent 0e6748ab2c
commit 1382ae05e3
5 changed files with 29 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2009-09-10 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
PR ada/18302
* gcc-interface/Make-lang.in (check-acats): Export rootme, EXPECT.
2009-09-08 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Tidy

View file

@ -841,6 +841,8 @@ check_acats_targets = $(patsubst %,check-acats%, 0 1 2)
check-acats:
@test -d $(ACATSDIR) || mkdir -p $(ACATSDIR); \
rootme=`${PWD_COMMAND}`; export rootme; \
EXPECT=$(EXPECT); export EXPECT; \
if [ -z "$(CHAPTERS)" ] && [ "$(filter -j, $(MFLAGS))" = "-j" ]; \
then \
$(MAKE) $(check_acats_targets); \

View file

@ -1,3 +1,11 @@
2009-09-10 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
James A. Morrison <phython@gcc.gnu.org>
PR ada/18302
* ada/acats/run_all.sh (target_run): Use run_test.exp to execute
commands.
* ada/acats/run_test.exp: New file.
2009-09-10 Uros Bizjak <ubizjak@gmail.com>
Revert:

View file

@ -13,7 +13,7 @@ gccflags="-O2"
gnatflags="-gnatws"
target_run () {
$*
eval $EXPECT -f $testdir/run_test.exp $*
}
# End of customization section.

View file

@ -0,0 +1,13 @@
#!/usr/bin/expect -f
if {[info exists env(DEJAGNU_TIMEOUT)]} {
set timeout $env(DEJAGNU_TIMEOUT)
} else {
set timeout 300
}
spawn -noecho $argv
expect timeout {
send_user "Program timed out.\n"
exit 1
}