Fix false FAILs on too long base directory.

gdb-testsuite-longdirname.patch

@@ -0,0 +1,130 @@
+http://sourceware.org/ml/gdb-patches/2016-01/msg00146.html
+Subject: [testsuite patch] Fix false FAILs on too long base directory
+
+
+--r5Pyd7+fXNt84Ff3
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline
+
+Hi,
+
+I was getting
+
+gu (print arg0)^M
+= 0x7fffffffdafb
+"/unsafebuild-x86_64-redhat-linux-gnu/gdb/testsuite.unix.-m64/outputs/gdb.guile/scm-value/scm-"...^M
+(gdb) FAIL: gdb.guile/scm-value.exp: verify dereferenced value
+python print (arg0)^M
+0x7fffffffdafd
+"/unsafebuild-x86_64-redhat-linux-gnu/gdb/testsuite.unix.-m64/outputs/gdb.python/py-value/py-v"...^M
+(gdb) FAIL: gdb.python/py-value.exp: verify dereferenced value
+
+and also:
+
+(gdb) p argv[0]^M
+$2 = 0x7fffffffd832 "/home/jkratoch/redhat/gdb-test-", 'x' <repeats 169
+times>...^M
+(gdb) FAIL: gdb.guile/scm-value.exp: argv[0] should be available on this
+target
+
+OK for check-in?
+
+
+Thanks,
+Jan
+
+--r5Pyd7+fXNt84Ff3
+Content-Type: text/plain; charset=us-ascii
+Content-Disposition: inline; filename="longdirname.patch"
+
+gdb/testsuite/ChangeLog
+2016-01-08  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+	* gdb.guile/scm-value.exp (test_value_in_inferior): Set print elements
+	and repeats to unlimited.
+	* gdb.python/py-value.exp: Likewise.
+	* lib/gdb.exp (gdb_has_argv0): Save and temporarily set print elements
+	and repeats to unlimited.
+
+diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp
+index 8c858d5..1d07c9f 100644
+--- a/gdb/testsuite/gdb.guile/scm-value.exp
++++ b/gdb/testsuite/gdb.guile/scm-value.exp
+@@ -91,6 +91,8 @@ proc test_value_in_inferior {} {
+     global has_argv0
+     set test "verify dereferenced value"
+     if { $has_argv0 } {
++	gdb_test_no_output "set print elements unlimited" ""
++	gdb_test_no_output "set print repeats unlimited" ""
+ 	gdb_test "gu (print arg0)" "0x.*$testfile\"" $test
+     } else {
+ 	unsupported $test
+diff --git a/gdb/testsuite/gdb.python/py-value.exp b/gdb/testsuite/gdb.python/py-value.exp
+index e60bd9e..a9dbe97 100644
+--- a/gdb/testsuite/gdb.python/py-value.exp
++++ b/gdb/testsuite/gdb.python/py-value.exp
+@@ -226,6 +226,8 @@ proc test_value_in_inferior {} {
+   global has_argv0
+   set test "verify dereferenced value"
+   if { $has_argv0 } {
++    gdb_test_no_output "set print elements unlimited" ""
++    gdb_test_no_output "set print repeats unlimited" ""
+     gdb_test "python print (arg0)" "0x.*$testfile\"" $test
+   } else {
+     unsupported $test
+diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
+index 015e202..52220d0 100644
+--- a/gdb/testsuite/lib/gdb.exp
++++ b/gdb/testsuite/lib/gdb.exp
+@@ -4896,24 +4896,44 @@ gdb_caching_proc gdb_has_argv0 {
+ 	    }
+ 	}
+ 
++	set old_elements "200"
++	set test "show print elements"
++	gdb_test_multiple $test $test {
++	    -re "Limit on string chars or array elements to print is (\[^\r\n\]+)\\.\r\n$gdb_prompt $" {
++		set old_elements $expect_out(1,string)
++	    }
++	}
++	set old_repeats "200"
++	set test "show print repeats"
++	gdb_test_multiple $test $test {
++	    -re "Threshold for repeated print elements is (\[^\r\n\]+)\\.\r\n$gdb_prompt $" {
++		set old_repeats $expect_out(1,string)
++	    }
++	}
++	gdb_test_no_output "set print elements unlimited" ""
++	gdb_test_no_output "set print repeats unlimited" ""
++
++	set retval 0
+ 	# Check whether argc is 1.
+ 	gdb_test_multiple "p argc" "p argc" {
+ 	    -re " = 1\r\n${gdb_prompt} $" {
+ 
+ 		gdb_test_multiple "p argv\[0\]" "p argv\[0\]" {
+ 		    -re " = $hex \".*[file tail $exe]\"\r\n${gdb_prompt} $" {
+-			return 1
++			set retval 1
+ 		    }
+ 		    -re "${gdb_prompt} $" {
+-			return 0
+ 		    }
+ 		}
+ 	    }
+ 	    -re "${gdb_prompt} $" {
+-		return 0
+ 	    }
+ 	}
+-	return 0
++	
++	gdb_test_no_output "set print elements $old_elements" ""
++	gdb_test_no_output "set print repeats $old_repeats" ""
++
++	return $retval
+     }
+ 
+     set result [gdb_has_argv0_1 $exe]
+
+--r5Pyd7+fXNt84Ff3--
+

gdb.spec

@@ -27,7 +27,7 @@ Version: 7.10.50.%{snapsrc}
 
 # The release always contains a leading reserved number, start it at 1.
 # `upstream' is not a part of `name' to stay fully rpm dependencies compatible for the testing.
-Release: 34%{?dist}
+Release: 35%{?dist}
 
 License: GPLv3+ and GPLv3+ with exceptions and GPLv2+ and GPLv2+ with exceptions and GPL+ and LGPLv2+ and BSD and Public Domain and GFDL
 Group: Development/Debuggers
@@ -556,6 +556,9 @@ Patch1066: gdb-testsuite-foll-vfork.patch
 # Regression for gdb.threads/fork-plus-threads.exp - revert.
 Patch1067: gdb-fork-plus-threads-ascending-revert.patch
 
+# Fix false FAILs on too long base directory.
+Patch1070: gdb-testsuite-longdirname.patch
+
 %if 0%{!?rhel:1} || 0%{?rhel} > 6
 # RL_STATE_FEDORA_GDB would not be found for:
 # Patch642: gdb-readline62-ask-more-rh.patch
@@ -858,6 +861,7 @@ find -name "*.info*"|xargs rm -f
 %patch1065 -p1
 %patch1066 -p1
 %patch1067 -p1
+%patch1070 -p1
 
 %patch848 -p1
 %if 0%{!?el6:1}
@@ -1373,6 +1377,9 @@ then
 fi
 
 %changelog
+* Fri Jan  8 2016 Jan Kratochvil <jan.kratochvil@redhat.com> - 7.10.50.20160106-35.fc24
+- Fix false FAILs on too long base directory.
+
 * Fri Jan  8 2016 Jan Kratochvil <jan.kratochvil@redhat.com> - 7.10.50.20160106-34.fc24
 - Rebase to FSF GDB 7.10.50.20160106 (trunk snapshot).