[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.base / backtrace.exp

# Copyright 2019-2024 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/>.

# A place for miscellaneous tests related to backtrace.

standard_testfile

set flags {}
lappend flags debug
lappend_include_file flags $srcdir/lib/attributes.h

if { [prepare_for_testing "failed to prepare" $testfile $srcfile $flags] } {
    return -1
}

if {![runto_main]} {
    return 0
}

# Run to the breakpoint at return.
gdb_breakpoint [gdb_get_line_number "Break here."]
gdb_continue_to_breakpoint "Break here."

# Backtrace with the default options.
gdb_test "bt" \
    [multi_line \
	 "#0\[ \t\]*baz \\(\\) at \[^\r\n\]+" \
	 "#1\[ \t\]*$hex in bar \\(\\) at \[^\r\n\]+" \
	 "#2\[ \t\]*$hex in foo \\(\\) at \[^\r\n\]+" \
	 "#3\[ \t\]*$hex in main \\(\\) at \[^\r\n\]+" ]

# Backtrace with 'set disassemble-next-line on'.  This shouldn't make
# any difference to the backtrace.
gdb_test "with disassemble-next-line on -- bt" \
    [multi_line \
	 "#0\[ \t\]*baz \\(\\) at \[^\r\n\]+" \
	 "#1\[ \t\]*$hex in bar \\(\\) at \[^\r\n\]+" \
	 "#2\[ \t\]*$hex in foo \\(\\) at \[^\r\n\]+" \
	 "#3\[ \t\]*$hex in main \\(\\) at \[^\r\n\]+" ]
Commit	Line	Data
1d506c26	1	# Copyright 2019-2024 Free Software Foundation, Inc.
153d79c4 AB	2
	3	# This program is free software; you can redistribute it and/or modify
	4	# it under the terms of the GNU General Public License as published by
	5	# the Free Software Foundation; either version 3 of the License, or
	6	# (at your option) any later version.
	7	#
	8	# This program is distributed in the hope that it will be useful,
	9	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	10	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	11	# GNU General Public License for more details.
	12	#
	13	# You should have received a copy of the GNU General Public License
	14	# along with this program. If not, see <http://www.gnu.org/licenses/>.
	15
	16	# A place for miscellaneous tests related to backtrace.
	17
	18	standard_testfile
	19
f2259ae7 TV	20	set flags {}
	21	lappend flags debug
	22	lappend_include_file flags $srcdir/lib/attributes.h
	23
	24	if { [prepare_for_testing "failed to prepare" $testfile $srcfile $flags] } {
153d79c4 AB	25	return -1
	26	}
	27
65a33d75	28	if {![runto_main]} {
153d79c4 AB	29	return 0
	30	}
	31
	32	# Run to the breakpoint at return.
	33	gdb_breakpoint [gdb_get_line_number "Break here."]
	34	gdb_continue_to_breakpoint "Break here."
	35
	36	# Backtrace with the default options.
	37	gdb_test "bt" \
	38	[multi_line \
	39	"#0\[ \t\]*baz \\(\\) at \[^\r\n\]+" \
	40	"#1\[ \t\]*$hex in bar \\(\\) at \[^\r\n\]+" \
	41	"#2\[ \t\]*$hex in foo \\(\\) at \[^\r\n\]+" \
	42	"#3\[ \t\]*$hex in main \\(\\) at \[^\r\n\]+" ]
	43
	44	# Backtrace with 'set disassemble-next-line on'. This shouldn't make
	45	# any difference to the backtrace.
	46	gdb_test "with disassemble-next-line on -- bt" \
	47	[multi_line \
	48	"#0\[ \t\]*baz \\(\\) at \[^\r\n\]+" \
	49	"#1\[ \t\]*$hex in bar \\(\\) at \[^\r\n\]+" \
	50	"#2\[ \t\]*$hex in foo \\(\\) at \[^\r\n\]+" \
	51	"#3\[ \t\]*$hex in main \\(\\) at \[^\r\n\]+" ]