Re: [RFA] Fixup long_long.exp for 4-byte short

Fernando Nasser
2001-05-23T09:24:00Z

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 <msnyder@redhat.com>
>
> * 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