set timeout $oldtimeout
return 0
---- sources/gdb/testsuite/gdb.base/dump.exp-orig 2008-08-28 11:44:40.000000000 +0200
-+++ sources/gdb/testsuite/gdb.base/dump.exp 2008-08-28 11:44:49.000000000 +0200
-@@ -493,8 +493,10 @@ if ![string compare $is64bitonly "no"] t
- gdb_test "print zero_all ()" "" ""
-
- # restore with expressions
-+ # Address may fit in int32 but its negative result would be 0xffffxxxx for
-+ # 64-bit LONGEST addresses.
- test_restore_saved_value \
-- "intarr3.srec ${array2_start}-${array_start} &intarray\[3\] &intarray\[4\]" \
-+ "intarr3.srec (long)${array2_start}-${array_start} &intarray\[3\] &intarray\[4\]" \
- "array partial with expressions" 4 "intarray2\[3\]"
-
- gdb_test "print intarray2\[2\] == 0" " = 1" "element 2 not changed, == 4"
---- gdb-6.8.50.20090209/gdb/testsuite/gdb.base/annota1.exp-orig 2009-02-09 16:31:11.000000000 +0100
-+++ gdb-6.8.50.20090209/gdb/testsuite/gdb.base/annota1.exp 2009-02-09 21:27:38.000000000 +0100
-@@ -286,7 +286,7 @@ if [target_info exists gdb,nosignals] {
- } else {
- send_gdb "signal SIGUSR1\n"
- gdb_expect {
-- -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${escapedsrcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
-+ -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\r\n(\r\n\032\032frames-invalid\r\n)*\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n${escapedsrcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
- { pass "send SIGUSR1" }
- -re "\r\n\032\032post-prompt\r\nContinuing with signal SIGUSR1.\r\n\r\n\032\032starting\r\n\r\n\032\032frames-invalid\r\n\r\n\032\032breakpoint 2\r\n\r\nBreakpoint 2, \r\n\032\032frame-begin 0 $hex\r\n\r\n\032\032frame-function-name\r\nhandle_USR1\r\n\032\032frame-args\r\n \\(\r\n\032\032arg-begin\r\nsig\r\n\032\032arg-name-end\r\n=\r\n\032\032arg-value -\r\n$decimal\r\n\032\032arg-end\r\n\\)\r\n\032\032frame-source-begin\r\n at \r\n\032\032frame-source-file\r\n.*${srcfile}\r\n\032\032frame-source-file-end\r\n:\r\n\032\032frame-source-line\r\n.*\r\n\032\032frame-source-end\r\n\r\n\r\n\032\032source.*annota1.c:.*:.*:beg:$hex\r\n\r\n\032\032frame-end\r\n\r\n\032\032stopped\r\n$gdb_prompt$" \
- { setup_xfail "*-*-*" 1270
---- ./gdb/testsuite/gdb.base/auxv.exp 2009-02-11 00:54:54.000000000 +0100
-+++ ./gdb/testsuite/gdb.base/auxv.exp 2009-02-11 00:51:30.000000000 +0100
-@@ -78,8 +78,10 @@ proc fetch_auxv {test} {
-
- set auxv_lines {}
- set bad -1
-+ # Former trailing `\[\r\n\]+' may eat just \r leaving \n in the buffer
-+ # corrupting the next matches.
- if {[gdb_test_multiple "info auxv" $test {
-- -re "info auxv\[\r\n\]+" {
-+ -re "info auxv\r\n" {
- exp_continue
- }
- -ex "The program has no auxiliary information now" {
-@@ -94,20 +96,20 @@ proc fetch_auxv {test} {
- set bad 1
- exp_continue
- }
-- -re "^\[0-9\]+\[ \t\]+(AT_\[^ \t\]+)\[^\r\n\]+\[\r\n\]+" {
-+ -re "^\[0-9\]+\[ \t\]+(AT_\[^ \t\]+)\[^\r\n\]+\r\n" {
- lappend auxv_lines $expect_out(0,string)
- exp_continue
- }
-- -re "^\[0-9\]+\[ \t\]+\\?\\?\\?\[^\r\n\]+\[\r\n\]+" {
-+ -re "^\[0-9\]+\[ \t\]+\\?\\?\\?\[^\r\n\]+\r\n" {
- warning "Unrecognized tag value: $expect_out(0,string)"
- set bad 1
- lappend auxv_lines $expect_out(0,string)
- exp_continue
- }
-- -re ".*$gdb_prompt $" {
-+ -re "$gdb_prompt $" {
- incr bad
- }
-- -re "^\[^\r\n\]+\[\r\n\]+" {
-+ -re "^\[^\r\n\]+\r\n" {
- if {!$bad} {
- warning "Unrecognized output: $expect_out(0,string)"
- set bad 1
---- ./gdb/testsuite/gdb.base/callfuncs.exp 2009-01-03 06:58:03.000000000 +0100
-+++ ./gdb/testsuite/gdb.base/callfuncs.exp 2009-02-11 00:51:42.000000000 +0100
-@@ -249,15 +249,17 @@ proc fetch_all_registers {test} {
-
- set all_registers_lines {}
- set bad -1
-+ # Former trailing `\[\r\n\]+' may eat just \r leaving \n in the buffer
-+ # corrupting the next matches.
- if {[gdb_test_multiple "info all-registers" $test {
-- -re "info all-registers\[\r\n\]+" {
-+ -re "info all-registers\r\n" {
- exp_continue
- }
- -ex "The program has no registers now" {
- set bad 1
- exp_continue
- }
-- -re "^bspstore\[ \t\]+\[^\r\n\]+\[\r\n\]+" {
-+ -re "^bspstore\[ \t\]+\[^\r\n\]+\r\n" {
- if [istarget "ia64-*-*"] {
- # Filter out bspstore which is specially tied to bsp,
- # giving spurious differences.
-@@ -266,14 +268,14 @@ proc fetch_all_registers {test} {
- }
- exp_continue
- }
-- -re "^\[^ \t\]+\[ \t\]+\[^\r\n\]+\[\r\n\]+" {
-+ -re "^\[^ \t\]+\[ \t\]+\[^\r\n\]+\r\n" {
- lappend all_registers_lines $expect_out(0,string)
- exp_continue
- }
-- -re ".*$gdb_prompt $" {
-+ -re "$gdb_prompt $" {
- incr bad
- }
-- -re "^\[^\r\n\]+\[\r\n\]+" {
-+ -re "^\[^\r\n\]+\r\n" {
- if {!$bad} {
- warning "Unrecognized output: $expect_out(0,string)"
- set bad 1
projects / packages / gdb.git / blobdiff