This is the mail archive of the
gdb-patches@sourceware.cygnus.com
mailing list for the GDB project.
gdb.base testsuite patch
- To: gdb-patches@sourceware.cygnus.com
- Subject: gdb.base testsuite patch
- From: Jimmy Guo <guo@cup.hp.com>
- Date: Thu, 22 Jul 1999 17:45:25 -0700 (PDT)
This is a patch for gdb.base testsuite:
- updated Makefile.in w.r.t. correct executable names to be cleaned up.
- fixed pointers.c to include declaration for more_codes (so we can run
our C++ pass with the suite), and related fix in pointers.exp.
- other changes are mainly in the area of:
1) removing references to hppa1.1-hp-hpux10.30 target, which is not a
supported target.
2) changing some gdb_test calls from gdb_test "cmd" "pattern" "" to
gdb_test "cmd" "pattern" since the earlier form basically does noop
in testing (gdb_test ignores pattern mismatches, timeouts, etc. for
this form); this change 'enables' some test points used to silently
slip through in testing.
3) moving HP bug IDs from pass / fail strings to setup_xfail calls
- Jimmy Guo, guo@cup.hp.com
Index: gdb/testsuite/gdb.base/Makefile.in
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/Makefile.in gdb/testsuite/gdb.base/Makefile.in@@/GDB_1999_07_19 gdb/testsuite/gdb.base/Makefile.in
*** gdb/testsuite/gdb.base/Makefile.in
--- gdb/testsuite/gdb.base/Makefile.in Wed Jul 21 17:07:38 1999
***************
*** 2,20 ****
srcdir = @srcdir@
EXECUTABLES = all-types annota1 bitfields break \
! call-ar-st call-rt-st call-strs callfuncs callfuncs2 commands \
! compiler condbreak constvars coremaker display \
! ending-run exprs funcargs int-type interrupt \
! jump langs \
! list long_long \
! mips_pro miscexprs nodebug opaque pointers pointers2 printcmds ptype \
recurse reread reread1 restore return run \
! scope section_command setshow setvar \
! shmain sigall signals smoke smoke1 \
! solib so-impl-ld so-indr-cl \
! step-test structs structs2 twice-tmp varargs watchpoint whatis
! MISCELLANEOUS = coremmap.data shr1.sl shr2.sl solib1.sl solib2.sl
all:
@echo "Nothing to be done for all..."
--- 2,20 ----
srcdir = @srcdir@
EXECUTABLES = all-types annota1 bitfields break \
! call-ar-st call-rt-st call-strs callfuncs callfwmall \
! commands compiler condbreak constvars coremaker \
! dbx-test display ending-run execd-prog exprs \
! foll-exec foll-fork foll-vfork funcargs int-type interrupt jump \
! langs list long_long mips_pro miscexprs nodebug opaque overlays \
! pointers pointers2 printcmds ptype \
recurse reread reread1 restore return run \
! scope section_command setshow setvar shmain sigall signals \
! solib solib_sl so-impl-ld so-indr-cl step-test structs structs2 \
! twice-tmp varargs vforked-prog watchpoint whatis
! MISCELLANEOUS = coremmap.data ../foobar.baz \
! shr1.sl shr2.sl solib_sl.sl solib1.sl solib2.sl
all:
@echo "Nothing to be done for all..."
Index: gdb/testsuite/gdb.base/attach.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/attach.exp gdb/testsuite/gdb.base/attach.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/attach.exp
*** gdb/testsuite/gdb.base/attach.exp
--- gdb/testsuite/gdb.base/attach.exp Wed Jul 21 17:07:43 1999
***************
*** 128,134 ****
# This reponse is expected on HP-UX 10.20 (i.e., ptrace-based).
-re "Attaching to.*, process 0.*No such process.*$gdb_prompt $"\
{pass "attach to nonexistent process is prohibited"}
! # This response is expected on HP-UX 10.30 & 11.0 (i.e., ttrace-based).
-re "Attaching to.*, process 0 failed.*Hint.*$gdb_prompt $"\
{pass "attach to nonexistent process is prohibited"}
-re "$gdb_prompt $" {fail "attach to nonexistent process is prohibited"}
--- 128,134 ----
# This reponse is expected on HP-UX 10.20 (i.e., ptrace-based).
-re "Attaching to.*, process 0.*No such process.*$gdb_prompt $"\
{pass "attach to nonexistent process is prohibited"}
! # This response is expected on HP-UX 11.0 (i.e., ttrace-based).
-re "Attaching to.*, process 0 failed.*Hint.*$gdb_prompt $"\
{pass "attach to nonexistent process is prohibited"}
-re "$gdb_prompt $" {fail "attach to nonexistent process is prohibited"}
***************
*** 386,393 ****
# Get rid of the process
#
! gdb_test "p should_exit = 1" ".*" ""
! gdb_test "c" ".*Program exited normally.*" ""
# Be paranoid
#
--- 386,393 ----
# Get rid of the process
#
! gdb_test "p should_exit = 1" ".*"
! gdb_test "c" ".*Program exited normally.*"
# Be paranoid
#
Index: gdb/testsuite/gdb.base/call-ar-st.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/call-ar-st.exp gdb/testsuite/gdb.base/call-ar-st.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/call-ar-st.exp
*** gdb/testsuite/gdb.base/call-ar-st.exp
--- gdb/testsuite/gdb.base/call-ar-st.exp Wed Jul 21 17:07:56 1999
***************
*** 465,476 ****
gdb_test continue "Continuing\\..*Contents of two_floats_t:.*main \\(\\) at.*call-ar-st.c:1300.*1300.*init_bit_flags_combo\\(flags_combo, \\(unsigned\\)1, \\(unsigned\\)0, .y.,.*" \
"continue to 1300"
-
- # FIXME:
- # HP aCC demangler currently does not handle hp aCC functions with >10 args
- # DTS CLLbs16994 coulter 990114
-
- if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*"}
#step
send_gdb "step\n"
gdb_expect {
--- 465,470 ----
***************
*** 501,506 ****
--- 495,507 ----
"continue to 1305"
#call print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)
+
+ # FIXME:
+ # HP aCC demangler currently does not handle hp aCC functions with >10 args
+ # DTS CLLbs16994 coulter 990114
+
+ if {$hp_aCC_compiler} {setup_xfail "hppa*-*-*" CLLbs16994}
+
if {![target_info exists gdb,skip_float_tests]} {
send_gdb "print print_long_arg_list(a, b, c, d, e, f, *struct1, *struct2, *struct3, *struct4, *flags, *flags_combo, *three_char, *five_char, *int_char_combo, *d1, *d2, *d3, *f1, *f2, *f3)\n"
gdb_expect {
Index: gdb/testsuite/gdb.base/callfuncs.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/callfuncs.exp gdb/testsuite/gdb.base/callfuncs.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/callfuncs.exp
*** gdb/testsuite/gdb.base/callfuncs.exp
--- gdb/testsuite/gdb.base/callfuncs.exp Wed Jul 21 17:08:07 1999
***************
*** 94,99 ****
--- 94,101 ----
proc do_function_calls {} {
global prototypes
global gcc_compiled
+ global gdb_prompt
+
# We need to up this because this can be really slow on some boards.
set timeout 60;
***************
*** 129,141 ****
# Gcc emits different stabs for the two parameters; the first is
# claimed to be a float, the second a double.
# dbxout.c in gcc claims this is the desired behavior.
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
# Test passing of arguments which might not be widened.
--- 131,143 ----
# Gcc emits different stabs for the two parameters; the first is
# claimed to be a float, the second a double.
# dbxout.c in gcc claims this is the desired behavior.
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
# Test passing of arguments which might not be widened.
***************
*** 185,243 ****
# the RS6000.
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_func_values(add,func_val2)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_func_values(add,func_val2)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_func_values(add,func_val2)"
! } else {
! fail "p t_func_values(add,func_val2)"
! }
! }
! }
! } else {
gdb_test "p t_func_values(add,func_val2)" " = 1"
}
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_func_values(func_val1,doubleit)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_func_values(func_val1,doubleit)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_func_values(func_val1,doubleit)"
! } else {
! fail "p t_func_values(func_val1,doubleit)"
! }
! }
! }
! } else {
gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
}
- gdb_test "p t_call_add(func_val1,3,4)" " = 7"
-
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_call_add(add,3,4)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_call_add(add,3,4)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_call_add(add,3,4)"
! } else {
! fail "p t_call_add(add,3,4)"
! }
! }
! }
! } else {
gdb_test "p t_call_add(add,3,4)" " = 7"
}
gdb_test "p t_enum_value1(enumval1)" " = 1"
gdb_test "p t_enum_value1(enum_val1)" " = 1"
--- 187,208 ----
# the RS6000.
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_func_values(add,func_val2)" " = 1"
}
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
}
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_call_add(add,3,4)" " = 7"
}
+ gdb_test "p t_call_add(func_val1,3,4)" " = 7"
gdb_test "p t_enum_value1(enumval1)" " = 1"
gdb_test "p t_enum_value1(enum_val1)" " = 1"
Index: gdb/testsuite/gdb.base/callfwmall.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/callfwmall.exp gdb/testsuite/gdb.base/callfwmall.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/callfwmall.exp
*** gdb/testsuite/gdb.base/callfwmall.exp
--- gdb/testsuite/gdb.base/callfwmall.exp Wed Jul 21 17:08:10 1999
***************
*** 19,25 ****
# This file was written by Fred Fish. (fnf@cygnus.com)
! # SAME tests as in callfns.exp but here the inferior program does not
# call malloc.
--- 19,25 ----
# This file was written by Fred Fish. (fnf@cygnus.com)
! # SAME tests as in callfuncs.exp but here the inferior program does not
# call malloc.
***************
*** 99,104 ****
--- 99,106 ----
proc do_function_calls {} {
global prototypes
global gcc_compiled
+ global gdb_prompt
+
# We need to up this because this can be really slow on some boards.
set timeout 60;
***************
*** 134,146 ****
# Gcc emits different stabs for the two parameters; the first is
# claimed to be a float, the second a double.
# dbxout.c in gcc claims this is the desired behavior.
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
! setup_xfail "mn10300-*-*" "hppa*-*-*11*"
gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
# Test passing of arguments which might not be widened.
--- 136,148 ----
# Gcc emits different stabs for the two parameters; the first is
# claimed to be a float, the second a double.
# dbxout.c in gcc claims this is the desired behavior.
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(3.14159,-2.3765)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(float_val1,float_val2)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(3.14159,float_val2)" " = 1"
! setup_xfail "mn10300-*-*"
gdb_test "p t_float_values(float_val1,-2.3765)" " = 1"
# Test passing of arguments which might not be widened.
***************
*** 192,229 ****
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_func_values(add,func_val2)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_func_values(add,func_val2)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_func_values(add,func_val2)"
! } else {
! fail "p t_func_values(add,func_val2)"
! }
! }
! }
! } else {
gdb_test "p t_func_values(add,func_val2)" " = 1"
}
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_func_values(func_val1,doubleit)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_func_values(func_val1,doubleit)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_func_values(func_val1,doubleit)"
! } else {
! fail "p t_func_values(func_val1,doubleit)"
! }
! }
! }
! } else {
gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
}
--- 194,207 ----
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_func_values(add,func_val2)" " = 1"
}
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_func_values(func_val1,doubleit)" " = 1"
}
***************
*** 232,250 ****
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {!$gcc_compiled && [istarget hppa*-*-hpux*]} then {
! send_gdb "p t_call_add(add,3,4)\n"
! gdb_expect {
! -re "You cannot.*ignored.*" {pass "p t_call_add(add,3,4)"}
! -re "Program received signal SIGBUS, Bus error.*" {
! if [istarget hppa*-*-hpux*] {
! pass "p t_call_add(add,3,4)"
! } else {
! fail "p t_call_add(add,3,4)"
! }
! }
! }
! } else {
gdb_test "p t_call_add(add,3,4)" " = 7"
}
--- 210,216 ----
setup_xfail "rs6000*-*-*"
setup_xfail "powerpc*-*-*"
! if {![istarget hppa*-*-hpux*]} then {
gdb_test "p t_call_add(add,3,4)" " = 7"
}
Index: gdb/testsuite/gdb.base/completion.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/completion.exp gdb/testsuite/gdb.base/completion.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/completion.exp
*** gdb/testsuite/gdb.base/completion.exp
--- gdb/testsuite/gdb.base/completion.exp Wed Jul 21 17:08:12 1999
***************
*** 533,542 ****
}
! send_gdb "file ${srcdir}/gdb.base/a1\t"
sleep 1
gdb_expect {
! -re "^file ${srcdir}/gdb.base/.*'a1.*-self\\.exp' $"\
{ send_gdb "\n"
gdb_expect {
-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
--- 533,542 ----
}
! send_gdb "file ${srcdir}/gdb.base/self\t"
sleep 1
gdb_expect {
! -re "^file ${srcdir}/gdb.base/.*'selftest\\.exp' $"\
{ send_gdb "\n"
gdb_expect {
-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
***************
*** 544,560 ****
{ send_gdb "n\n"
gdb_expect {
-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
! { pass "complete 'file gdb.base/a1'"}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
! timeout {fail "(timeout) complete 'file gdb.base/a1'"}
}
}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'"}
! timeout {fail "(timeout) complete 'file gdb.base/a1'"}
}
}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/a1'" }
! timeout { fail "(timeout) complete 'file gdb.base/a1'" }
}
--- 544,560 ----
{ send_gdb "n\n"
gdb_expect {
-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
! { pass "complete 'file gdb.base/self'"}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
! timeout {fail "(timeout) complete 'file gdb.base/self'"}
}
}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
! timeout {fail "(timeout) complete 'file gdb.base/self'"}
}
}
! -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'" }
! timeout { fail "(timeout) complete 'file gdb.base/self'" }
}
Index: gdb/testsuite/gdb.base/condbreak.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/condbreak.exp gdb/testsuite/gdb.base/condbreak.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/condbreak.exp
*** gdb/testsuite/gdb.base/condbreak.exp
--- gdb/testsuite/gdb.base/condbreak.exp Wed Jul 21 17:08:16 1999
***************
*** 151,158 ****
#
# run until the breakpoint at marker2
#
! #See 11512CLLbs
! setup_xfail hppa2.0w-*-*
gdb_test "continue" "Continuing\\..*Breakpoint \[0-9\]+, marker2 \\(a=43\\) at .*$srcfile:4\[49\].*4\[49\]\[\t \]+.*" \
"run until breakpoint at marker2"
--- 151,157 ----
#
# run until the breakpoint at marker2
#
! setup_xfail hppa2.0w-*-* 11512CLLbs
gdb_test "continue" "Continuing\\..*Breakpoint \[0-9\]+, marker2 \\(a=43\\) at .*$srcfile:4\[49\].*4\[49\]\[\t \]+.*" \
"run until breakpoint at marker2"
Index: gdb/testsuite/gdb.base/corefile.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/corefile.exp gdb/testsuite/gdb.base/corefile.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/corefile.exp
*** gdb/testsuite/gdb.base/corefile.exp
--- gdb/testsuite/gdb.base/corefile.exp Wed Jul 21 17:08:26 1999
***************
*** 217,224 ****
# test reinit_frame_cache
gdb_load ${binfile}
! # HP defect CLLbs17002
! setup_xfail "*-*-*"
gdb_test "up" "#\[0-9\]* *\[0-9xa-fH'\]* in .* \\(\\)" "up in corefile.exp (reinit)"
gdb_test "core" "No core file now."
--- 217,223 ----
# test reinit_frame_cache
gdb_load ${binfile}
! setup_xfail "*-*-*" CLLbs17002
gdb_test "up" "#\[0-9\]* *\[0-9xa-fH'\]* in .* \\(\\)" "up in corefile.exp (reinit)"
gdb_test "core" "No core file now."
Index: gdb/testsuite/gdb.base/default.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/default.exp gdb/testsuite/gdb.base/default.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/default.exp
*** gdb/testsuite/gdb.base/default.exp
--- gdb/testsuite/gdb.base/default.exp Wed Jul 21 18:08:52 1999
***************
*** 530,535 ****
--- 530,537 ----
gdb_test "set print" "\"set print\" must be followed by the name of a print subcommand..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set print"
#test set print address
gdb_test "set print address" "" "set print address"
+ #test set print args
+ gdb_test "set print args" "" "set print args"
#test set print array
gdb_test "set print array" "" "set print array"
#test set print asm-demangle
***************
*** 618,623 ****
--- 620,627 ----
gdb_test "show paths" "Executable and object file path:.*" "show paths"
#test show print address
gdb_test "show print address" "Printing of addresses is on." "show print address"
+ #test show print args
+ gdb_test "show print args" "Printing of function arguments is on." "show print args"
#test show print array
gdb_test "show print array" "Prettyprinting of arrays is on." "show print array"
#test show print asm-demangle
Index: gdb/testsuite/gdb.base/display.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/display.exp gdb/testsuite/gdb.base/display.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/display.exp
*** gdb/testsuite/gdb.base/display.exp
--- gdb/testsuite/gdb.base/display.exp Wed Jul 21 18:08:55 1999
***************
*** 48,60 ****
gdb_load ${binfile}
# Some coverage stuff
#
! gdb_test "kill" ".*The program is not being run.*" ""
! gdb_test "detach" ".*" ""
! gdb_test "run" ".*" ""
gdb_load ${binfile}
! gdb_test "kill" ".*" ""
! gdb_test "detach" ".*" ""
# Ok, on to real life
#
--- 48,60 ----
gdb_load ${binfile}
# Some coverage stuff
#
! gdb_test "kill" ".*The program is not being run.*"
! gdb_test "detach" ".*"
! gdb_test "run" ".*"
gdb_load ${binfile}
! gdb_test "kill" ".*"
! gdb_test "detach" ".*"
# Ok, on to real life
#
***************
*** 85,92 ****
gdb_test "c" ".*\[Ww\]atchpoint 3: sum.*\[1-9\]*: x/s &sum.*\[1-9\]*: /f sum = 2.80259693e.45\r\n\[1-9\]*: x/i &k.*\r\n\[1-9\]*: /x j = 0x0.*\[1-9\]*: i = 0.*" "second disp"
gdb_test "enab disp 6" ".*No display number 6..*" "catch err"
! gdb_test "disab disp 1" ".*" "disab"
! gdb_test "disab disp 2" ".*" ""
gdb_test "enab disp 1" ".*" "re-enab"
gdb_test "enab disp 1" ".*" "re-enab of enab"
gdb_test "undisp 5" ".*" "undisp"
--- 85,92 ----
gdb_test "c" ".*\[Ww\]atchpoint 3: sum.*\[1-9\]*: x/s &sum.*\[1-9\]*: /f sum = 2.80259693e.45\r\n\[1-9\]*: x/i &k.*\r\n\[1-9\]*: /x j = 0x0.*\[1-9\]*: i = 0.*" "second disp"
gdb_test "enab disp 6" ".*No display number 6..*" "catch err"
! gdb_test "disab disp 1" ".*" "disab disp 1"
! gdb_test "disab disp 2" ".*" "disab disp 2"
gdb_test "enab disp 1" ".*" "re-enab"
gdb_test "enab disp 1" ".*" "re-enab of enab"
gdb_test "undisp 5" ".*" "undisp"
***************
*** 117,162 ****
timeout { fail "timeout" }
}
! gdb_test "disab 3" ".*.*" ""
gdb_test "c" ".*Breakpoint 4.*" "watch off"
# Now the printf tests
#
gdb_test "fin" ".*Run till exit.*Value returned is.*= 10.*" "finish"
! gdb_test "s" ".*do_vars.*.*25" ""
! gdb_test "tb 35" ".*Breakpoint 5 a.*" ""
! gdb_test "c" ".*do_vars.*35.*35.*" ""
# Beat on printf a bit
#
! gdb_test "printf" ".*Argument required.*" ""
! gdb_test "printf %d" ".*Bad format string, missing.*" ""
! gdb_test "printf \"%d" ".*Bad format string, non-terminated.*" ""
! gdb_test "printf \"%d%d\",i" ".*Wrong number of arguments.*" ""
! gdb_test "printf \"\\\\!\\a\\f\\r\\t\\v\\b\"" ".*!.*" ""
gdb_test "printf \"\"" ".*" "re-set term"
! gdb_test "printf \"\\w\"" ".*Unrecognized escape character.*" ""
! gdb_test "printf \"%d\" j" ".*Invalid argument syntax.*" ""
# play with "p", too
#
! gdb_test "p/r j" ".*Undefined output format.*" ""
gdb_test "p j" ".*" "debug test output"
! #gdb_test "x/rx j" ".*Cannot access memory.*" "no error!"
# x/0 j doesn't produce any output and terminates PA64 process when testing
! if [istarget "hppa*-hp-hpux11*"] {
! xfail "'x/0 j' terminate PA64 process - skipped test point"
} else {
! gdb_test "x/0 j" ".*" "x/0 j"
}
gdb_test "p/0 j" ".*Item count other than 1 is meaningless.*" "p/0 j"
gdb_test "p/s sum" ".*Format letter.*is meaningless.*" " no s"
gdb_test "p/i sum" ".*Format letter.*is meaningless.*.*" "no i"
! gdb_test "p/a &sum" ".*= 0x.*<sum>.*" ""
! gdb_test "p/a main+1000" ".*= 0x.*<.*>.*" ""
! gdb_test "p/a \\\$pc" ".*= 0x.*<do_vars+.*>.*" ""
! gdb_test "p/a &j" ".*= 0x.*<.*>.*" ""
! gdb_test "p/a &&j" ".*A syntax error.*" ""
# Done!
#
--- 117,166 ----
timeout { fail "timeout" }
}
! gdb_test "disab 3" ".*.*" "disab 3"
gdb_test "c" ".*Breakpoint 4.*" "watch off"
# Now the printf tests
#
gdb_test "fin" ".*Run till exit.*Value returned is.*= 10.*" "finish"
! gdb_test "s" ".*do_vars.*.*27.*"
! gdb_test "tb 37" ".*Breakpoint 5 a.*"
! gdb_test "c" ".*do_vars.*37.*37.*"
# Beat on printf a bit
#
! gdb_test "printf" ".*Argument required.*"
! gdb_test "printf %d" ".*Bad format string, missing.*"
! gdb_test "printf \"%d" ".*Bad format string, non-terminated.*"
! gdb_test "printf \"%d%d\",i" ".*Wrong number of arguments.*"
! gdb_test "printf \"\\\\!\\a\\f\\r\\t\\v\\b\"" ".*!.*"
gdb_test "printf \"\"" ".*" "re-set term"
! gdb_test "printf \"\\w\"" ".*Unrecognized escape character.*"
! gdb_test "printf \"%d\" j" ".*Invalid argument syntax.*"
# play with "p", too
#
! gdb_test "p/r j" ".*Undefined output format.*"
gdb_test "p j" ".*" "debug test output"
!
# x/0 j doesn't produce any output and terminates PA64 process when testing
! if [istarget "hppa2.0w-hp-hpux11*"] {
! xfail "'x/0 j' terminates PA64 process - skipped test point"
} else {
! gdb_test "x/0 j" ".*"
! }
! if [istarget "hppa*-hp-hpux*"] {
! # on HP-UX you could access the first page without getting an error
! gdb_test "x/rx j" ".*(Cannot access|Error accessing) memory.*|.*0xa:\[ \t\]*\[0-9\]+.*"
}
gdb_test "p/0 j" ".*Item count other than 1 is meaningless.*" "p/0 j"
gdb_test "p/s sum" ".*Format letter.*is meaningless.*" " no s"
gdb_test "p/i sum" ".*Format letter.*is meaningless.*.*" "no i"
! gdb_test "p/a &sum" ".*= $hex.*<sum>.*"
! gdb_test "p/a main+1000" ".*= $hex.*<.*>.*"
! gdb_test "p/a \$pc" ".*= $hex.*<do_vars+.*>.*"
! gdb_test "p/a &j" ".*= $hex.*<do_vars+.*>.*"
! gdb_test "p/a &&j" ".*A syntax error.*"
# Done!
#
Index: gdb/testsuite/gdb.base/ending-run.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/ending-run.exp gdb/testsuite/gdb.base/ending-run.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/ending-run.exp
*** gdb/testsuite/gdb.base/ending-run.exp
--- gdb/testsuite/gdb.base/ending-run.exp Wed Jul 21 17:08:39 1999
***************
*** 52,70 ****
# to the prolog--that's another bug...)
#
gdb_test "b 1" ".*Breakpoint.*line 1.*" "bpt at line before routine"
! gdb_test "b 13" ".*Note.*also.*Breakpoint.*2.*" ""
# Set up to go to the next-to-last line of the program
#
! gdb_test "b 31" ".*Breakpoint.*3.*" ""
# Expect to hit the bp at line "1", but symbolize this
# as line "13". Then try to clear it--this should work.
#
if [target_info exists use_gdb_stub] {
! gdb_test "continue" ".*Breakpoint.*1.*callee.*13.*" ""
} else {
! gdb_test "r" ".*Breakpoint.*1.*callee.*13.*" ""
}
gdb_test "cle" ".*Deleted breakpoints 2 1.*" "clear worked"
send_gdb "i b\n"
--- 52,70 ----
# to the prolog--that's another bug...)
#
gdb_test "b 1" ".*Breakpoint.*line 1.*" "bpt at line before routine"
! gdb_test "b 13" ".*Note.*also.*Breakpoint.*2.*"
# Set up to go to the next-to-last line of the program
#
! gdb_test "b 31" ".*Breakpoint.*3.*"
# Expect to hit the bp at line "1", but symbolize this
# as line "13". Then try to clear it--this should work.
#
if [target_info exists use_gdb_stub] {
! gdb_test "continue" ".*Breakpoint.*1.*callee.*13.*"
} else {
! gdb_test "r" ".*Breakpoint.*1.*callee.*13.*"
}
gdb_test "cle" ".*Deleted breakpoints 2 1.*" "clear worked"
send_gdb "i b\n"
***************
*** 76,90 ****
# Test some other "clear" combinations
#
! gdb_test "b 1" ".*Breakpoint.*4.*" ""
! gdb_test "b 13" ".*Note.*also.*Breakpoint.*5.*" ""
gdb_test "cle 13" ".*Deleted breakpoint 5.*" "Only cleared 1 by line"
send_gdb "inf line 13\n"
gdb_expect {
-re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
set line_eight $expect_out(1,string)
! gdb_test "b 13" ".*Breakpoint.*6.*" ""
gdb_test "cle *$line_eight" ".*Deleted breakpoints 6 4.*" "Clear 2 by address"
}
-re ".*$gdb_prompt $" {
--- 76,90 ----
# Test some other "clear" combinations
#
! gdb_test "b 1" ".*Breakpoint.*4.*"
! gdb_test "b 13" ".*Note.*also.*Breakpoint.*5.*"
gdb_test "cle 13" ".*Deleted breakpoint 5.*" "Only cleared 1 by line"
send_gdb "inf line 13\n"
gdb_expect {
-re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
set line_eight $expect_out(1,string)
! gdb_test "b 13" ".*Breakpoint.*6.*"
gdb_test "cle *$line_eight" ".*Deleted breakpoints 6 4.*" "Clear 2 by address"
}
-re ".*$gdb_prompt $" {
***************
*** 96,104 ****
gdb_expect {
-re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
set line_nine $expect_out(1,string)
! gdb_test "b 14" ".*Breakpoint.*7.*" ""
! gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint.*8.*" ""
! gdb_test "c" ".*Breakpoint.*7.*callee.*14.*" ""
gdb_test "cle" ".*Deleted breakpoints 8 7.*" "Clear 2 by default"
}
-re ".*$gdb_prompt $" {
--- 96,104 ----
gdb_expect {
-re ".*address (0x\[0-9a-fA-F]*).*$gdb_prompt $" {
set line_nine $expect_out(1,string)
! gdb_test "b 14" ".*Breakpoint.*7.*"
! gdb_test "b *$line_nine" ".*Note.*also.*Breakpoint.*8.*"
! gdb_test "c" ".*Breakpoint.*7.*callee.*14.*"
gdb_test "cle" ".*Deleted breakpoints 8 7.*" "Clear 2 by default"
}
-re ".*$gdb_prompt $" {
***************
*** 123,129 ****
# See if we can step out with control. The "1 2 3" stuff
# is output from the program.
#
! gdb_test "cont" ".*Breakpoint.*32.*" ""
gdb_test "next" ".*1 2 7 14 23 34 47 62 79 Goodbye!.*32.*" "Step to return"
set old_timeout $timeout
--- 123,129 ----
# See if we can step out with control. The "1 2 3" stuff
# is output from the program.
#
! gdb_test "cont" ".*Breakpoint.*31.*"
gdb_test "next" ".*1 2 7 14 23 34 47 62 79 Goodbye!.*32.*" "Step to return"
set old_timeout $timeout
Index: gdb/testsuite/gdb.base/foll-exec.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/foll-exec.exp gdb/testsuite/gdb.base/foll-exec.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/foll-exec.exp
*** gdb/testsuite/gdb.base/foll-exec.exp
--- gdb/testsuite/gdb.base/foll-exec.exp Wed Jul 21 17:08:55 1999
***************
*** 205,211 ****
# DTS CLLbs16760
# PA64 doesn't know about $START$ in dld.sl at this point. It should.
# - Michael Coulter
! setup_xfail hppa2.0w-hp-hpux*
send_gdb "continue\n"
gdb_expect {
-re ".*Executing new program:.*${testfile2}.*Catchpoint .*(exec\'d .*${testfile2}).*in .START..*$gdb_prompt $"\
--- 205,211 ----
# DTS CLLbs16760
# PA64 doesn't know about $START$ in dld.sl at this point. It should.
# - Michael Coulter
! setup_xfail hppa2.0w-hp-hpux* CLLbs16760
send_gdb "continue\n"
gdb_expect {
-re ".*Executing new program:.*${testfile2}.*Catchpoint .*(exec\'d .*${testfile2}).*in .START..*$gdb_prompt $"\
Index: gdb/testsuite/gdb.base/foll-vfork.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/foll-vfork.exp gdb/testsuite/gdb.base/foll-vfork.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/foll-vfork.exp
*** gdb/testsuite/gdb.base/foll-vfork.exp
--- gdb/testsuite/gdb.base/foll-vfork.exp Wed Jul 21 17:09:06 1999
***************
*** 75,81 ****
}
send_gdb "next\n"
gdb_expect {
! -re "Detaching after fork from.*13.*$gdb_prompt $"\
{pass "vfork parent follow, through step"}
-re "$gdb_prompt $" {fail "vfork parent follow, through step"}
timeout {fail "(timeout) vfork parent follow, through step" }
--- 75,81 ----
}
send_gdb "next\n"
gdb_expect {
! -re "Detaching after fork from.*13.*$gdb_prompt "\
{pass "vfork parent follow, through step"}
-re "$gdb_prompt $" {fail "vfork parent follow, through step"}
timeout {fail "(timeout) vfork parent follow, through step" }
***************
*** 102,108 ****
}
send_gdb "continue\n"
gdb_expect {
! -re ".*Detaching after fork from process.*Breakpoint.*18.*$gdb_prompt $"\
{pass "vfork parent follow, to bp"}
-re "$gdb_prompt $" {fail "vfork parent follow, to bp"}
timeout {fail "(timeout) vfork parent follow, to bp" }
--- 102,108 ----
}
send_gdb "continue\n"
gdb_expect {
! -re ".*Detaching after fork from process.*Breakpoint.*18.*$gdb_prompt "\
{pass "vfork parent follow, to bp"}
-re "$gdb_prompt $" {fail "vfork parent follow, to bp"}
timeout {fail "(timeout) vfork parent follow, to bp" }
***************
*** 125,131 ****
}
send_gdb "continue\n"
gdb_expect {
! -re "Detaching from program.*Attaching after fork to.*Executing new program.*Breakpoint.*vforked-prog.c:9.*$gdb_prompt $"\
{pass "vfork and exec child follow, to main bp"}
-re "$gdb_prompt $" {fail "vfork and exec child follow, to main bp"}
timeout {fail "(timeout) vfork and exec child follow, to main bp" }
--- 125,131 ----
}
send_gdb "continue\n"
gdb_expect {
! -re "Detaching from program.*Attaching after fork to.*Executing new program.*Breakpoint.*vforked-prog.c:9.*$gdb_prompt "\
{pass "vfork and exec child follow, to main bp"}
-re "$gdb_prompt $" {fail "vfork and exec child follow, to main bp"}
timeout {fail "(timeout) vfork and exec child follow, to main bp" }
***************
*** 171,177 ****
# the implementation of "next" sets a "step resume" breakpoint at the
# return from the vfork(), which the child will hit on its way to exec'ing.
#
! if { ![istarget "hppa*-*-hpux10.30"] && ![istarget "hppa*-*-hpux11.*"] } {
verbose "vfork child-following next test ignored for non-hppa or pre-HP/UX-10.30 targets."
return 0
}
--- 171,177 ----
# the implementation of "next" sets a "step resume" breakpoint at the
# return from the vfork(), which the child will hit on its way to exec'ing.
#
! if { ![istarget "hppa*-*-hpux11.*"] } {
verbose "vfork child-following next test ignored for non-hppa or pre-HP/UX-10.30 targets."
return 0
}
***************
*** 183,189 ****
}
send_gdb "next\n"
gdb_expect {
! -re "Detaching from program.*Attaching after fork to.*Executing new program.*Breakpoint.*vforked-prog.c:9.*$gdb_prompt $"\
{pass "vfork and exec child follow, through step"}
-re "$gdb_prompt $" {fail "vfork and exec child follow, through step"}
timeout {fail "(timeout) vfork and exec child follow, through step" }
--- 183,189 ----
}
send_gdb "next\n"
gdb_expect {
! -re "Detaching from program.*Attaching after fork to.*Executing new program.*Breakpoint.*vforked-prog.c:9.*$gdb_prompt "\
{pass "vfork and exec child follow, through step"}
-re "$gdb_prompt $" {fail "vfork and exec child follow, through step"}
timeout {fail "(timeout) vfork and exec child follow, through step" }
***************
*** 238,253 ****
# HP-UX 10.20 seems to stop you in "vfork", while more recent HP-UXs
# stop you in "_vfork".
gdb_expect {
! -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt $"\
{pass "vfork parent follow, tcatch vfork"}
! -re "0x\[0-9a-fA-F\]*.*_vfork.*$gdb_prompt $"\
{pass "vfork parent follow, tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork parent follow, tcatch vfork"}
timeout {fail "(timeout) vfork parent follow, tcatch vfork"}
}
send_gdb "finish\n"
gdb_expect {
! -re "Run till exit from.*vfork.*0x\[0-9a-fA-F\]* in main .* at .*${srcfile}:12.*$gdb_prompt $"\
{pass "vfork parent follow, finish after tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork parent follow, finish after tcatch vfork"}
timeout {fail "(timeout) vfork parent follow, finish after tcatch vfork" }
--- 238,253 ----
# HP-UX 10.20 seems to stop you in "vfork", while more recent HP-UXs
# stop you in "_vfork".
gdb_expect {
! -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt "\
{pass "vfork parent follow, tcatch vfork"}
! -re "0x\[0-9a-fA-F\]*.*_vfork.*$gdb_prompt "\
{pass "vfork parent follow, tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork parent follow, tcatch vfork"}
timeout {fail "(timeout) vfork parent follow, tcatch vfork"}
}
send_gdb "finish\n"
gdb_expect {
! -re "Run till exit from.*vfork.*0x\[0-9a-fA-F\]* in main .* at .*${srcfile}:12.*$gdb_prompt "\
{pass "vfork parent follow, finish after tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork parent follow, finish after tcatch vfork"}
timeout {fail "(timeout) vfork parent follow, finish after tcatch vfork" }
***************
*** 279,294 ****
# HP-UX 10.20 seems to stop you in "vfork", while more recent HP-UXs
# stop you in "_vfork".
gdb_expect {
! -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt $"\
{pass "vfork child follow, tcatch vfork"}
! -re "0x\[0-9a-fA-F\]*.*_vfork.*$gdb_prompt $"\
{pass "vfork child follow, tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork child follow, tcatch vfork"}
timeout {fail "(timeout) vfork child follow, tcatch vfork"}
}
send_gdb "finish\n"
gdb_expect {
! -re "Run till exit from.*vfork.*${srcfile2}:9.*$gdb_prompt $"\
{pass "vfork child follow, finish after tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork child follow, finish after tcatch vfork"}
timeout {fail "(timeout) vfork child follow, finish after tcatch vfork" }
--- 279,294 ----
# HP-UX 10.20 seems to stop you in "vfork", while more recent HP-UXs
# stop you in "_vfork".
gdb_expect {
! -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt "\
{pass "vfork child follow, tcatch vfork"}
! -re "0x\[0-9a-fA-F\]*.*_vfork.*$gdb_prompt "\
{pass "vfork child follow, tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork child follow, tcatch vfork"}
timeout {fail "(timeout) vfork child follow, tcatch vfork"}
}
send_gdb "finish\n"
gdb_expect {
! -re "Run till exit from.*vfork.*${srcfile2}:9.*$gdb_prompt "\
{pass "vfork child follow, finish after tcatch vfork"}
-re "$gdb_prompt $" {fail "vfork child follow, finish after tcatch vfork"}
timeout {fail "(timeout) vfork child follow, finish after tcatch vfork" }
Index: gdb/testsuite/gdb.base/gdbvars.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/gdbvars.exp gdb/testsuite/gdb.base/gdbvars.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/gdbvars.exp
*** gdb/testsuite/gdb.base/gdbvars.exp
--- gdb/testsuite/gdb.base/gdbvars.exp Wed Jul 21 17:09:13 1999
***************
*** 84,90 ****
gdb_test "print \$0" "\\\$8 = 102" \
"Print value-history\[MAX\] using explicit index \$0"
! gdb_test "print 108" "\\\$9 = 108" ""
gdb_test "print \$\$0" "\\\$10 = 108" \
"Print value-history\[MAX\] using explicit index \$\$0"
--- 84,90 ----
gdb_test "print \$0" "\\\$8 = 102" \
"Print value-history\[MAX\] using explicit index \$0"
! gdb_test "print 108" "\\\$9 = 108"
gdb_test "print \$\$0" "\\\$10 = 108" \
"Print value-history\[MAX\] using explicit index \$\$0"
Index: gdb/testsuite/gdb.base/interrupt.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/interrupt.exp gdb/testsuite/gdb.base/interrupt.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/interrupt.exp
*** gdb/testsuite/gdb.base/interrupt.exp
--- gdb/testsuite/gdb.base/interrupt.exp Wed Jul 21 17:09:23 1999
***************
*** 110,116 ****
# terminates the program. A defect is pending on this
# issue [defect #DTS CHFts24203]. Hence calling setup_xfail
# below.
! setup_xfail "hppa*-*-*11*"
fail "call function when asleep (wrong output)"
}
default {
--- 110,116 ----
# terminates the program. A defect is pending on this
# issue [defect #DTS CHFts24203]. Hence calling setup_xfail
# below.
! setup_xfail "hppa*-*-*11*" CHFts24203
fail "call function when asleep (wrong output)"
}
default {
Index: gdb/testsuite/gdb.base/long_long.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/long_long.exp gdb/testsuite/gdb.base/long_long.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/long_long.exp
*** gdb/testsuite/gdb.base/long_long.exp
--- gdb/testsuite/gdb.base/long_long.exp Wed Jul 21 17:09:38 1999
***************
*** 79,162 ****
# Try all the combinations to bump up coverage.
#
! gdb_test "p/d oct" ".*12046818088235383159.*" ""
! gdb_test "p/u oct" ".*12046818088235383159.*" ""
! gdb_test "p/o oct" ".*.*" ""
! gdb_test "p/t oct" ".*1010011100101110111001010011100101110111000001010011100101110111.*" ""
! gdb_test "p/a oct" ".*0x.*77053977.*" ""
! gdb_test "p/c oct" ".*'w'.*" ""
! gdb_test "p/f oct" ".*-5.9822653797615723e-120.*" ""
!
! gdb_test "p/d *(int *)&oct" ".*-1490098887.*" ""
! gdb_test "p/u *(int *)&oct" ".*2804868409.*" ""
! gdb_test "p/o *(int *)&oct" ".*024713562471.*" ""
! gdb_test "p/t *(int *)&oct" ".*10100111001011101110010100111001.*" ""
! gdb_test "p/a *(int *)&oct" ".*0xf*a72ee539.*" ""
! gdb_test "p/c *(int *)&oct" ".*57 '9'.*" ""
! gdb_test "p/f *(int *)&oct" ".*-2.42716126e-15.*" ""
!
! 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*" ""
! gdb_test "x/u &oct" ".*2804868409.*" ""
! gdb_test "x/o &oct" ".*024713562471.*" ""
! gdb_test "x/t &oct" ".*10100111001011101110010100111001.*" ""
! gdb_test "x/a &oct" ".*0xa72ee539.*" ""
! gdb_test "x/c &oct" ".*-89 '\\\\247'.*" ""
! gdb_test "x/f &oct" ".*-5.9822653797615723e-120.*" ""
!
! gdb_test "x/2x &oct" ".*.*" ""
! gdb_test "x/2d &oct" ".*.*" ""
! gdb_test "x/2u &oct" ".*.*" ""
! gdb_test "x/2o &oct" ".*.*" ""
! gdb_test "x/2t &oct" ".*.*" ""
! gdb_test "x/2a &oct" ".*.*" ""
! gdb_test "x/2c &oct" ".*.*" ""
! gdb_test "x/2f &oct" ".*.*" ""
!
! gdb_test "x/2bx &oct" ".*.*" ""
! gdb_test "x/2bd &oct" ".*.*" ""
! gdb_test "x/2bu &oct" ".*.*" ""
! gdb_test "x/2bo &oct" ".*.*" ""
! gdb_test "x/2bt &oct" ".*.*" ""
! gdb_test "x/2ba &oct" ".*.*" ""
! gdb_test "x/2bc &oct" ".*.*" ""
! gdb_test "x/2bf &oct" ".*.*" ""
!
! gdb_test "x/2hx &oct" ".*.*" ""
! gdb_test "x/2hd &oct" ".*.*" ""
! gdb_test "x/2hu &oct" ".*.*" ""
! gdb_test "x/2ho &oct" ".*.*" ""
! gdb_test "x/2ht &oct" ".*.*" ""
! gdb_test "x/2ha &oct" ".*.*" ""
! gdb_test "x/2hc &oct" ".*.*" ""
! gdb_test "x/2hf &oct" ".*.*" ""
!
! gdb_test "x/2wx &oct" ".*.*" ""
! gdb_test "x/2wd &oct" ".*.*" ""
! gdb_test "x/2wu &oct" ".*.*" ""
! gdb_test "x/2wo &oct" ".*.*" ""
! gdb_test "x/2wt &oct" ".*.*" ""
! gdb_test "x/2wa &oct" ".*.*" ""
! gdb_test "x/2wc &oct" ".*.*" ""
! gdb_test "x/2wf &oct" ".*.*" ""
!
! gdb_test "x/2gx &oct" ".*.*" ""
! gdb_test "x/2gd &oct" ".*.*" ""
! gdb_test "x/2gu &oct" ".*.*" ""
! gdb_test "x/2go &oct" ".*.*" ""
! gdb_test "x/2gt &oct" ".*.*" ""
! gdb_test "x/2ga &oct" ".*.*" ""
! gdb_test "x/2gc &oct" ".*.*" ""
! gdb_test "x/2gf &oct" ".*.*" ""
gdb_exit
return 0
--- 79,162 ----
# Try all the combinations to bump up coverage.
#
! gdb_test "p/d oct" ".*-6399925985474168457.*"
! gdb_test "p/u oct" ".*12046818088235383159.*"
! gdb_test "p/o oct" ".*.*"
! gdb_test "p/t oct" ".*1010011100101110111001010011100101110111000001010011100101110111.*"
! gdb_test "p/a oct" ".*0x.*77053977.*"
! gdb_test "p/c oct" ".*'w'.*"
! gdb_test "p/f oct" ".*-5.9822653797615723e-120.*"
!
! gdb_test "p/d *(int *)&oct" ".*-1490098887.*"
! gdb_test "p/u *(int *)&oct" ".*2804868409.*"
! gdb_test "p/o *(int *)&oct" ".*024713562471.*"
! gdb_test "p/t *(int *)&oct" ".*10100111001011101110010100111001.*"
! gdb_test "p/a *(int *)&oct" ".*0xf*a72ee539.*"
! gdb_test "p/c *(int *)&oct" ".*57 '9'.*"
! gdb_test "p/f *(int *)&oct" ".*-2.42716126e-15.*"
!
! 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*"
! gdb_test "x/u &oct" ".*2804868409.*"
! gdb_test "x/o &oct" ".*024713562471.*"
! gdb_test "x/t &oct" ".*10100111001011101110010100111001.*"
! gdb_test "x/a &oct" ".*0xa72ee539.*"
! gdb_test "x/c &oct" ".*-89 '\\\\247'.*"
! gdb_test "x/f &oct" ".*-5.9822653797615723e-120.*"
!
! gdb_test "x/2x &oct" ".*.*"
! gdb_test "x/2d &oct" ".*.*"
! gdb_test "x/2u &oct" ".*.*"
! gdb_test "x/2o &oct" ".*.*"
! gdb_test "x/2t &oct" ".*.*"
! gdb_test "x/2a &oct" ".*.*"
! gdb_test "x/2c &oct" ".*.*"
! gdb_test "x/2f &oct" ".*.*"
!
! gdb_test "x/2bx &oct" ".*.*"
! gdb_test "x/2bd &oct" ".*.*"
! gdb_test "x/2bu &oct" ".*.*"
! gdb_test "x/2bo &oct" ".*.*"
! gdb_test "x/2bt &oct" ".*.*"
! gdb_test "x/2ba &oct" ".*.*"
! gdb_test "x/2bc &oct" ".*.*"
! gdb_test "x/2bf &oct" ".*.*"
!
! gdb_test "x/2hx &oct" ".*.*"
! gdb_test "x/2hd &oct" ".*.*"
! gdb_test "x/2hu &oct" ".*.*"
! gdb_test "x/2ho &oct" ".*.*"
! gdb_test "x/2ht &oct" ".*.*"
! gdb_test "x/2ha &oct" ".*.*"
! gdb_test "x/2hc &oct" ".*.*"
! gdb_test "x/2hf &oct" ".*.*"
!
! gdb_test "x/2wx &oct" ".*.*"
! gdb_test "x/2wd &oct" ".*.*"
! gdb_test "x/2wu &oct" ".*.*"
! gdb_test "x/2wo &oct" ".*.*"
! gdb_test "x/2wt &oct" ".*.*"
! gdb_test "x/2wa &oct" ".*.*"
! gdb_test "x/2wc &oct" ".*.*"
! gdb_test "x/2wf &oct" ".*.*"
!
! gdb_test "x/2gx &oct" ".*.*"
! gdb_test "x/2gd &oct" ".*.*"
! gdb_test "x/2gu &oct" ".*.*"
! gdb_test "x/2go &oct" ".*.*"
! gdb_test "x/2gt &oct" ".*.*"
! gdb_test "x/2ga &oct" ".*.*"
! gdb_test "x/2gc &oct" ".*.*"
! gdb_test "x/2gf &oct" ".*.*"
gdb_exit
return 0
Index: gdb/testsuite/gdb.base/maint.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/maint.exp gdb/testsuite/gdb.base/maint.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/maint.exp
*** gdb/testsuite/gdb.base/maint.exp
--- gdb/testsuite/gdb.base/maint.exp Wed Jul 21 17:09:39 1999
***************
*** 92,101 ****
# so that branch will really never be covered in this tests here!!
#
send_gdb "maint check-symtabs\n"
gdb_expect {
! -re "^maint check-symtabs.*$gdb_prompt $"\
{ pass "maint check-symtabs" }
-re ".*$gdb_prompt $" { fail "maint check-symtabs" }
timeout { fail "(timeout) maint check-symtabs" }
}
--- 92,109 ----
# so that branch will really never be covered in this tests here!!
#
+ # guo: on linux this command output is huge. for some reason splitting up
+ # the regexp checks works.
+ #
send_gdb "maint check-symtabs\n"
gdb_expect {
! -re "^maint check-symtabs" {
! gdb_expect {
! -re "$gdb_prompt $" \
{ pass "maint check-symtabs" }
+ timeout { fail "(timeout) maint check-symtabs" }
+ }
+ }
-re ".*$gdb_prompt $" { fail "maint check-symtabs" }
timeout { fail "(timeout) maint check-symtabs" }
}
***************
*** 235,241 ****
send_gdb "shell grep 'main.*function' psymbols_output\n"
gdb_expect {
-re ".main., function, $hex.*$gdb_prompt $"\
! { pass "maint print psymbols" }
-re ".*$gdb_prompt $" { fail "maint print psymbols" }
timeout { fail "(timeout) maint print psymbols" }
}
--- 243,251 ----
send_gdb "shell grep 'main.*function' psymbols_output\n"
gdb_expect {
-re ".main., function, $hex.*$gdb_prompt $"\
! { pass "maint print psymbols 1" }
! -re ".*main. .., function, $hex.*$gdb_prompt $"\
! { pass "maint print psymbols 2" }
-re ".*$gdb_prompt $" { fail "maint print psymbols" }
timeout { fail "(timeout) maint print psymbols" }
}
***************
*** 338,350 ****
timeout { fail "(timeout) maint print type" }
}
! #send_gdb "maint print unwind &main\n"
! #gdb_expect {
! # -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+220>\r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $"\
! # { pass "maint print unwind" }
! # -re ".*$gdb_prompt $" { fail "maint print unwind" }
! # timeout { fail "(timeout) maint print unwind" }
! # }
set oldtimeout $timeout
set timeout [expr $timeout + 300]
--- 348,365 ----
timeout { fail "(timeout) maint print type" }
}
! if [istarget "hppa*-*-11*"] {
! setup_xfail hppa*-*-*11* CLLbs14860
! send "maint print unwind &main\n"
! expect {
! -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $"\
! { pass "maint print unwind" }
! -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $"\
! { xfail "maint print unwind" }
! -re ".*$gdb_prompt $" { xfail "maint info unwind" }
! timeout { fail "(timeout) maint print unwind" }
! }
! }
set oldtimeout $timeout
set timeout [expr $timeout + 300]
***************
*** 369,375 ****
send_gdb "maint info breakpoints\n"
gdb_expect {
! -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:60\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\
{ pass "maint info breakpoints" }
-re ".*$gdb_prompt $" { fail "maint info breakpoints" }
timeout { fail "(timeout) maint info breakpoints" }
--- 384,390 ----
send_gdb "maint info breakpoints\n"
gdb_expect {
! -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:75\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\
{ pass "maint info breakpoints" }
-re ".*$gdb_prompt $" { fail "maint info breakpoints" }
timeout { fail "(timeout) maint info breakpoints" }
***************
*** 383,389 ****
}
send_gdb "maint info breakpoints\n"
gdb_expect {
! -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:60\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\
{ pass "maint info breakpoints: shlib events" }
-re ".*$gdb_prompt $" {
fail "maint info breakpoints: shlib events"
--- 398,406 ----
}
send_gdb "maint info breakpoints\n"
gdb_expect {
! -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:75\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\
! { pass "maint info breakpoints" }
! -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:75\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\
{ pass "maint info breakpoints: shlib events" }
-re ".*$gdb_prompt $" {
fail "maint info breakpoints: shlib events"
***************
*** 521,533 ****
timeout { fail "(timeout) help maint print type" }
}
! #send_gdb "help maint print unwind\n"
! #gdb_expect {
! # -re "Print unwind table entry at given address\\..*$gdb_prompt $"\
! # { pass "help maint print unwind" }
! # -re ".*$gdb_prompt $" { fail "help maint print unwind" }
! # timeout { fail "(timeout) help maint print unwind" }
! # }
send_gdb "help maint info sections\n"
gdb_expect {
--- 538,552 ----
timeout { fail "(timeout) help maint print type" }
}
! if [istarget "hppa*-*-*"] {
! send_gdb "help maint print unwind\n"
! gdb_expect {
! -re "Print unwind table entry at given address\\..*$gdb_prompt $"\
! { pass "help maint print unwind" }
! -re ".*$gdb_prompt $" { fail "help maint print unwind" }
! timeout { fail "(timeout) help maint print unwind" }
! }
! }
send_gdb "help maint info sections\n"
gdb_expect {
Index: gdb/testsuite/gdb.base/pointers.c
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/pointers.c gdb/testsuite/gdb.base/pointers.c@@/GDB_1999_07_19 gdb/testsuite/gdb.base/pointers.c
*** gdb/testsuite/gdb.base/pointers.c
--- gdb/testsuite/gdb.base/pointers.c Thu Jul 22 16:26:27 1999
***************
*** 74,79 ****
--- 74,80 ----
int main ()
{
void dummy();
+ int more_code();
/* Ensure that malloc is a pointer type; avoid use of "void" and any include files. */
/* extern char *malloc();*/
Index: gdb/testsuite/gdb.base/pointers.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/pointers.exp gdb/testsuite/gdb.base/pointers.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/pointers.exp
*** gdb/testsuite/gdb.base/pointers.exp
--- gdb/testsuite/gdb.base/pointers.exp Thu Jul 22 16:26:28 1999
***************
*** 62,68 ****
continue
}
! gdb_test "next" "" "continuing after dummy()"
#
--- 62,68 ----
continue
}
! gdb_test "next " "more_code.*;" "continuing after dummy()"
#
Index: gdb/testsuite/gdb.base/printcmds.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/printcmds.exp gdb/testsuite/gdb.base/printcmds.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/printcmds.exp
*** gdb/testsuite/gdb.base/printcmds.exp
--- gdb/testsuite/gdb.base/printcmds.exp Wed Jul 21 17:10:01 1999
***************
*** 398,404 ****
global gdb_prompt
for { set x 1; } { $x <= 16 } { incr x; } {
! gdb_test "set print elements $x" "" ""
for { set e 1; } { $e <= 16 } {incr e; } {
set v [expr $e - 1];
set command "p &ctable2\[${v}*16\]"
--- 398,404 ----
global gdb_prompt
for { set x 1; } { $x <= 16 } { incr x; } {
! gdb_test "set print elements $x" ""
for { set e 1; } { $e <= 16 } {incr e; } {
set v [expr $e - 1];
set command "p &ctable2\[${v}*16\]"
***************
*** 451,473 ****
# Test that setting print elements unlimited doesn't completely suppress
# printing; this was a bug in older gdb's.
! gdb_test "set print elements 0" "" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 0"
! gdb_test "set print elements 1" "" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"t\"\\.\\.\\." "p teststring with elements set to 1"
! gdb_test "set print elements 5" "" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"tests\"\\.\\.\\." "p teststring with elements set to 5"
! gdb_test "set print elements 19" "" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 19"
! gdb_test "set print elements 20" "" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 20"
! gdb_test "set print elements 8" "" ""
gdb_test "p &ctable1\[0\]" \
" = \\(unsigned char \\*\\) \"\""
--- 451,473 ----
# Test that setting print elements unlimited doesn't completely suppress
# printing; this was a bug in older gdb's.
! gdb_test "set print elements 0" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 0"
! gdb_test "set print elements 1" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"t\"\\.\\.\\." "p teststring with elements set to 1"
! gdb_test "set print elements 5" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"tests\"\\.\\.\\." "p teststring with elements set to 5"
! gdb_test "set print elements 19" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 19"
! gdb_test "set print elements 20" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\"" "p teststring with elements set to 20"
! gdb_test "set print elements 8" ""
gdb_test "p &ctable1\[0\]" \
" = \\(unsigned char \\*\\) \"\""
***************
*** 540,546 ****
proc test_print_int_arrays {} {
global gdb_prompt
! gdb_test "set print elements 24" "" ""
gdb_test "p int1dim" \
" = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}"
--- 540,546 ----
proc test_print_int_arrays {} {
global gdb_prompt
! gdb_test "set print elements 24" ""
gdb_test "p int1dim" \
" = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}"
***************
*** 566,573 ****
global gdb_prompt
global hex
! gdb_test "set print elements 24" "" ""
! gdb_test "set print address on" "" ""
gdb_test "p arrays" \
" = {array1 = \"abc\", array2 = \"d\", array3 = \"e\", array4 = \"fg\", array5 = \"hij\"}"
--- 566,573 ----
global gdb_prompt
global hex
! gdb_test "set print elements 24" ""
! gdb_test "set print address on" ""
gdb_test "p arrays" \
" = {array1 = \"abc\", array2 = \"d\", array3 = \"e\", array4 = \"fg\", array5 = \"hij\"}"
***************
*** 584,596 ****
gdb_test "p parrays->array5" " = \"hij\""
gdb_test "p &parrays->array5" " = \\(unsigned char \\(\\*\\)\\\[4\\\]\\) $hex"
! gdb_test "set print address off" "" ""
}
proc test_print_string_constants {} {
global gdb_prompt
! gdb_test "set print elements 50" "" ""
if [target_info exists gdb,cannot_call_functions] {
setup_xfail "*-*-*" 2416
--- 584,596 ----
gdb_test "p parrays->array5" " = \"hij\""
gdb_test "p &parrays->array5" " = \\(unsigned char \\(\\*\\)\\\[4\\\]\\) $hex"
! gdb_test "set print address off" ""
}
proc test_print_string_constants {} {
global gdb_prompt
! gdb_test "set print elements 50" ""
if [target_info exists gdb,cannot_call_functions] {
setup_xfail "*-*-*" 2416
***************
*** 677,683 ****
gdb_load ${binfile}
gdb_test "set print sevenbit-strings" ""
! gdb_test "set print address off" "" ""
gdb_test "set width 0" ""
if [set_lang_c] then {
--- 677,683 ----
gdb_load ${binfile}
gdb_test "set print sevenbit-strings" ""
! gdb_test "set print address off" ""
gdb_test "set width 0" ""
if [set_lang_c] then {
Index: gdb/testsuite/gdb.base/ptype.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/ptype.exp gdb/testsuite/gdb.base/ptype.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/ptype.exp
*** gdb/testsuite/gdb.base/ptype.exp
--- gdb/testsuite/gdb.base/ptype.exp Wed Jul 21 18:09:01 1999
***************
*** 129,135 ****
# as (51) doesn't have a name. Only 55 has a name.
if {!$gcc_compiled && !$hp_aCC_compiler} {
! setup_xfail "rs6000-*-*" "i*86-*-sysv4*" "hppa*-*-*" # CLLbs14773
}
get_debug_format
setup_xfail_format "DWARF 1"
--- 129,135 ----
# as (51) doesn't have a name. Only 55 has a name.
if {!$gcc_compiled && !$hp_aCC_compiler} {
! setup_xfail "rs6000-*-*" "i*86-*-sysv4*" "hppa*-*-*" CLLbs14773
}
get_debug_format
setup_xfail_format "DWARF 1"
Index: gdb/testsuite/gdb.base/scope.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/scope.exp gdb/testsuite/gdb.base/scope.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/scope.exp
*** gdb/testsuite/gdb.base/scope.exp
--- gdb/testsuite/gdb.base/scope.exp Wed Jul 21 17:10:09 1999
***************
*** 112,119 ****
# Print scope1.c::filelocal, which is 2
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! #DTS 11747CLLbs
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*"}
if [gdb_test "print 'scope1.c'::filelocal" "\\\$$decimal = 2" "print 'scope1.c'::filelocal" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal"] {
gdb_suppress_tests ;
}
--- 112,118 ----
# Print scope1.c::filelocal, which is 2
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*" 11747CLLbs}
if [gdb_test "print 'scope1.c'::filelocal" "\\\$$decimal = 2" "print 'scope1.c'::filelocal" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal"] {
gdb_suppress_tests ;
}
***************
*** 122,129 ****
# Print scope1.c::filelocal_bss, which is 102
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! #DTS 11747CLLbs
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*"}
if [gdb_test "print 'scope1.c'::filelocal_bss" "\\\$$decimal = 102" "print 'scope1.c'::filelocal_bss" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal_bss"] {
gdb_suppress_tests ;
}
--- 121,127 ----
# Print scope1.c::filelocal_bss, which is 102
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*" 11747CLLbs}
if [gdb_test "print 'scope1.c'::filelocal_bss" "\\\$$decimal = 102" "print 'scope1.c'::filelocal_bss" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal_bss"] {
gdb_suppress_tests ;
}
***************
*** 132,139 ****
# Print scope1.c::filelocal_ro, which is 202
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! #DTS 11747CLLbs
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*"}
if [gdb_test "print 'scope1.c'::filelocal_ro" "\\\$$decimal = 202" "print 'scope1.c'::filelocal_ro" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal_ro"] {
gdb_suppress_tests ;
}
--- 130,136 ----
# Print scope1.c::filelocal_ro, which is 202
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
! if {$hp_cc_compiler} then { setup_xfail "hppa2.0w-*-*" 11747CLLbs}
if [gdb_test "print 'scope1.c'::filelocal_ro" "\\\$$decimal = 202" "print 'scope1.c'::filelocal_ro" "No symbol \"scope1.c\" in current context.*" "print '$srcdir/$subdir/scope1.c'::filelocal_ro"] {
gdb_suppress_tests ;
}
Index: gdb/testsuite/gdb.base/setvar.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/setvar.exp gdb/testsuite/gdb.base/setvar.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/setvar.exp
*** gdb/testsuite/gdb.base/setvar.exp
--- gdb/testsuite/gdb.base/setvar.exp Wed Jul 21 17:10:17 1999
***************
*** 330,340 ****
gdb_test "set variable *(v_unsigned_short_pointer)=123" ""
gdb_test "set variable *(v_unsigned_short_pointer+1)=-456" ""
# DTS 10060CLLbs - bad type info from cc
! if {$hp_cc_compiler} {setup_xfail hppa*-*-*11*}
gdb_test "print v_unsigned_short_array" ".\[0-9\]* =.*\{123,.*65080\}" \
"set variable unsigned short pointer"
# DTS 10060CLLbs - bad type info from cc
! if {$hp_cc_compiler} {setup_xfail hppa*-*-*11*}
gdb_test "print *(v_unsigned_short_pointer+1)" ".\[0-9\]* = 65080"
#
# test "set variable" for type "int *"
--- 330,340 ----
gdb_test "set variable *(v_unsigned_short_pointer)=123" ""
gdb_test "set variable *(v_unsigned_short_pointer+1)=-456" ""
# DTS 10060CLLbs - bad type info from cc
! if {$hp_cc_compiler} {setup_xfail hppa*-*-*11* 10060CLLbs}
gdb_test "print v_unsigned_short_array" ".\[0-9\]* =.*\{123,.*65080\}" \
"set variable unsigned short pointer"
# DTS 10060CLLbs - bad type info from cc
! if {$hp_cc_compiler} {setup_xfail hppa*-*-*11* 10060CLLbs}
gdb_test "print *(v_unsigned_short_pointer+1)" ".\[0-9\]* = 65080"
#
# test "set variable" for type "int *"
Index: gdb/testsuite/gdb.base/structs.c
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/structs.c gdb/testsuite/gdb.base/structs.c@@/GDB_1999_07_19 gdb/testsuite/gdb.base/structs.c
*** gdb/testsuite/gdb.base/structs.c
--- gdb/testsuite/gdb.base/structs.c Wed Jul 21 18:09:05 1999
***************
*** 102,169 ****
--- 102,221 ----
return foo16;
}
+ #ifdef PROTOTYPES
+ void Fun1(struct struct1 foo1)
+ #else
void Fun1(foo1)
struct struct1 foo1;
+ #endif
{
L1 = foo1;
}
+ #ifdef PROTOTYPES
+ void Fun2(struct struct2 foo2)
+ #else
void Fun2(foo2)
struct struct2 foo2;
+ #endif
{
L2 = foo2;
}
+ #ifdef PROTOTYPES
+ void Fun3(struct struct3 foo3)
+ #else
void Fun3(foo3)
struct struct3 foo3;
+ #endif
{
L3 = foo3;
}
+ #ifdef PROTOTYPES
+ void Fun4(struct struct4 foo4)
+ #else
void Fun4(foo4)
struct struct4 foo4;
+ #endif
{
L4 = foo4;
}
+ #ifdef PROTOTYPES
+ void Fun5(struct struct5 foo5)
+ #else
void Fun5(foo5)
struct struct5 foo5;
+ #endif
{
L5 = foo5;
}
+ #ifdef PROTOTYPES
+ void Fun6(struct struct6 foo6)
+ #else
void Fun6(foo6)
struct struct6 foo6;
+ #endif
{
L6 = foo6;
}
+ #ifdef PROTOTYPES
+ void Fun7(struct struct7 foo7)
+ #else
void Fun7(foo7)
struct struct7 foo7;
+ #endif
{
L7 = foo7;
}
+ #ifdef PROTOTYPES
+ void Fun8(struct struct8 foo8)
+ #else
void Fun8(foo8)
struct struct8 foo8;
+ #endif
{
L8 = foo8;
}
+ #ifdef PROTOTYPES
+ void Fun9(struct struct9 foo9)
+ #else
void Fun9(foo9)
struct struct9 foo9;
+ #endif
{
L9 = foo9;
}
+ #ifdef PROTOTYPES
+ void Fun10(struct struct10 foo10)
+ #else
void Fun10(foo10)
struct struct10 foo10;
+ #endif
{
L10 = foo10;
}
+ #ifdef PROTOTYPES
+ void Fun11(struct struct11 foo11)
+ #else
void Fun11(foo11)
struct struct11 foo11;
+ #endif
{
L11 = foo11;
}
+ #ifdef PROTOTYPES
+ void Fun12(struct struct12 foo12)
+ #else
void Fun12(foo12)
struct struct12 foo12;
+ #endif
{
L12 = foo12;
}
+ #ifdef PROTOTYPES
+ void Fun16(struct struct16 foo16)
+ #else
void Fun16(foo16)
struct struct16 foo16;
+ #endif
{
L16 = foo16;
}
Index: gdb/testsuite/gdb.base/structs.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/structs.exp gdb/testsuite/gdb.base/structs.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/structs.exp
*** gdb/testsuite/gdb.base/structs.exp
--- gdb/testsuite/gdb.base/structs.exp Wed Jul 21 18:09:07 1999
***************
*** 127,135 ****
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
! gdb_test "set print sevenbit-strings" "" ""
! gdb_test "set print address off" "" ""
! gdb_test "set width 0" "" ""
if [target_info exists gdb,cannot_call_functions] {
setup_xfail "*-*-*" 2416
--- 127,135 ----
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
! gdb_test "set print sevenbit-strings" ""
! gdb_test "set print address off" ""
! gdb_test "set width 0" ""
if [target_info exists gdb,cannot_call_functions] {
setup_xfail "*-*-*" 2416
Index: gdb/testsuite/gdb.base/structs2.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/structs2.exp gdb/testsuite/gdb.base/structs2.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/structs2.exp
*** gdb/testsuite/gdb.base/structs2.exp
--- gdb/testsuite/gdb.base/structs2.exp Wed Jul 21 17:10:47 1999
***************
*** 45,51 ****
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
! gdb_test "set width 0" "" ""
if { ![runto_main] } then {
gdb_suppress_tests
--- 45,51 ----
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
! gdb_test "set width 0" ""
if { ![runto_main] } then {
gdb_suppress_tests
Index: gdb/testsuite/gdb.base/watchpoint.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/watchpoint.exp gdb/testsuite/gdb.base/watchpoint.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/watchpoint.exp
*** gdb/testsuite/gdb.base/watchpoint.exp
--- gdb/testsuite/gdb.base/watchpoint.exp Wed Jul 21 17:10:55 1999
***************
*** 79,87 ****
# ??rehrauer: To fix DTS #CHFts23014, in which setting a watchpoint
! # before running can cause the inferior to croak on HP-UX 10.30 and
! # 11.0 for reasons as yet unknown, we've disabled the ability to set
! # watches without a running inferior. Verify the restriction.
#
send_gdb "watch ival3\n"
gdb_expect {
--- 79,87 ----
# ??rehrauer: To fix DTS #CHFts23014, in which setting a watchpoint
! # before running can cause the inferior to croak on HP-UX 11.0 for
! # reasons yet unknown, we've disabled the ability to set watches
! # without a running inferior. Verify the restriction.
#
send_gdb "watch ival3\n"
gdb_expect {
***************
*** 157,164 ****
if { !$wp_set } {
# ??rehrauer: To fix DTS #CHFts23014, in which setting a watchpoint
! # before running can cause the inferior to croak on HP-UX 10.30 and
! # 11.0 for reasons as yet unknown, we've disabled the ability to set
# watches without a running inferior. The following testpoints used
# to be in [initialize].
#
--- 157,164 ----
if { !$wp_set } {
# ??rehrauer: To fix DTS #CHFts23014, in which setting a watchpoint
! # before running can cause the inferior to croak on HP-UX 11.0
! # for reasons yet unknown, we've disabled the ability to set
# watches without a running inferior. The following testpoints used
# to be in [initialize].
#
Index: gdb/testsuite/gdb.base/whatis.exp
/opt/gnu/bin/diff -c -N -L gdb/testsuite/gdb.base/whatis.exp gdb/testsuite/gdb.base/whatis.exp@@/GDB_1999_07_19 gdb/testsuite/gdb.base/whatis.exp
*** gdb/testsuite/gdb.base/whatis.exp
--- gdb/testsuite/gdb.base/whatis.exp Wed Jul 21 18:09:08 1999
***************
*** 301,311 ****
"whatis unnamed union"
! if { [istarget "hppa*-hp-hpux10.20"] && $hp_aCC_compiler } {
! # On HP-UX 10.20 with aCC compiler and objdebug mode,
! # we need the 'void' pattern; without objdebug mode,
! # we still need to '' pattern.
! # FIXME: need to look into this further.
# - guo
set void "(void|)"
} else {
--- 301,310 ----
"whatis unnamed union"
! if { [istarget "hppa*-hp-hpux*"] && $hp_aCC_compiler } {
! # HP-UX: HP aCC compiler w/ +objdebug option detects language as
! # c++, so we need the 'void' pattern here.
! # Without +objdebug compilation option we still need to match ''.
# - guo
set void "(void|)"
} else {