load_lib selftest-support.exp
-# Not all of the lines of code near the start of main are executed for
-# every machine. Also, optimization may reorder some of the lines.
-# So all we do is try to step or next over everything until we get
-# to a line that we know is always executed.
-
-proc do_steps_and_nexts {} {
- global gdb_prompt
- global srcdir
-
- gdb_reinitialize_dir $srcdir/..
-
- set unlikely_line 0
- for {set count 0} {$count < 32} {incr count} {
- # NOTE: carlton/2002-12-11: The "initial brace" and
- # "current_directory initialization" possibilities happen to
- # me with GCC 3.1 on i686-pc-linux-gnu when I compile with
- # optimization.
- gdb_test_multiple "list" "list" {
- -re ".*context = \\(struct captured_main_args \\*\\) data.*$gdb_prompt $" {
- set description "step over context initialization"
- set command "step"
- }
- -re ".*argc = context->argc.*$gdb_prompt $" {
- set description "step over argc initialization"
- set command "step"
- }
- -re ".*argv = context->argv.*$gdb_prompt $" {
- set description "step over argv initialization"
- set command "step"
- }
- -re ".*quiet = 0.*$gdb_prompt $" {
- set description "step over quiet initialization"
- set command "step"
- }
- -re ".*batch = 0.*$gdb_prompt $" {
- set description "step over batch initialization"
- set command "step"
- }
- -re ".*symarg = NULL.*$gdb_prompt $" {
- set description "step over symarg initialization"
- set command "step"
- }
- -re ".*execarg = NULL.*$gdb_prompt $" {
- set description "step over execarg initialization"
- set command "step"
- }
- -re ".*pidarg = NULL.*$gdb_prompt $" {
- set description "step over pidarg initialization"
- set command "step"
- }
- -re ".*corearg = NULL.*$gdb_prompt $" {
- set description "step over corearg initialization"
- set command "step"
- }
- -re ".*pid_or_core_arg = NULL.*$gdb_prompt $" {
- set description "step over pid_or_core_arg initialization"
- set command "step"
- }
- -re ".*cdarg = NULL.*$gdb_prompt $" {
- set description "step over cdarg initialization"
- set command "step"
- }
- -re ".*ttyarg = NULL.*$gdb_prompt $" {
- set description "step over ttyarg initialization"
- set command "step"
- }
- -re ".*cmdarg_vec = NULL.*$gdb_prompt $" {
- set description "step over cmdarg_vec initialization"
- set command "step"
- }
- -re ".*pre_stat_chain = make_command_stats_cleanup.*$gdb_prompt $" {
- set description "next over make_command_stats_cleanup and everything it calls"
- set command "next"
- }
- -re ".*START_PROGRESS.*$gdb_prompt $" {
- # Note: ezannoni/2004/02/17: This check should be
- # removed, since as of today that source line is not
- # in gdb anymore.
- set description "next over START_PROGRESS and everything it calls"
- set command "next"
- }
- -re ".*mac_init.*$gdb_prompt $" {
- set description "next over mac_init and everything it calls"
- set command "next"
- }
- -re ".*init_malloc.*$gdb_prompt $" {
- # gdb 6.2.X is the last gdb which called init_malloc
- set description "next over init_malloc and everything it calls"
- set command "next"
- }
- -re ".*lim_at_start.*$gdb_prompt $" {
- set description "next over lim_at_start initialization"
- set command "next"
- }
- -re ".*TRY.*$gdb_prompt $" {
- set description "next over TRY"
- set command "next"
- }
- -re ".*captured_main \\(args\\);.*$gdb_prompt $" {
- set description "step into captured_main (args)"
- set command "step"
- }
- -re ".*count . 0x3.*$gdb_prompt $" {
- set description "next over conditional stack alignment code 1"
- set command "next"
- }
- -re ".*if .i != 0.*$gdb_prompt $" {
- set description "next over conditional stack alignment code 2"
- set command "next"
- }
- -re ".*alloca .i - 4.*$gdb_prompt $" {
- set description "next over conditional stack alignment alloca"
- set command "next"
- }
- -re ".*dirsize = 1.*$gdb_prompt $" {
- set description "next over dirsize initialization"
- set command "next"
- }
- -re ".*dirarg = .* xmalloc.*$gdb_prompt $" {
- return
- }
- -re ".*setlocale .LC_MESSAGES,.*$gdb_prompt $" {
- set description "next over setlocale LC_MESSAGES"
- set command "next"
- }
- -re ".*setlocale .LC_CTYPE,.*$gdb_prompt $" {
- set description "next over setlocale LC_CTYPE"
- set command "next"
- }
- -re ".*bindtextdomain .PACKAGE, LOCALEDIR.;.*$gdb_prompt $" {
- set description "next over bindtextdomain"
- set command "next"
- }
- -re ".*textdomain .PACKAGE.;.*$gdb_prompt $" {
- set description "next over textdomain PACKAGE"
- set command "next"
- }
- -re ".*bfd_init ..;.*$gdb_prompt $" {
- set description "next over bfd_init"
- set command "next"
- }
- -re ".*notice_open_fds ..;.*$gdb_prompt $" {
- set description "next over notice_open_fds"
- set command "next"
- }
- -re ".*save_original_signals_state ..;.*$gdb_prompt $" {
- set description "next over save_original_signals_state"
- set command "next"
- }
- -re ".*VEC_cleanup .cmdarg_s.*$gdb_prompt $" {
- set description "next over cmdarg_s VEC_cleanup"
- set command "next"
- }
- -re "\[0-9\]+\[\t \]+\{\r\n$gdb_prompt $" {
- set description "step over initial brace"
- set command "step"
- }
- -re ".*current_directory = gdb_dirbuf.*$gdb_prompt $" {
- set description "step over current_directory initialization"
- set command "step"
- }
- -re ".*gdb_sysroot = .*$gdb_prompt $" {
- # NOTE: carlton/2003-01-15: More optimization reordering,
- # observed on GCC 3.1.
- set description "step over gdb_sysroot initialization"
- set command "step"
- }
- -re ".*ndir = 0.*$gdb_prompt $" {
- set description "step over ndir initialization"
- set command "step"
- }
- -re ".*instream = stdin.*$gdb_prompt $" {
- set description "step over instream initialization"
- set command "step"
- }
- -re ".*getcwd .gdb_dirbuf, sizeof .gdb_dirbuf.*$gdb_prompt $" {
- set description "next over getcwd"
- set command "next"
- }
- -re ".*gdb_program_name = xstrdup.*$gdb_prompt $" {
- set description "next over xstrdup"
- set command "next"
- }
- -re ".*quit_flag = 0.*$gdb_prompt $" {
- set description "step over quit_flag initialization"
- set command "step"
- }
- -re ".*gdb_stdout = stdio_fileopen .stdout.;.*$gdb_prompt $" {
- set description "step over gdb_stdout initialization"
- set command "step"
- }
- -re ".*gdb_stderr = stdio_fileopen .stderr.;.*$gdb_prompt $" {
- set description "step over gdb_stderr initialization"
- set command "step"
- }
- -re "ui = current_ui.*$gdb_prompt $" {
- set description "step over top_level initialization"
- set command "step"
- }
- -re ".*main.c.*No such file or directory.*$gdb_prompt $" {
- setup_xfail "rs6000-*-aix3*"
- fail "must be able to list source lines"
- return
- }
- -re ".*interpreter_p = xstrdup.*$gdb_prompt $" {
- if { $unlikely_line == 0 } {
- # This is a GCC optimization bug; a constant has been
- # associated with the wrong line number.
- setup_xfail "*-*-*" gcc/26475
- fail "$description (unlikely line from gcc)"
- set unlikely_line 1
- }
- set description "next over xstrdup"
- set command "next"
- }
- -re ".*$gdb_prompt $" {
- # If $description hasn't been set yet, it's likely the file
- # has been edited but gdb hasn't been recompiled.
- if [info exists description] {
- fail "unknown source line (after $description)"
- } else {
- fail "unknown source line"
- }
- return
- }
- default {
- fail "unknown source line near main"
- return
- }
- }
- gdb_test_multiple "$command" "$description" {
- -re ".*No such file or directory.\r\n$gdb_prompt $" {
- fail "$description (no source available)"
- }
- -re ".*A file or directory .* does not exist..\r\n$gdb_prompt $" {
- fail "$description (no source available)"
- }
- -re ".*$gdb_prompt $" {
- pass "$description"
- }
- }
- }
-}
-
proc test_with_self { } {
global gdb_prompt
global decimal
}
}
- do_steps_and_nexts
-
- gdb_test "print \"foo\"" ".\[0-9\]+ = \"foo\"" "print a string"
-
- # do_steps_and_nexts left us ready to execute an xmalloc call,
- # so give that a try.
- # If we don't actually enter the xmalloc call when we give a
- # step command that seems like a genuine bug. It seems to happen
- # on most RISC processors.
- # NOTE drow/2003-06-22: However, if we step back to the preceding two
- # lines, just keep stepping until we enter.
- set stepped_back 0
- setup_xfail "alpha-*-*" "mips-*-*"
- set description "step into xmalloc call"
- gdb_test_multiple "step" "$description" {
- -re "ncmd = 0;.*$gdb_prompt $" {
- set stepped_back 1
- send_gdb "step\n"
- exp_continue
- }
- -re ".*cmdarg = .* xmalloc.*$gdb_prompt $" {
- set stepped_back 1
- send_gdb "step\n"
- exp_continue
- }
- -re "dirsize = 1;.*$gdb_prompt $" {
- set stepped_back 1
- send_gdb "step\n"
- exp_continue
- }
- -re ".*dirarg = .* xmalloc.*$gdb_prompt $" {
- if { $stepped_back == 1 } {
- send_gdb "step\n"
- exp_continue
- } else {
- fail "$description"
- }
- }
- -re "xmalloc.*size=.*at.*utils.c.*$gdb_prompt $" {
- pass "$description"
- }
- -re ".*No such file or directory.\r\n$gdb_prompt $" {
- pass "$description (no source available)"
- }
- -re "A file or directory .* does not exist..\r\n$gdb_prompt $" {
- pass "$description (no source available)"
- }
- }
-
# start the "xgdb" process
if [target_info exists gdb,noinferiorio] {
# With no way to interact with the inferior GDB, all we can do
projects / external / binutils.git / commitdiff