Merge GDB 7.5.1

gdb/testsuite/gdb.base/return-nodebug.exp

Index: gdb/testsuite/gdb.base/return-nodebug.exp
diff --git a/gdb/testsuite/gdb.base/return-nodebug.exp b/gdb/testsuite/gdb.base/return-nodebug.exp
index 105808866b80277ab56e57ccaf7236358cb6aceb..1802862c3b46a117256190a4a2fc4477b5324300 100644
--- a/gdb/testsuite/gdb.base/return-nodebug.exp
+++ b/gdb/testsuite/gdb.base/return-nodebug.exp
@@ -16,35 +16,32 @@
 proc do_test {type} {
     set typenospace [string map {{ } -} $type]
 
-    global pf_prefix
-    set old_prefix $pf_prefix
-    lappend pf_prefix "$typenospace:"
-
-    if {[runto "func"]} {
-	# Verify that we do not crash when using "return" from a function with
-	# no debugging info.  Such function has no `struct symbol'.  It may
-	# still have an associated `struct minimal_symbol'.
-
-    	gdb_test "return -1" \
-		 "Return value type not available for selected stack frame\\.\r\nPlease use an explicit cast of the value to return\\." \
-		 "return from function with no debug info without a cast"
-
-	# Cast of the result to the proper width must be done explicitely.
-	gdb_test "return ($type) -1" "#0 .* main \\(.*"			\
-		 "return from function with no debug info with a cast"	\
-		 "Make selected stack frame return now\\? \\(y or n\\) " "y"
-
-	gdb_test "advance marker" "marker \\(.*" \
-		 "advance to marker"
-
-	# And if it returned the full width of the result.
-	gdb_test "print /d t" " = -1" "full width of the returned result"
+    with_test_prefix "$typenospace" {
+	if {[runto "func"]} {
+	    # Verify that we do not crash when using "return" from a
+	    # function with no debugging info.  Such function has no
+	    # `struct symbol'.  It may still have an associated
+	    # `struct minimal_symbol'.
+
+	    gdb_test "return -1" \
+		"Return value type not available for selected stack frame\\.\r\nPlease use an explicit cast of the value to return\\." \
+		"return from function with no debug info without a cast"
+
+	    # Cast of the result to the proper width must be done explicitely.
+	    gdb_test "return ($type) -1" "#0 .* main \\(.*" \
+		"return from function with no debug info with a cast" \
+		"Make selected stack frame return now\\? \\(y or n\\) " "y"
+
+	    gdb_test "advance marker" "marker \\(.*" \
+		"advance to marker"
+
+	    # And if it returned the full width of the result.
+	    gdb_test "print /d t" " = -1" "full width of the returned result"
+	}
     }
-
-    set pf_prefix $old_prefix
 }
 
-foreach type {{signed char} {short} {int} {long} {long long}} {
+foreach type {{signed char} {short} {int} {long} {long long} {float} {double}} {
     set typeesc [string map {{ } {\ }} $type]
     set typenospace [string map {{ } -} $type]