diff options
Diffstat (limited to 'gdb/testsuite/gdb.hp/so-thresh.exp')
| -rw-r--r-- | gdb/testsuite/gdb.hp/so-thresh.exp | 362 |
1 files changed, 362 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.hp/so-thresh.exp b/gdb/testsuite/gdb.hp/so-thresh.exp new file mode 100644 index 00000000000..1977e92a7d9 --- /dev/null +++ b/gdb/testsuite/gdb.hp/so-thresh.exp @@ -0,0 +1,362 @@ +# Copyright (C) 1997, 1998 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +if $tracelevel then { + strace $tracelevel + } + +set prms_id 0 +set bug_id 0 + +# are we on a target board +if ![isnative] then { + return +} + +set testfile "so-thresh" +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +if [get_compiler_info ${binfile}] { + return -1 +} + +# This testcase is automatically generated, via the +# gen-so-thresh program, which also should +# live in this same directory. +# +# The generator produces: +# - so-thresh.c +# - 3 .c files named libXX-so-thresh.c +# - a makefile named so-thresh.mk with a +# target named "so-thresh" that will compile +# and link the testcase +# +# Making with so-thresh.mk produces: +# - so-thresh +# - 3 shared libraries that are linked against, named +# libXX-so-thresh.sl +# +# We build gen-so-thresh, run it, and then make with +# the makefile it produces. +# +set genfile gen_${testfile} +set gen_srcfile ${genfile}.c +set gen_binfile ${genfile} +set gen_makefile ${testfile}.mk + +# This testcase is relatively large, and therefore can take awhile to +# load. We'd best set the timeout to something suitable, or we may +# seem to fail... +# +set timeout 60 + +# It's easiest to build and run the testcase in this directory. (Linking +# against shlibs puts relative paths to them in the a.out, so it's best +# if we remain in this directory for the entire test run.) +# +#cd gdb.base + +# Ensure that the testcase is built. This may cause the generator to +# be built & run. +# +# Warning! The final link of this testcase is not for the +# faint-hearted nor under-disked machine! +# +# ??rehrauer: I tried for a very long time to get make invoked +# directly here, rather than invoking a script to do it. I +# finally gave up in frustration; I'm not sure why it wouldn't +# work that way, but this method DOES work, albeit clumsily. +# + +send_user "Making with ${testfile}.mk ...\n" +# remote_exec build "sh -c \\\"cd ${objdir}/${subdir}\\; make -v -f ${srcdir}/${subdir}/${testfile}.mk clean require_shlibs all SRCDIR=${srcdir}/${subdir} OBJDIR=${objdir}/${subdir}\\\"" +remote_exec build "sh -c \\\"cd ${objdir}/${subdir}\\; make -v -f ${srcdir}/${subdir}/${testfile}.mk clean require_shlibs all SRCDIR=${srcdir}/${subdir} OBJDIR=${objdir}/${subdir}\\\"" + +# Only HP-UX (and any other platforms using SOM shared libraries, I +# guess) interprets the auto-solib-add variable as a threshhold, +# rather than a boolean that strictly enables or disables automatic +# loading of shlib symbol tables. +# +# On HP-UX, it is the size threshhold (in megabytes) at which to +# stop auto loading of symbol tables. +# +if ![istarget "hppa*-hp-hpux*"] then { + setup_xfail "*-*-*" +} + +# Start with a fresh gdb +# +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +# This is a test of gdb's ability on HP-UX to stop automatically +# loading symbols of shared libraries, when the total size of the +# debugger's symbol table reaches a specified threshhold. +# + +# On HP-UX, the help text for auto-solib-add mentions that it +# serves as a threshhold. +# +send_gdb "help set auto-solib-add\n" +gdb_expect { + -re "Set autoloading size threshold .in megabytes. of shared library symbols.* +If nonzero, symbols from all shared object libraries will be loaded.* +automatically when the inferior begins execution or when the dynamic linker.* +informs gdb that a new library has been loaded, until the symbol table.* +of the program and libraries exceeds this threshold.* +Otherwise, symbols must be loaded manually, using `sharedlibrary'.*$gdb_prompt $"\ + {pass "help set auto-solib-add"} + -re "$gdb_prompt $"\ + {fail "help set auto-solib-add"} + timeout {fail "(timeout) help set auto-solib-add"} +} + +# On HP-UX, the threshhold is by default set to 50, which means +# 50 megabytes. +# +send_gdb "show auto-solib-add\n" +gdb_expect { + -re "Autoloading size threshold .in megabytes. of shared library symbols is 100.*$gdb_prompt $"\ + {pass "show auto-solib-add (default is 100)"} + -re "$gdb_prompt $"\ + {fail "show auto-solib-add (default is 100)"} + timeout {fail "(timeout) show auto-solib-add (default is 100)"} +} + +send_gdb "set auto-solib-add 1\n" +gdb_expect { + -re ".*$gdb_prompt $" + {pass "set auto-solib-add to 1"} + -re ".*$gdb_prompt $" + {fail "set auto-solib-add to 1"} + timeout {fail "(timeout) set auto-solib-add to 1"} +} + + +# We have manually verified that our testcase exceeds 1 Mbytes +# of heap space in GDB to hold the symbols for the main program +# and all associated linked-against libraries. Thus, when we +# run to the program's main, and therefore notice all the linked- +# against shlibs, we expect to hit the threshhold. +# +# (Note that we're not using the expect [runto main] function here, +# 'cause we want to match on output from the run command. +# +send_gdb "break main\n" +gdb_expect { + -re "Breakpoint \[0-9\]* at.*$gdb_prompt $"\ + {pass "set break at main"} + -re "$gdb_prompt $"\ + {fail "set break at main"} + timeout {fail "(timeout) set break at main"} +} + +send_gdb "run\n" +gdb_expect { + -re ".*warning. Symbols for some libraries have not been loaded, because.* +doing so would exceed the size threshold specified by auto-solib-add.* +To manually load symbols, use the 'sharedlibrary' command.* +To raise the threshold, set auto-solib-add to a larger value and rerun.* +the program.*$gdb_prompt $"\ + {pass "run to main hit auto-solib-add threshold"} + -re "$gdb_prompt $"\ + {fail "run to main hit auto-solib-add threshold"} + timeout {fail "(timeout) run to main hit auto-solib-add threshold"} +} + +# Verify that "info share" mentions something about libraries whose +# symbols weren't loaded. +# +# We'll assume that at least the last two shlib's symbols weren't +# loaded. As a side-effect of matching this pattern, the text start +# address of the last one is captured in expect_out(1,string). +# (we'll need it for the 'add-symbol-file' command in a nonce...) +# +send_gdb "info sharedlibrary\n" +gdb_expect { + -re ".*lib01_$testfile.sl .*symbols not loaded.*0x\[0-9\]* (0x\[0-9a-fA-F\]*).*$gdb_prompt $"\ + { send_gdb "add-symbol-file lib02_$testfile.sl $expect_out(1,string)\n" + gdb_expect { + -re "add symbol table.*y or n.*$"\ + {send_gdb "y\n" + gdb_expect { + -re "$gdb_prompt $" {pass "add-symbol-file and info sharedlib"} + timeout {fail "(timeout) add-symbol-file and info sharedlib"} + }} + -re "$gdb_prompt $"\ + {fail "add-symbol-file and info sharedlib"} + timeout {fail "(timeout) add-symbol-file and info sharedlib"} + } + } + -re "$gdb_prompt $"\ + {fail "info sharedlibrary shows shlibs with unloaded symbols"} + timeout {fail "(timeout) info sharedlibrary shows shlibs with unloaded symbols"} +} + +# Verify that we can manually load the symbol table of a library +# whose symbols weren't loaded. (We'll pick the last one.) +# + +# I moved this test inside the one above, because the expect_out array is not ok if the +# previous test has failed, and expect would error out (elz) +# +#send_gdb "add-symbol-file lib02_$testfile.sl $expect_out(1,string)\n" +#gdb_expect { +# -re "add symbol table.*y or n.*$"\ +# {send_gdb "y\n" +# gdb_expect { +# -re "$gdb_prompt $" {pass "add-symbol-file"} +# timeout {fail "(timeout) add-symbol-file"} +# }} +# -re "$gdb_prompt $"\ +# {fail "add-symbol-file"} +# timeout {fail "(timeout) add-symbol-file"} +#} + +# Verify that we can manually load the symbols for all libraries +# which weren't already loaded. +# +# Warning! On a machine with little free swap space, this may +# fail! +# +send_gdb "sharedlibrary\n" +gdb_expect { + -re "Reading symbols from.*done.*$gdb_prompt $"\ + {pass "sharedlibrary"} + -re "$gdb_prompt $"\ + {fail "sharedlibrary"} + timeout {fail "(timeout) sharedlibrary"} +} + +# Rerun the program, this time verifying that we can set the +# threshhold high enough to avoid hitting it. +# +# It appears that gdb isn't freeing memory when rerunning, as one +# would expect. To avoid potentially hitting a virtual memory +# ceiling, start with a fresh gdb. +# +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +send_gdb "break main\n" +gdb_expect { + -re "Breakpoint \[0-9\]* at.*$gdb_prompt $"\ + {pass "set break at main"} + -re "$gdb_prompt $"\ + {fail "set break at main"} + timeout {fail "(timeout) set break at main"} +} + +send_gdb "set auto-solib-add 9999\n" +gdb_expect { + -re "$gdb_prompt $"\ + {pass "set auto-solib-add threshold to practical infinity"} + timeout {fail "(timeout) set auto-solib-add threshold to practical infinity"} +} +send_gdb "run\n" +gdb_expect { + -re ".*warning. Symbols for some libraries have not been loaded, because.* +doing so would exceed the size threshold specified by auto-solib-add.* +To manually load symbols, use the 'sharedlibrary' command.* +To raise the threshold, set auto-solib-add to a larger value and rerun.* +the program.*$gdb_prompt $"\ + {fail "rerun threshold at practical infinity (still hit threshold)"} + -re "$gdb_prompt $"\ + {pass "rerun with threshold at practical infinity"} + timeout {fail "(timeout) rerun with threshold at practical infinity"} +} + +# Rerun the program, this time altogether disabling the auto loading +# feature. There should be no information at all about shared +# libraries now. +# +# ??rehrauer: Personally, I'd call that a bug, since it doesn't give +# you the ability to manually load single shlibs (you need the text +# start address that 'info share' normall gives you). On the other +# hand, one can easily choose to load them all... +# +# It appears that gdb isn't freeing memory when rerunning, as one +# would expect. To avoid potentially hitting a virtual memory +# ceiling, start with a fresh gdb. +# +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +send_gdb "break main\n" +gdb_expect { + -re "Breakpoint \[0-9\]* at.*$gdb_prompt $"\ + {pass "set break at main"} + -re "$gdb_prompt $"\ + {fail "set break at main"} + timeout {fail "(timeout) set break at main"} +} + +send_gdb "set auto-solib-add 0\n" +gdb_expect { + -re "$gdb_prompt $"\ + {pass "set auto-solib-add threshold to 0"} + timeout {fail "(timeout) set auto-solib-add threshold to 0"} +} +send_gdb "run\n" +gdb_expect { + -re ".*warning. Symbols for some libraries have not been loaded, because.* +doing so would exceed the size threshold specified by auto-solib-add.* +To manually load symbols, use the 'sharedlibrary' command.* +To raise the threshold, set auto-solib-add to a larger value and rerun.* +the program.*$gdb_prompt $"\ + {fail "rerun threshold at 0 (still hit threshold)"} + -re "$gdb_prompt $"\ + {pass "rerun with threshold at 0"} + timeout {fail "(timeout) rerun with threshold at 0"} +} + +# Verify that we can still manually load symbols for all libraries. +# (We'll assume that if the last shlib's symbols are loaded, that +# all of them were.) +# +# Note that we set the GDB "height" variable to prevent GDB from +# prompting +# +# Warning! On a machine with little free swap space, this may +# fail! +# +send_gdb "set height 9999\n" +gdb_expect { + -re "$gdb_prompt $"\ + {pass "set screen page height to practical infinity"} + timeout {fail "(timeout) set screen page height to practical infinity"} +} +send_gdb "sharedlibrary\n" +gdb_expect { + -re ".*Reading symbols from .*/lib02-so-thresh\\.sl\\.\\.\\.done\\..*$gdb_prompt $"\ + {pass "manually load all symbols"} + -re "$gdb_prompt $"\ + {fail "manually load all symbols"} + timeout {fail "(timeout) manually load all symbols"} +} + +#cd .. +return 0 |