This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA] Fixup long_long.exp for 4-byte short
- To: gdb-patches at sources dot redhat dot com
- Subject: [RFA] Fixup long_long.exp for 4-byte short
- From: Michael Snyder <msnyder at cygnus dot com>
- Date: Mon, 21 May 2001 11:41:38 -0700
- Organization: Red Hat
Along the same lines as one of Stephane Carrez's recent submissions:
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*"