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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151614
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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); \
+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:
gnatflags="-gnatws"
target_run () {
-$*
+ eval $EXPECT -f $testdir/run_test.exp $*
}
# End of customization section.
--- /dev/null
+#!/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
+}