From mboxrd@z Thu Jan 1 00:00:00 1970 From: Fernando Nasser To: Michael Snyder Cc: gdb-patches@sources.redhat.com Subject: Re: [RFA] Fixup long_long.exp for 4-byte short Date: Wed, 23 May 2001 09:24:00 -0000 Message-id: <3B0BE38A.4D5F91C@redhat.com> References: <3B096162.3B153EA0@cygnus.com> X-SW-Source: 2001-05/msg00435.html Michael Snyder wrote: > > Along the same lines as one of Stephane Carrez's recent submissions: > Approved. Thanks Michael. P.S.: I will look for Stephane's patch(es). They may have come while I was away. > ------------------------------------------------------------------------ > 2001-05-21 Michael Snyder > > * gdb.base/long_long.exp: Allow for targets with 4-byte short. > > Index: long_long.exp > =================================================================== > RCS file: /cvs/cvsfiles/devo/gdb/testsuite/gdb.base/long_long.exp,v > retrieving revision 1.10 > diff -c -3 -p -r1.10 long_long.exp > *** long_long.exp 2001/03/26 19:55:25 1.10 > --- long_long.exp 2001/05/21 18:37:45 > *************** gdb_expect { > *** 85,90 **** > --- 85,100 ---- > default { } > } > > + # Detect targets with 4-byte shorts. Assume all others use 2-bytes. > + > + set sizeof_short 2 > + send_gdb "print sizeof(short)\n" > + gdb_expect { > + -re ".* = 4.*$gdb_prompt $" { set sizeof_short 4 } > + -re ".*$gdb_prompt $" { } > + default { } > + } > + > # Detect targets with 4-byte doubles. > > set sizeof_double 8 > *************** if { $target_bigendian_p } { > *** 172,185 **** > > } > > ! gdb_test "p/d *(short *)&oct" ".*-22738.*" > ! gdb_test "p/u *(short *)&oct" ".*42798.*" > ! gdb_test "p/o *(short *)&oct" ".*0123456.*" > ! gdb_test "p/t *(short *)&oct" ".*1010011100101110.*" > ! gdb_test "p/a *(short *)&oct" ".*0xf*ffffa72e.*" > ! gdb_test "p/c *(short *)&oct" ".* 46 '.'.*" > ! gdb_test "p/a *(short *)&oct" ".*0xf*ffffa72e.*" > ! gdb_test "p/f *(short *)&oct" ".*-22738.*" > > gdb_test "x/x &oct" ".*0xa72ee539.*" > gdb_test "x/d &oct" ".*.-1490098887*" > --- 182,204 ---- > > } > > ! if { $sizeof_short == 2 } { > ! gdb_test "p/d *(short *)&oct" ".*-22738.*" > ! gdb_test "p/u *(short *)&oct" ".*42798.*" > ! gdb_test "p/o *(short *)&oct" ".*0123456.*" > ! gdb_test "p/t *(short *)&oct" ".*1010011100101110.*" > ! gdb_test "p/a *(short *)&oct" ".*0xf*ffffa72e.*" > ! gdb_test "p/c *(short *)&oct" ".* 46 '.'.*" > ! gdb_test "p/f *(short *)&oct" ".*-22738.*" > ! } else { > ! gdb_test "p/d *(short *)&oct" ".*-1490098887.*" > ! gdb_test "p/u *(short *)&oct" ".*2804868409.*" > ! gdb_test "p/o *(short *)&oct" ".*024713562471.*" > ! gdb_test "p/t *(short *)&oct" ".*10100111001011101110010100111001.*" > ! gdb_test "p/a *(short *)&oct" ".*0xf*a72ee539.*" > ! gdb_test "p/c *(short *)&oct" ".* 57 '9'.*" > ! gdb_test "p/f *(short *)&oct" ".*-2.42716126e-15.*" > ! } > > gdb_test "x/x &oct" ".*0xa72ee539.*" > gdb_test "x/d &oct" ".*.-1490098887*" -- Fernando Nasser Red Hat Canada Ltd. E-Mail: fnasser@redhat.com 2323 Yonge Street, Suite #300 Toronto, Ontario M4P 2C9