Merge GDB 7.5.1

gdb/testsuite/gdb.base/step-symless.exp

Index: gdb/testsuite/gdb.base/step-symless.exp
diff --git a/gdb/testsuite/gdb.base/eu-strip-infcall.exp b/gdb/testsuite/gdb.base/step-symless.exp
similarity index 53%
copy from gdb/testsuite/gdb.base/eu-strip-infcall.exp
copy to gdb/testsuite/gdb.base/step-symless.exp
index 4f20e6096a326889ee2b912aa51dbb7d7c37a370..47d36abd7c453a1f0c59d0fbd02fb612f0db9516 100644
--- a/gdb/testsuite/gdb.base/eu-strip-infcall.exp
+++ b/gdb/testsuite/gdb.base/step-symless.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2011-2012 Free Software Foundation, Inc.
+# Copyright (C) 2012 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
@@ -13,19 +13,22 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-set testfile eu-strip-infcall
-set binfile ${objdir}/${subdir}/${testfile}
-
-if {[build_executable ${testfile}.exp $testfile] == -1} {
+standard_testfile
+if {[build_executable ${testfile}.exp ${testfile} ${srcfile} {nodebug}] == -1} {
     return -1
 }
 
-set test "eu-strip"
-set status [remote_exec build "eu-strip -f ${binfile}.debug $binfile"]
-if {[lindex $status 0] != 0} {
-    untested ${testfile}.exp
-    return 0
+# We need those symbols global to access them from the .S file.
+set test "strip stub symbols"
+set objcopy_program [transform objcopy]
+set result [catch "exec $objcopy_program -N symless ${binfile}" output]
+verbose "result is $result"
+verbose "output is $output"
+if {$result != 0} {
+    fail $test
+    return
 }
+pass $test
 
 clean_restart $testfile
 
@@ -33,4 +36,6 @@ if ![runto_main] {
     return -1
 }
 
-gdb_test "p callfunc (func)" " = 2" "infcall"
+gdb_breakpoint symful
+
+gdb_test "step" "Single stepping until exit.*no line number information.*\r\nBreakpoint \[^\r\n\]* in \\.?symful \\(\\)"