binutils-gdb/gdb/testsuite/gdb.base/info-program.exp

# Copyright 1997-2023 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 3 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, see <http://www.gnu.org/licenses/>.

# Test "info program".
#
# We build both single-threaded and multi-threaded programs so that if
# the target doesn't support multi-threading, we still exercise the
# command.
#
# With the multi-threaded program, we test that in all-stop mode, GDB
# prints information about the last thread that stopped, not the
# current thread.  In non-stop mode, the command always prints info
# about the selected thread, so we test that.

standard_testfile

# Run the test with the given parameters:
#
#   - THREADS: threads flavor, either single-threaded or
#              multi-threaded.
#   - NON-STOP: "set non-stop" value, "on" or "off".

proc do_test { threads non-stop } {
    save_vars { ::GDBFLAGS } {
	append ::GDBFLAGS " -ex \"set non-stop ${non-stop}\""
	clean_restart $::binfile-$threads
    }

    gdb_test "info program" \
	"The program being debugged is not being run." \
	"info program before run"

    if { ![runto done] } {
	return -1
    }

    if {${non-stop} == "on"} {
	set thread_line "Selected"
    } else {
	set thread_line "Last stopped for"
    }

    gdb_test "info program" \
	[multi_line \
	     "$thread_line thread 1 (\[^\r\n\]+)\\." \
	     ".*" \
	     "Program stopped at $::hex\." \
	     "It stopped at breakpoint $::decimal\." \
	     "Type \"info stack\" or \"info registers\" for more information\."] \
	"info program after run to main"

    # We don't really care where this step lands, so long as GDB reports
    # that the inferior stopped  due to a step in the subsequent test.
    gdb_test "next" ".*" "step before info program"

    gdb_test "info program" \
	[multi_line \
	     "$thread_line thread 1 (\[^\r\n\]+)\\." \
	     ".*" \
	     "Program stopped at $::hex\." \
	     "It stopped after being stepped\." \
	     "Type \"info stack\" or \"info registers\" for more information\."] \
	"info program after next"

    if {$threads == "mt"} {
	gdb_test "thread 2" "\\\[Switching to thread 2 .*"

	if {${non-stop} == "on"} {
	    gdb_test "info program" \
		[multi_line \
		     "$thread_line thread 2 (\[^\r\n\]+)\\." \
		     "Selected thread is running\\."] \
		"info program after next, other thread"
	} else {
	    gdb_test "info program" \
		[multi_line \
		     "$thread_line thread 1 (\[^\r\n\]+)\\." \
		     ".*" \
		     "Program stopped at $::hex\." \
		     "It stopped after being stepped\." \
		     "Type \"info stack\" or \"info registers\" for more information\."] \
		"info program after next, other thread"
	}
    }

    gdb_test "kill" "" "kill program" \
	"Kill the program being debugged.*y or n. $" "y"

    gdb_test "info program" "The program being debugged is not being run." \
	"info program, after kill"

    if { ![runto done] } {
	return -1
    }

    delete_breakpoints

    gdb_test "info program" \
	[multi_line \
	     "$thread_line thread 1 (\[^\r\n\]+)\\." \
	     ".*" \
	     "Program stopped at $::hex\." \
	     "It stopped at a breakpoint that has since been deleted\." \
	     "Type \"info stack\" or \"info registers\" for more information\."] \
	"info program after deleting all breakpoints"
}

# Build executables and test them, one for each
# single-thread/multi-thread flavor.
foreach_with_prefix threads {st mt} {
    set opts {debug}
    if {$threads == "mt"} {
	lappend opts pthreads "additional_flags=-DUSE_THREADS"
    }

    if { [build_executable "failed to prepare $threads" \
	    ${testfile}-${threads} ${srcfile} $opts] } {
	continue
    }

    foreach_with_prefix non-stop {on off} {
	do_test ${threads} ${non-stop}
    }
}