From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-33942-listarch-gdb-patches=sources.redhat.com@sources.redhat.com>
Received: (qmail 5335 invoked by alias); 18 Jun 2004 18:10:31 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 5208 invoked from network); 18 Jun 2004 18:10:29 -0000
Received: from unknown (HELO mx1.redhat.com) (66.187.233.31)
  by sourceware.org with SMTP; 18 Jun 2004 18:10:29 -0000
Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254])
	by mx1.redhat.com (8.12.10/8.12.10) with ESMTP id i5IIATe1023054
	for <gdb-patches@sources.redhat.com>; Fri, 18 Jun 2004 14:10:29 -0400
Received: from zenia.home.redhat.com (porkchop.devel.redhat.com [172.16.58.2])
	by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id i5IIAR031410;
	Fri, 18 Jun 2004 14:10:28 -0400
To: gdb-patches@sources.redhat.com
Subject: RFA: patch to fix gdb/1680
From: Jim Blandy <jimb@redhat.com>
Date: Fri, 18 Jun 2004 18:10:00 -0000
Message-ID: <vt2vfhou48t.fsf@zenia.home>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-SW-Source: 2004-06/txt/msg00434.txt.bz2


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\]"
  }