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

[Fernando Nasser <fnasser@redhat.com>]

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