From: Stan Shebs Date: Sat, 30 Jan 1999 00:03:21 +0000 (+0000) Subject: * gdb.hp/gen-so-thresh.c, so-thresh.sh, so-thresh.exp, X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a8edbc4de003acc6cebac86c074d01b6969e67ce;p=binutils-gdb.git * gdb.hp/gen-so-thresh.c, so-thresh.sh, so-thresh.exp, so-thresh.linkopts, so-thresh.mk: Move to gdb.hp from gdb.base (shortening names from solib_threshold.exp etc), won't run on anything but HP-UX for the foreseeable future. * gdb.hp/Makefile.in, gdb.base/Makefile.in (clean): Adjust to reflect move. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8a9b1e50471..5647dfec74a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,12 +1,12 @@ -start-sanitize-gdbtk -Fri Jan 29 06:32:16 1999 Keith Seitz +Mon Jan 25 18:35:56 1999 Stan Shebs - * gdb.gdbtk/cpp_variable.test (cpp_variable-1.1): Fix - function name error. + * gdb.hp/gen-so-thresh.c, so-thresh.sh, so-thresh.exp, + so-thresh.linkopts, so-thresh.mk: Move to gdb.hp from gdb.base + (shortening names from solib_threshold.exp etc), won't run on + anything but HP-UX for the foreseeable future. + * gdb.hp/Makefile.in, gdb.base/Makefile.in (clean): Adjust to + reflect move. - * gdb.gdbtk/cpp_variable.h (class VC): Fix compiler warning. - -end-sanitize-gdbtk Thu Jan 21 15:46:49 1999 Stan Shebs * gdb.base/Makefile.in, gdb.c++/Makefile.in, @@ -311,13 +311,6 @@ Mon Jan 4 10:06:43 1999 David Taylor * gdb.hp/xdb0.h: new file. * gdb.hp/xdb1.c: new file. -start-sanitize-gdbtk -Wed Dec 30 08:52:58 1998 Keith Seitz - - * gdb.gdbtk/{console.exp, browser.exp}: If no DISPLAY is set, - skip the tests. - -end-sanitize-gdbtk Mon Dec 21 14:08:38 1998 David Taylor The following change was made by Edith Epstein @@ -382,14 +375,6 @@ Thu Oct 1 20:56:14 1998 Andrew Cagney * lib/gdb.exp, gdb.base/default.exp, config/monitor.exp, gdb.base/default.exp: Replace "exec" with "executable". -start-sanitize-gdbtk -1998-09-29 Keith Seitz - - * gdb.gdbtk/browser.test: Fix tests which incorrectly assume - that gdb knows _exactly_ which files belong to the user - and which come from libraries. - -end-sanitize-gdbtk Tue Sep 29 15:06:29 1998 Andrew Cagney * gdb.base/default.exp: Change else if to elseif from previous @@ -443,15 +428,6 @@ Fri Sep 11 13:58:02 1998 Michael Snyder * gdb.base/setshow.exp: Fix error introduced by call to runto_main. -start-sanitize-gdbtk -Fri Jul 24 14:57:19 1998 Keith Seitz - - * gdb.gdbtk/Makefile.in: Add new example program "stack". - * gdb.gdbtk/browser.test,browser.exp: Add browser window - tests. - * gdb.gdbtk/stack1.c,stack2.c: Test case for browser window. - -end-sanitize-gdbtk start-sanitize-cygnus Fri Jul 24 15:51:34 1998 Jeffrey A Law (law@cygnus.com) @@ -481,25 +457,6 @@ Thurs Jul 9 11:08:31 1998 Dawn Perchik * gdb.base/commands.exp: Break up infrun_breakpoint_command_test into two parts to get around a synchronization problem in expect. -start-sanitize-gdbtk -Sun Jun 28 22:34:34 1998 Martin M. Hunt - - * gdb.gdbtk/simple.c (main): Make main return an - int so compiler will stop complaining. - -Fri Jun 26 14:27:13 1998 Keith Seitz - - * lib/gdb.exp (gdbtk_start): Add startup for gdbtk. - - * configure.in: Add options for gdbtk testsuite. - - * configure: Regenerate. - - * gdb.gdbtk: New directory to hold gdbtk tests. - - * gdb.gdbtk/console.{exp, test}: New console window tests. - -end-sanitize-gdbtk Fri Jun 26 14:52:47 1998 Peter Schauer * gdb.fortran/types.exp: Escape brackets in expect patterns diff --git a/gdb/testsuite/gdb.base/gen_solib_threshold.c b/gdb/testsuite/gdb.base/gen_solib_threshold.c deleted file mode 100644 index d8352f95f08..00000000000 --- a/gdb/testsuite/gdb.base/gen_solib_threshold.c +++ /dev/null @@ -1,229 +0,0 @@ -/* - * Program to generate the auto_solib_add_threshhold testcase, - * including associated linked-against shared libraries. - * Build as: - * - * cc -g -o gen_auto_solib_add_threshhold gen_auto_solib_add_threshhold.c - * - * Invoke as: - * - * gen_auto_solib_add_threshhold - * - * It will put all the code in the current directory ("."). - * - * A makefile can also be generated if the -makemake option is used. - * To use the makefile: - * - * make -f auto_solib_add_threshhold.mk all - * - * The name of the application is - * - * auto_solib_add_threshhold - * - * (Revised from a program by John Bishop. --rehrauer) - */ - -#include -#include -#include - -int main (argc, argv) -int argc; -char **argv; -{ -#define NUMBER_OF_INT_VARS 1500 -#define NUMBER_OF_LIBS 3 - int lib_num = NUMBER_OF_LIBS; - int i; - int i2; - FILE *main_file; - FILE *lib_file; - FILE *make_file; - FILE *link_file; - - char testcase_name [1000]; - char linkfile_name [1000]; - char makefile_name [1000]; - char mainfile_name [1000]; - - char file_name[100]; - /* - * 0123456789 <-- length of field - * "./fil0000000002.c"; <-- typical filename - * 12345678901234567890 <-- length of string - * 10 20 - * ^where null goes - */ - char file_name_core[100]; - - /* Verify input. - */ - if ((argc < 1) || (argc > 2) || (argv == NULL) || - ((argc == 2) && (strcmp (argv[1], "-makemake") != 0))) - { - printf ("** Syntax: %s [-makemake]\n", argv[0]); - return; - } - - if (strncmp (argv[0], "gen_", 4) != 0) - { - printf ("** This tool expected to be named \"gen_something\"\n"); - return; - } - strcpy (testcase_name, argv[0]+4); - - strcpy (linkfile_name, testcase_name); - strcat (linkfile_name, ".link_opts"); - link_file = fopen (linkfile_name, "w"); - fprintf (link_file, "# Linker options for %s test\n", testcase_name); - - /* Generate the makefile, if requested. - */ - if (argc == 2) - { - strcpy (makefile_name, testcase_name); - strcat (makefile_name, ".mk.new"); - make_file = fopen (makefile_name, "w"); - printf (" Note: New makefile (%s) generated.\n", makefile_name); - printf (" May want to update existing makefile, if any.\n"); - fprintf (make_file, "# Generated automatically by %s\n", argv[0]); - fprintf (make_file, "# Make file for %s test\n", testcase_name); - fprintf (make_file, "\n"); - fprintf (make_file, "CFLAGS = +DA1.1 -g\n"); - fprintf (make_file, "\n"); - fprintf (make_file, "# This is how to build this generator.\n"); - fprintf (make_file, "%s.o: %s.c\n", argv[0], argv[0]); - fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s.o -c %s.c\n", argv[0], argv[0]); - fprintf (make_file, "%s: %s.o\n", argv[0], argv[0]); - fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s %s.o\n", argv[0], argv[0]); - fprintf (make_file, "\n"); - fprintf (make_file, "# This is how to run this generator.\n"); - fprintf (make_file, "# This target should be made before the 'all' target,\n"); - fprintf (make_file, "# to ensure that the shlib sources are all available.\n"); - fprintf (make_file, "require_shlibs: %s\n", argv[0]); - for (i=0; i < lib_num; i++) - { - fprintf (make_file, "\tif ! [ -a lib%2.2d_%s.c ] ; then \\\n", i, testcase_name); - fprintf (make_file, "\t %s ; \\\n", argv[0]); - fprintf (make_file, "\tfi\n"); - } - fprintf (make_file, "\n"); - fprintf (make_file, "# This is how to build all the shlibs.\n"); - fprintf (make_file, "# Be sure to first make the require_shlibs target!\n"); - for (i=0; i < lib_num; i++) - { - fprintf (make_file, "lib%2.2d_%s.o: lib%2.2d_%s.c\n", i, testcase_name, i, testcase_name); - fprintf (make_file, "\t$(CC) $(CFLAGS) +Z -o lib%2.2d_%s.o -c lib%2.2d_%s.c\n", i, testcase_name, i, testcase_name); - fprintf (make_file, "lib%2.2d_%s.sl: lib%2.2d_%s.o\n", i, testcase_name, i, testcase_name); - fprintf (make_file, "\t$(LD) $(LDFLAGS) -b -o lib%2.2d_%s.sl lib%2.2d_%s.o\n", i, testcase_name, i, testcase_name); - } - fprintf (make_file, "\n"); -fprintf (make_file, "# For convenience, here's names for all pieces of all shlibs.\n"); - fprintf (make_file, "SHLIB_SOURCES = \\\n"); - for (i=0; i < lib_num-1; i++) - fprintf (make_file, "\tlib%2.2d_%s.c \\\n", i, testcase_name); - fprintf (make_file, "\tlib%2.2d_%s.c\n", lib_num-1, testcase_name); - fprintf (make_file, "SHLIB_OBJECTS = $(SHLIB_SOURCES:.c=.o)\n"); - fprintf (make_file, "SHLIBS = $(SHLIB_SOURCES:.c=.sl)\n"); - fprintf (make_file, "SHLIB_NAMES = $(SHLIB_SOURCES:.c=)\n"); - fprintf (make_file, "EXECUTABLES = $(SHLIBS) %s %s\n", argv[0], testcase_name); - fprintf (make_file, "OBJECT_FILES = $(SHLIB_OBJECTS) %s.o %s.o\n", argv[0], testcase_name); - fprintf (make_file, "\n"); - fprintf (make_file, "shlib_objects: $(SHLIB_OBJECTS)\n"); - fprintf (make_file, "shlibs: $(SHLIBS)\n"); - fprintf (make_file, "\n"); - fprintf (make_file, "# This is how to build the debuggable testcase that uses the shlibs.\n"); - fprintf (make_file, "%s.o: %s.c\n", testcase_name, testcase_name); - fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s.o -c %s.c\n", testcase_name, testcase_name); - fprintf (make_file, "%s: shlibs %s.o\n", testcase_name, testcase_name); - fprintf (make_file, "\t$(LD) $(LDFLAGS) -o %s -lc -L. ", testcase_name); - fprintf (make_file, "-c %s /opt/langtools/lib/end.o /lib/crt0.o %s.o\n", linkfile_name, testcase_name); - fprintf (make_file, "\n"); - fprintf (make_file, "# Yeah, but you should first make the require_shlibs target!\n"); - fprintf (make_file, "all: %s %s\n", testcase_name, argv[0]); - fprintf (make_file, "\n"); - fprintf (make_file, "# To remove everything built via this makefile...\n"); - fprintf (make_file, "clean:\n"); - /* Do this carefully, to avoid hitting silly HP-UX ARG_MAX limits... */ - fprintf (make_file, "\trm -f lib0*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib1*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib2*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib3*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib4*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib5*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib6*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib7*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib8*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f lib9*_%s.*\n", testcase_name); - fprintf (make_file, "\trm -f %s %s %s %s.c\n", argv[0], testcase_name, linkfile_name, testcase_name); - fprintf (make_file, "\n"); - fclose (make_file); - } - - /* Generate the code for the libraries. - */ - for (i=0; i < lib_num; i++) { - - /* Generate the names for the library. - */ - sprintf (file_name, "lib%2.2d_%s.c", i, testcase_name); - sprintf (file_name_core, "lib%2.2d_%s", i, testcase_name); - - /* Generate the source code. - */ - lib_file = fopen (file_name, "w"); - fprintf (lib_file, "/* Shared library file number %d */\n", i); - fprintf (lib_file, "#include \n\n"); - fprintf (lib_file, "/* The following variables largely exist to bloat this library's debug info. */\n"); - fprintf (lib_file, "static char c_static_buf_%d [100];\n", i); - for (i2=0; i2\n\n"); - - for (i = 0; i < lib_num; i++) { - fprintf (main_file, "extern int r_%d();\n", i); - } - - fprintf (main_file, "\n"); - fprintf (main_file, "int main()\n"); - fprintf (main_file, "{\n"); - fprintf (main_file, " int accum;\n"); - fprintf (main_file, " int lib_num = %d;\n", lib_num); - - for (i = 0; i < lib_num; i++) { - fprintf (main_file, " accum += r_%d();\n", i); - } - - fprintf (main_file, " printf( \"Final value: %%d, should be %%d\\n\", accum, lib_num );\n\n"); - fprintf (main_file, " return 0;\n"); - fprintf (main_file, "}\n\n"); - fprintf (main_file, "/* end of generated file */\n"); - fclose (main_file); - - /* Finish up the link file and the build file - */ - fclose (link_file); -} - -/* End of file */ diff --git a/gdb/testsuite/gdb.base/solib_threshold.build b/gdb/testsuite/gdb.base/solib_threshold.build deleted file mode 100755 index e95478df39b..00000000000 --- a/gdb/testsuite/gdb.base/solib_threshold.build +++ /dev/null @@ -1,12 +0,0 @@ -#!/bin/ksh -# -# This script is a "wrapper" to use the auto_solib_add_threshold.mk -# Makefile. See the comments in auto_solib_add_threshold.exp -# regarding why this script exists. -# - -#set -o xtrace -#set -o verbose - -MAKEFLAGS= -make -f solib_threshold.mk require_shlibs all diff --git a/gdb/testsuite/gdb.base/solib_threshold.exp b/gdb/testsuite/gdb.base/solib_threshold.exp deleted file mode 100644 index 33abcfdd1fb..00000000000 --- a/gdb/testsuite/gdb.base/solib_threshold.exp +++ /dev/null @@ -1,361 +0,0 @@ -# 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 "solib_threshold" -set srcfile ${testfile}.c -set binfile ${objdir}/${subdir}/${testfile} - -if [get_compiler_info ${binfile}] { - return -1 -} - -# This testcase is automatically generated, via the -# gen_solib_threshold program, which also should -# live in this same directory. -# -# The generator produces: -# - solib_threshhold.c -# - 3 .c files named solib_threshold_libXX.c -# - a makefile named solib_threshold.mk with a -# target named "solib_threshold" that will compile -# and link the testcase -# -# Making with solib_threshold.mk produces: -# - solib_threshold -# - 3 shared libraries that are linked against, named -# solib_threshhold_libXX.sl -# -# We build gen_solib_threshhold, 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 -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_solib_threshold\\.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 diff --git a/gdb/testsuite/gdb.base/solib_threshold.link_opts b/gdb/testsuite/gdb.base/solib_threshold.link_opts deleted file mode 100644 index bbf874ae562..00000000000 --- a/gdb/testsuite/gdb.base/solib_threshold.link_opts +++ /dev/null @@ -1,4 +0,0 @@ -# Linker options for solib_threshold test --l00_solib_threshold --l01_solib_threshold --l02_solib_threshold diff --git a/gdb/testsuite/gdb.base/solib_threshold.mk b/gdb/testsuite/gdb.base/solib_threshold.mk deleted file mode 100644 index 83a6956cf41..00000000000 --- a/gdb/testsuite/gdb.base/solib_threshold.mk +++ /dev/null @@ -1,73 +0,0 @@ -# Make file for solib_threshold test - -OBJDIR=. -SRCDIR=. -CFLAGS = +DA1.1 -g - -# This is how to build this generator. -gen_solib_threshold.o: ${SRCDIR}/gen_solib_threshold.c - $(CC) $(CFLAGS) -o gen_solib_threshold.o -c ${SRCDIR}/gen_solib_threshold.c -gen_solib_threshold: gen_solib_threshold.o - $(CC) $(CFLAGS) -o gen_solib_threshold gen_solib_threshold.o - -# This is how to run this generator. -# This target should be made before the 'all' target, -# to ensure that the shlib sources are all available. -require_shlibs: gen_solib_threshold - if ! [ -a lib00_solib_threshold.c ] ; then \ - gen_solib_threshold ; \ - fi - if ! [ -a lib01_solib_threshold.c ] ; then \ - gen_solib_threshold ; \ - fi - if ! [ -a lib02_solib_threshold.c ] ; then \ - gen_solib_threshold ; \ - fi - -# This is how to build all the shlibs. -# Be sure to first make the require_shlibs target! -lib00_solib_threshold.o: lib00_solib_threshold.c - $(CC) $(CFLAGS) +Z -o lib00_solib_threshold.o -c lib00_solib_threshold.c -lib00_solib_threshold.sl: lib00_solib_threshold.o - $(LD) $(LDFLAGS) -b -o lib00_solib_threshold.sl lib00_solib_threshold.o -lib01_solib_threshold.o: lib01_solib_threshold.c - $(CC) $(CFLAGS) +Z -o lib01_solib_threshold.o -c lib01_solib_threshold.c -lib01_solib_threshold.sl: lib01_solib_threshold.o - $(LD) $(LDFLAGS) -b -o lib01_solib_threshold.sl lib01_solib_threshold.o -lib02_solib_threshold.o: lib02_solib_threshold.c - $(CC) $(CFLAGS) +Z -o lib02_solib_threshold.o -c lib02_solib_threshold.c -lib02_solib_threshold.sl: lib02_solib_threshold.o - $(LD) $(LDFLAGS) -b -o lib02_solib_threshold.sl lib02_solib_threshold.o - - - - -# For convenience, here's names for all pieces of all shlibs. -SHLIB_SOURCES = \ - lib00_solib_threshold.c \ - lib01_solib_threshold.c \ - lib02_solib_threshold.c - -SHLIB_OBJECTS = $(SHLIB_SOURCES:.c=.o) -SHLIBS = $(SHLIB_SOURCES:.c=.sl) -SHLIB_NAMES = $(SHLIB_SOURCES:.c=) -EXECUTABLES = $(SHLIBS) gen_solib_threshold solib_threshold -OBJECT_FILES = $(SHLIB_OBJECTS) gen_solib_threshold.o solib_threshold.o - -shlib_objects: $(SHLIB_OBJECTS) -shlibs: $(SHLIBS) - -# This is how to build the debuggable testcase that uses the shlibs. -solib_threshold.o: solib_threshold.c - $(CC) $(CFLAGS) -o solib_threshold.o -c solib_threshold.c -solib_threshold: shlibs solib_threshold.o - $(LD) $(LDFLAGS) -o solib_threshold -lc -L${OBJDIR} -c solib_threshold.link_opts /opt/langtools/lib/end.o /lib/crt0.o solib_threshold.o - -# Yeah, but you should first make the require_shlibs target! -all: solib_threshold gen_solib_threshold - -# To remove everything built via this makefile... -clean: - rm -f lib0*_solib_threshold.* - rm -f *.o gen_solib_threshold solib_threshold.link_opts solib_threshold.c - rm -f solib_threshold diff --git a/gdb/testsuite/gdb.hp/gen-so-thresh.c b/gdb/testsuite/gdb.hp/gen-so-thresh.c new file mode 100644 index 00000000000..c1a3eb580c5 --- /dev/null +++ b/gdb/testsuite/gdb.hp/gen-so-thresh.c @@ -0,0 +1,229 @@ +/* + * Program to generate the so-thresh testcase, + * including associated linked-against shared libraries. + * Build as: + * + * cc -g -o gen-so-thresh gen-so-thresh.c + * + * Invoke as: + * + * gen-so-thresh + * + * It will put all the code in the current directory ("."). + * + * A makefile can also be generated if the -makemake option is used. + * To use the makefile: + * + * make -f so-thresh.mk all + * + * The name of the application is + * + * so-thresh + * + * (Revised from a program by John Bishop. --rehrauer) + */ + +#include +#include +#include + +int main (argc, argv) +int argc; +char **argv; +{ +#define NUMBER_OF_INT_VARS 1500 +#define NUMBER_OF_LIBS 3 + int lib_num = NUMBER_OF_LIBS; + int i; + int i2; + FILE *main_file; + FILE *lib_file; + FILE *make_file; + FILE *link_file; + + char testcase_name [1000]; + char linkfile_name [1000]; + char makefile_name [1000]; + char mainfile_name [1000]; + + char file_name[100]; + /* + * 0123456789 <-- length of field + * "./fil0000000002.c"; <-- typical filename + * 12345678901234567890 <-- length of string + * 10 20 + * ^where null goes + */ + char file_name_core[100]; + + /* Verify input. + */ + if ((argc < 1) || (argc > 2) || (argv == NULL) || + ((argc == 2) && (strcmp (argv[1], "-makemake") != 0))) + { + printf ("** Syntax: %s [-makemake]\n", argv[0]); + return; + } + + if (strncmp (argv[0], "gen-", 4) != 0) + { + printf ("** This tool expected to be named \"gen-something\"\n"); + return; + } + strcpy (testcase_name, argv[0]+4); + + strcpy (linkfile_name, testcase_name); + strcat (linkfile_name, ".linkopts"); + link_file = fopen (linkfile_name, "w"); + fprintf (link_file, "# Linker options for %s test\n", testcase_name); + + /* Generate the makefile, if requested. + */ + if (argc == 2) + { + strcpy (makefile_name, testcase_name); + strcat (makefile_name, ".mk.new"); + make_file = fopen (makefile_name, "w"); + printf (" Note: New makefile (%s) generated.\n", makefile_name); + printf (" May want to update existing makefile, if any.\n"); + fprintf (make_file, "# Generated automatically by %s\n", argv[0]); + fprintf (make_file, "# Make file for %s test\n", testcase_name); + fprintf (make_file, "\n"); + fprintf (make_file, "CFLAGS = +DA1.1 -g\n"); + fprintf (make_file, "\n"); + fprintf (make_file, "# This is how to build this generator.\n"); + fprintf (make_file, "%s.o: %s.c\n", argv[0], argv[0]); + fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s.o -c %s.c\n", argv[0], argv[0]); + fprintf (make_file, "%s: %s.o\n", argv[0], argv[0]); + fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s %s.o\n", argv[0], argv[0]); + fprintf (make_file, "\n"); + fprintf (make_file, "# This is how to run this generator.\n"); + fprintf (make_file, "# This target should be made before the 'all' target,\n"); + fprintf (make_file, "# to ensure that the shlib sources are all available.\n"); + fprintf (make_file, "require_shlibs: %s\n", argv[0]); + for (i=0; i < lib_num; i++) + { + fprintf (make_file, "\tif ! [ -a lib%2.2d_%s.c ] ; then \\\n", i, testcase_name); + fprintf (make_file, "\t %s ; \\\n", argv[0]); + fprintf (make_file, "\tfi\n"); + } + fprintf (make_file, "\n"); + fprintf (make_file, "# This is how to build all the shlibs.\n"); + fprintf (make_file, "# Be sure to first make the require_shlibs target!\n"); + for (i=0; i < lib_num; i++) + { + fprintf (make_file, "lib%2.2d_%s.o: lib%2.2d_%s.c\n", i, testcase_name, i, testcase_name); + fprintf (make_file, "\t$(CC) $(CFLAGS) +Z -o lib%2.2d_%s.o -c lib%2.2d_%s.c\n", i, testcase_name, i, testcase_name); + fprintf (make_file, "lib%2.2d-%s.sl: lib%2.2d-%s.o\n", i, testcase_name, i, testcase_name); + fprintf (make_file, "\t$(LD) $(LDFLAGS) -b -o lib%2.2d-%s.sl lib%2.2d-%s.o\n", i, testcase_name, i, testcase_name); + } + fprintf (make_file, "\n"); +fprintf (make_file, "# For convenience, here's names for all pieces of all shlibs.\n"); + fprintf (make_file, "SHLIB_SOURCES = \\\n"); + for (i=0; i < lib_num-1; i++) + fprintf (make_file, "\tlib%2.2d-%s.c \\\n", i, testcase_name); + fprintf (make_file, "\tlib%2.2d-%s.c\n", lib_num-1, testcase_name); + fprintf (make_file, "SHLIB_OBJECTS = $(SHLIB_SOURCES:.c=.o)\n"); + fprintf (make_file, "SHLIBS = $(SHLIB_SOURCES:.c=.sl)\n"); + fprintf (make_file, "SHLIB_NAMES = $(SHLIB_SOURCES:.c=)\n"); + fprintf (make_file, "EXECUTABLES = $(SHLIBS) %s %s\n", argv[0], testcase_name); + fprintf (make_file, "OBJECT_FILES = $(SHLIB_OBJECTS) %s.o %s.o\n", argv[0], testcase_name); + fprintf (make_file, "\n"); + fprintf (make_file, "shlib_objects: $(SHLIB_OBJECTS)\n"); + fprintf (make_file, "shlibs: $(SHLIBS)\n"); + fprintf (make_file, "\n"); + fprintf (make_file, "# This is how to build the debuggable testcase that uses the shlibs.\n"); + fprintf (make_file, "%s.o: %s.c\n", testcase_name, testcase_name); + fprintf (make_file, "\t$(CC) $(CFLAGS) -o %s.o -c %s.c\n", testcase_name, testcase_name); + fprintf (make_file, "%s: shlibs %s.o\n", testcase_name, testcase_name); + fprintf (make_file, "\t$(LD) $(LDFLAGS) -o %s -lc -L. ", testcase_name); + fprintf (make_file, "-c %s /opt/langtools/lib/end.o /lib/crt0.o %s.o\n", linkfile_name, testcase_name); + fprintf (make_file, "\n"); + fprintf (make_file, "# Yeah, but you should first make the require_shlibs target!\n"); + fprintf (make_file, "all: %s %s\n", testcase_name, argv[0]); + fprintf (make_file, "\n"); + fprintf (make_file, "# To remove everything built via this makefile...\n"); + fprintf (make_file, "clean:\n"); + /* Do this carefully, to avoid hitting silly HP-UX ARG_MAX limits... */ + fprintf (make_file, "\trm -f lib0*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib1*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib2*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib3*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib4*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib5*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib6*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib7*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib8*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f lib9*-%s.*\n", testcase_name); + fprintf (make_file, "\trm -f %s %s %s %s.c\n", argv[0], testcase_name, linkfile_name, testcase_name); + fprintf (make_file, "\n"); + fclose (make_file); + } + + /* Generate the code for the libraries. + */ + for (i=0; i < lib_num; i++) { + + /* Generate the names for the library. + */ + sprintf (file_name, "lib%2.2d-%s.c", i, testcase_name); + sprintf (file_name_core, "lib%2.2d-%s", i, testcase_name); + + /* Generate the source code. + */ + lib_file = fopen (file_name, "w"); + fprintf (lib_file, "/* Shared library file number %d */\n", i); + fprintf (lib_file, "#include \n\n"); + fprintf (lib_file, "/* The following variables largely exist to bloat this library's debug info. */\n"); + fprintf (lib_file, "static char c_static_buf_%d [100];\n", i); + for (i2=0; i2\n\n"); + + for (i = 0; i < lib_num; i++) { + fprintf (main_file, "extern int r_%d();\n", i); + } + + fprintf (main_file, "\n"); + fprintf (main_file, "int main()\n"); + fprintf (main_file, "{\n"); + fprintf (main_file, " int accum;\n"); + fprintf (main_file, " int lib_num = %d;\n", lib_num); + + for (i = 0; i < lib_num; i++) { + fprintf (main_file, " accum += r_%d();\n", i); + } + + fprintf (main_file, " printf( \"Final value: %%d, should be %%d\\n\", accum, lib_num );\n\n"); + fprintf (main_file, " return 0;\n"); + fprintf (main_file, "}\n\n"); + fprintf (main_file, "/* end of generated file */\n"); + fclose (main_file); + + /* Finish up the link file and the build file + */ + fclose (link_file); +} + +/* End of file */ 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 diff --git a/gdb/testsuite/gdb.hp/so-thresh.linkopts b/gdb/testsuite/gdb.hp/so-thresh.linkopts new file mode 100644 index 00000000000..547b4ebb1fe --- /dev/null +++ b/gdb/testsuite/gdb.hp/so-thresh.linkopts @@ -0,0 +1,5 @@ +# Linker options for so-thresh test +-l00-so-thresh +-l01-so-thresh +-l02-so-thresh + diff --git a/gdb/testsuite/gdb.hp/so-thresh.mk b/gdb/testsuite/gdb.hp/so-thresh.mk new file mode 100644 index 00000000000..343185cbe86 --- /dev/null +++ b/gdb/testsuite/gdb.hp/so-thresh.mk @@ -0,0 +1,73 @@ +# Make file for so-thresh test + +OBJDIR=. +SRCDIR=. +CFLAGS = +DA1.1 -g + +# This is how to build this generator. +gen-so-thresh.o: ${SRCDIR}/gen-so-thresh.c + $(CC) $(CFLAGS) -o gen-so-thresh.o -c ${SRCDIR}/gen-so-thresh.c +gen-so-thresh: gen-so-thresh.o + $(CC) $(CFLAGS) -o gen-so-thresh gen-so-thresh.o + +# This is how to run this generator. +# This target should be made before the 'all' target, +# to ensure that the shlib sources are all available. +require_shlibs: gen-so-thresh + if ! [ -a lib00-so-thresh.c ] ; then \ + gen-so-thresh ; \ + fi + if ! [ -a lib01-so-thresh.c ] ; then \ + gen-so-thresh ; \ + fi + if ! [ -a lib02-so-thresh.c ] ; then \ + gen-so-thresh ; \ + fi + +# This is how to build all the shlibs. +# Be sure to first make the require_shlibs target! +lib00-so-thresh.o: lib00-so-thresh.c + $(CC) $(CFLAGS) +Z -o lib00-so-thresh.o -c lib00-so-thresh.c +lib00-so-thresh.sl: lib00-so-thresh.o + $(LD) $(LDFLAGS) -b -o lib00-so-thresh.sl lib00-so-thresh.o +lib01-so-thresh.o: lib01-so-thresh.c + $(CC) $(CFLAGS) +Z -o lib01-so-thresh.o -c lib01-so-thresh.c +lib01-so-thresh.sl: lib01-so-thresh.o + $(LD) $(LDFLAGS) -b -o lib01-so-thresh.sl lib01-so-thresh.o +lib02-so-thresh.o: lib02-so-thresh.c + $(CC) $(CFLAGS) +Z -o lib02-so-thresh.o -c lib02-so-thresh.c +lib02-so-thresh.sl: lib02-so-thresh.o + $(LD) $(LDFLAGS) -b -o lib02-so-thresh.sl lib02-so-thresh.o + + + + +# For convenience, here's names for all pieces of all shlibs. +SHLIB_SOURCES = \ + lib00-so-thresh.c \ + lib01-so-thresh.c \ + lib02-so-thresh.c + +SHLIB_OBJECTS = $(SHLIB_SOURCES:.c=.o) +SHLIBS = $(SHLIB_SOURCES:.c=.sl) +SHLIB_NAMES = $(SHLIB_SOURCES:.c=) +EXECUTABLES = $(SHLIBS) gen-so-thresh so-thresh +OBJECT_FILES = $(SHLIB_OBJECTS) gen-so-thresh.o so-thresh.o + +shlib_objects: $(SHLIB_OBJECTS) +shlibs: $(SHLIBS) + +# This is how to build the debuggable testcase that uses the shlibs. +so-thresh.o: so-thresh.c + $(CC) $(CFLAGS) -o so-thresh.o -c so-thresh.c +so-thresh: shlibs so-thresh.o + $(LD) $(LDFLAGS) -o so-thresh -lc -L${OBJDIR} -c so-thresh.linkopts /opt/langtools/lib/end.o /lib/crt0.o so-thresh.o + +# Yeah, but you should first make the require_shlibs target! +all: so-thresh gen-so-thresh + +# To remove everything built via this makefile... +clean: + rm -f lib0*-so-thresh.* + rm -f *.o gen-so-thresh so-thresh.linkopts so-thresh.c + rm -f so-thresh diff --git a/gdb/testsuite/gdb.hp/so-thresh.sh b/gdb/testsuite/gdb.hp/so-thresh.sh new file mode 100755 index 00000000000..dc90270a1e1 --- /dev/null +++ b/gdb/testsuite/gdb.hp/so-thresh.sh @@ -0,0 +1,12 @@ +#!/bin/ksh +# +# This script is a "wrapper" to use the so-thresh.mk +# Makefile. See the comments in so-thresh.exp +# regarding why this script exists. +# + +#set -o xtrace +#set -o verbose + +MAKEFLAGS= +make -v -f so-thresh.mk require_shlibs all