From: Bob Manson <manson@cygnus>
Date: Fri, 31 Jan 1997 21:21:31 +0000 (+0000)
Subject:         * gdb.base/crossload.exp: Don't use execute_anywhere, use
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=05a21390230b3711b2504e4902f1acce25772584;p=binutils-gdb.git

    * gdb.base/crossload.exp: Don't use execute_anywhere, use
        remote_exec instead.
        * gdb.base/corefile.exp: Don't be ridiculous.
        * gdb.base/*.c: Add missing stub invocations.

Fixes failures on HP-UX.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5b9e68582f2..a62e85f2177 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+Fri Jan 31 13:09:12 1997  Bob Manson  <manson@charmed.cygnus.com>
+
+	* gdb.base/crossload.exp: Don't use execute_anywhere, use
+	remote_exec instead.
+	* gdb.base/corefile.exp: Don't be ridiculous.
+	* gdb.base/*.c: Add missing stub invocations.
+
 Thu Jan 30 16:49:25 1997  Bob Manson  <manson@charmed.cygnus.com>
 
 	* config/slite.exp: Miscellaneous fixes.
diff --git a/gdb/testsuite/config/.Sanitize b/gdb/testsuite/config/.Sanitize
index 21b87a0b213..4c407cdfec6 100644
--- a/gdb/testsuite/config/.Sanitize
+++ b/gdb/testsuite/config/.Sanitize
@@ -17,7 +17,7 @@
 
 Do-first:
 
-m32r_files="m32r.exp"
+m32r_files="m32r.exp m32r-stub.exp"
 
 if ( echo $* | grep keep\-m32r > /dev/null ) ; then
 	keep_these_too="${m32r_files} ${keep_these_too}"
@@ -39,7 +39,8 @@ est.exp
 gdbserver.exp
 hmsirom.exp
 hppro.exp
-mips-gdb.exp
+mips.exp
+mips-idt.exp
 monitor.exp
 mt-a29k-udi
 mt-i386-aout
@@ -53,18 +54,21 @@ mt-sparc-aout
 mt-unix
 mt-vxworks
 netware.exp
-nind-gdb.exp
+nind.exp
 rom68k.exp
-sim-gdb.exp
-slite-gdb.exp
-udi-gdb.exp
-unix-gdb.exp
+sim.exp
+slite.exp
+udi.exp
+unix.exp
 unknown.exp
-vx-gdb.exp
+vx.exp
 vxworks29k.exp
 
 Things-to-lose:
 
+d10v.exp
+sparclet-old.exp
+sparclet.exp
 
 # The lines between the "Do-last:" line and the end of the file
 # are executed as a /bin/sh shell script after everything else is
diff --git a/gdb/testsuite/gdb.base/compiler.c b/gdb/testsuite/gdb.base/compiler.c
index 6ce5805898f..8eb0d47dd19 100644
--- a/gdb/testsuite/gdb.base/compiler.c
+++ b/gdb/testsuite/gdb.base/compiler.c
@@ -13,8 +13,8 @@
    definition made with 'set" to see if one already exists, and if so
    warn about conflicts if it is being set to something else.  */
 
-/* This needs to be kept in sync with whatis.c.  If this proves to end up
-   being hairy, we could use a common header file.  */
+/* This needs to be kept in sync with whatis.c and gdb.exp(get_compiler_info).
+   If this ends up being hairy, we could use a common header file.  */
 
 #if defined (__STDC__) || defined (_AIX)
 set signed_keyword_not_used 0
diff --git a/gdb/testsuite/gdb.base/corefile.exp b/gdb/testsuite/gdb.base/corefile.exp
index d2f78948d64..b4a3b2c2c29 100644
--- a/gdb/testsuite/gdb.base/corefile.exp
+++ b/gdb/testsuite/gdb.base/corefile.exp
@@ -57,7 +57,7 @@ if [get_compiler_info ${binfile}] {
 # the name of the program to "core".
 set found 0
 catch "system \"(cd ${objdir}/${subdir}; ulimit -c unlimited; ${binfile}; true) >/dev/null 2>&1\""
-#      remote_exec "${binfile}"
+#      remote_exec host "${binfile}"
 foreach i "${objdir}/${subdir}/core ${objdir}/${subdir}/core.coremaker.c ${binfile}.core" {
     if [remote_file build exists $i] {
 	remote_exec build "mv $i ${objdir}/${subdir}/corefile"
@@ -68,13 +68,12 @@ if { $found == 0 } {
     # The braindamaged HPUX shell quits after the ulimit -c above
     # without executing ${binfile}.  So we try again without the
     # ulimit here if we didn't find a core file above.
+    # Oh, I should mention that any "braindamaged" non-Unix system has
+    # the same problem. I like the cd bit too, it's really neat'n stuff.
     catch "system \"(cd ${objdir}/${subdir}; ${binfile}; true) >/dev/null 2>&1\""
     foreach i "${objdir}/${subdir}/core ${objdir}/${subdir}/core.coremaker.c ${binfile}.core" {
-	set exec_output [execute_anywhere "ls $i"]
-	if [ regexp "No such file or directory|not found" ${exec_output} ] {
-	    continue
-	} else {
-	    execute_anywhere "mv $i ${objdir}/${subdir}/corefile"
+	if [remote_file build exists $i] {
+	    remote_exec build "mv $i ${objdir}/${subdir}/corefile"
 	    set found 1
 	}
     }
diff --git a/gdb/testsuite/gdb.base/crossload.exp b/gdb/testsuite/gdb.base/crossload.exp
index eed58b4d240..0683cf9cbfb 100644
--- a/gdb/testsuite/gdb.base/crossload.exp
+++ b/gdb/testsuite/gdb.base/crossload.exp
@@ -35,7 +35,7 @@ verbose "FIXME: all the crossload tests ignored"
 return
 
 foreach i "m68k-elf m68k-aout m68k-aout2 mips-ecoff i486-elf sparc-aout i860-elf sparc-elf" {
-    execute_anywhere "cd ${objdir}/${subdir} ; uudecode ${srcdir}/${subdir}/$i.u "
+    remote_exec build "cd ${objdir}/${subdir} ; uudecode ${srcdir}/${subdir}/$i.u "
 }
 
 # FIXME: These tests don't work for the i960, because
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 31b72ff838e..828ef129940 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -654,8 +654,7 @@ proc gdb_file_cmd { arg } {
                     return 0
                 }
                 timeout {
-                    perror "(timeout) Couldn't load $arg, other program already l
-oaded."
+                    perror "(timeout) Couldn't load $arg, other program already loaded."
                     return -1
                 }
             }