This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
RFA: patch to fix gdb/1680
- From: Jim Blandy <jimb at redhat dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: 18 Jun 2004 13:10:10 -0500
- Subject: RFA: patch to fix gdb/1680
I tested it on my machine. i686-pc-linux-gnu, gcc 3.3, dwarf-2 and
stabs+.
Expect version is 5.26
Tcl version is 8.4
Framework version is 1.4.2.x
2004-06-17 Jim Blandy <jimb@redhat.com>
* gdb.arch/i386-sse.exp: Don't use curly braces in regular
expressions.
Index: gdb/testsuite/gdb.arch/i386-sse.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.arch/i386-sse.exp,v
retrieving revision 1.1
diff -c -p -r1.1 i386-sse.exp
*** gdb/testsuite/gdb.arch/i386-sse.exp 7 Jun 2004 15:38:52 -0000 1.1
--- gdb/testsuite/gdb.arch/i386-sse.exp 17 Jun 2004 22:55:22 -0000
*************** gdb_test "break [gdb_get_line_number "fi
*** 70,77 ****
gdb_continue_to_breakpoint "continue to first breakpoint in main"
foreach r {0 1 2 3 4 5 6 7} {
gdb_test "print \$xmm$r.v4_float" \
! ".. = {$r, $r.25, $r.5, $r.75}.*" \
"check contents of %xmm$r"
}
--- 70,79 ----
gdb_continue_to_breakpoint "continue to first breakpoint in main"
foreach r {0 1 2 3 4 5 6 7} {
+ # Avoid using curly braces in regular expressions; different
+ # versions of Tcl treat them differently.
gdb_test "print \$xmm$r.v4_float" \
! ".. = .$r, $r.25, $r.5, $r.75..*" \
"check contents of %xmm$r"
}
*************** gdb_test "break [gdb_get_line_number "se
*** 85,91 ****
gdb_continue_to_breakpoint "continue to second breakpoint in main"
foreach r {0 1 2 3 4 5 6 7} {
gdb_test "print data\[$r\]" \
! ".. = {f = {[expr $r + 10], $r.25, $r.5, $r.75}}.*" \
"check contents of data\[$r\]"
}
--- 87,95 ----
gdb_continue_to_breakpoint "continue to second breakpoint in main"
foreach r {0 1 2 3 4 5 6 7} {
+ # Avoid using curly braces in regular expressions; different
+ # versions of Tcl treat them differently.
gdb_test "print data\[$r\]" \
! ".. = .f = .[expr $r + 10], $r.25, $r.5, $r.75...*" \
"check contents of data\[$r\]"
}