From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-15820-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 32442 invoked by alias); 23 May 2002 15:41:41 -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 32435 invoked from network); 23 May 2002 15:41:40 -0000
Received: from unknown (HELO cygnus.com) (205.180.83.203)
  by sources.redhat.com with SMTP; 23 May 2002 15:41:40 -0000
Received: from reddwarf.sfbay.redhat.com (reddwarf.sfbay.redhat.com [172.16.24.50])
	by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id IAA05186;
	Thu, 23 May 2002 08:41:39 -0700 (PDT)
Received: (from msnyder@localhost)
	by reddwarf.sfbay.redhat.com (8.11.2/8.11.2) id g4NFRSS31776;
	Thu, 23 May 2002 08:27:28 -0700
Date: Thu, 23 May 2002 08:52:00 -0000
From: Michael Snyder <msnyder@cygnus.com>
Message-Id: <200205231527.g4NFRSS31776@reddwarf.sfbay.redhat.com>
To: gdb-patches@sources.redhat.com
Subject: [PATCH] Tweak tests for target with 4-byte doubles
Cc: ezannoni@redhat.com
X-SW-Source: 2002-05/txt/msg00868.txt.bz2


32-bit doubles on the D10V affect the precision of the results.

2002-05-23  Michael Snyder  <msnyder@redhat.com>

	* gdb.base/all-bin.exp: Allow for reduced floating point precision.
	* gdb.base/call-rt-st.exp: Ditto.

Index: all-bin.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/all-bin.exp,v
retrieving revision 1.2
diff -p -r1.2 all-bin.exp
*** all-bin.exp	6 Mar 2001 08:21:50 -0000	1.2
--- all-bin.exp	23 May 2002 15:40:03 -0000
*************** send_gdb "print v_int+v_double\n"
*** 189,198 ****
  gdb_expect {
      -re ".*206.56565.*$gdb_prompt $" {
          pass "print value of v_int+v_double"
!       }
      -re ".*$gdb_prompt $" { fail "print value of v_int+v_double" }
!     timeout           { fail "(timeout) print value of v_int+" }    
!   }
  
  
  #
--- 189,206 ----
  gdb_expect {
      -re ".*206.56565.*$gdb_prompt $" {
          pass "print value of v_int+v_double"
!     }
!     -re ".*206.565643.*$gdb_prompt $" {
! 	# D10V has 4-byte doubles
! 	if [istarget "d10v*-*"] then {
! 	    pass "print value of v_int+v_double (D10V)"
! 	} else {
! 	    fail "print value of v_int+v_double (precision)"
! 	}
!     }
      -re ".*$gdb_prompt $" { fail "print value of v_int+v_double" }
!     timeout     { fail "(timeout) print value of v_int+v_double" }
! }
  
  
  #
Index: call-rt-st.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/call-rt-st.exp,v
retrieving revision 1.8
diff -p -r1.8 call-rt-st.exp
*** call-rt-st.exp	6 Jan 2002 14:42:39 -0000	1.8
--- call-rt-st.exp	23 May 2002 15:40:03 -0000
*************** if ![gdb_skip_stdio_test "print print_on
*** 175,182 ****
  
  if {![gdb_skip_float_test "print print_one_double(*d1)"] && \
          ![gdb_skip_stdio_test "print print_one_double(*d1)"] } {
!     print_struct_call "print_one_double(*d1)" \
!             ".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11111\\}"
  }
  
  if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \
--- 175,188 ----
  
  if {![gdb_skip_float_test "print print_one_double(*d1)"] && \
          ![gdb_skip_stdio_test "print print_one_double(*d1)"] } {
!     if [istarget "d10v*-*"] then {
! 	# D10V has 4-byte doubles
! 	print_struct_call "print_one_double(*d1)" \
! 		".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11110997\\}"
!     } else {
! 	print_struct_call "print_one_double(*d1)" \
! 		".*Contents of one_double_t:\[ \r\n\]+1\\.111110\[ \r\n\]+.\[0-9\]+ = \\{double1 = 1\\.11111\\}"
!     }
  }
  
  if {![gdb_skip_float_test "print print_two_floats(*f3)"] && \