mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-12 03:43:33 +08:00
128eb414a7
On arm-linux, I run into:
...
PASS: gdb.ada/mi_task_arg.exp: mi runto task_switch.break_me
Expecting: ^(-stack-list-arguments 1[^M
]+)?(\^done,stack-args=\[frame={level="0",args=\[\]},frame={level="1",args=\[{name="<_task>",value="0x[0-9A-Fa-f]+"}(,{name="<_taskL>",value="[0-9]+"})?\]},frame={level="2",args=\[({name="self_id",value="(0x[0-9A-Fa-f]+|<optimized out>)"})?\]},.*[^M
]+[(]gdb[)] ^M
[ ]*)
-stack-list-arguments 1^M
^done,stack-args=[frame={level="0",args=[]},frame={level="1",args=[{name="<_task>",value="0x40bc48"}]},frame={level="2",args=[]}]^M
(gdb) ^M
FAIL: gdb.ada/mi_task_arg.exp: -stack-list-arguments 1 (unexpected output)
...
The problem is that the test-case expects a level 3 frame, but there is none.
This can be reproduced using cli bt:
...
$ gdb -q -batch outputs/gdb.ada/mi_task_arg/task_switch \
-ex "b task_switch.break_me" \
-ex run \
-ex bt
Breakpoint 1 at 0x34b4: file task_switch.adb, line 57.
Thread 3 "my_caller" hit Breakpoint 1, task_switch.break_me () \
at task_switch.adb:57
57 null;
#0 task_switch.break_me () at task_switch.adb:57
#1 0x00403424 in task_switch.caller (<_task>=0x40bc48) at task_switch.adb:51
#2 0xf7f95a08 in ?? () from /lib/arm-linux-gnueabihf/libgnarl-12.so
Backtrace stopped: previous frame identical to this frame (corrupt stack?)
...
The purpose of the test-case is printing the frame at level 1, so I don't
think we should bother about the presence of the frame at level 3.
Fix this by allowing the backtrace to stop at level 2.
Tested on arm-linux.
Approved-By: Luis Machado <luis.machado@arm.com>
Approved-By: Andrew Burgess <aburgess@redhat.com>
57 lines
1.9 KiB
Plaintext
57 lines
1.9 KiB
Plaintext
# Copyright 2011-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/>.
|
|
|
|
load_lib "ada.exp"
|
|
|
|
require allow_ada_tests
|
|
|
|
standard_ada_testfile task_switch
|
|
|
|
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnata ]] != "" } {
|
|
return -1
|
|
}
|
|
|
|
load_lib mi-support.exp
|
|
set MIFLAGS "-i=mi"
|
|
|
|
if {[mi_clean_restart $binfile]} {
|
|
return
|
|
}
|
|
|
|
# This test won't work properly if system debuginfo is installed.
|
|
mi_gdb_test "-gdb-set debug-file-directory \"\"" ".*"
|
|
|
|
if {![mi_runto "task_switch.break_me"]} {
|
|
return 0
|
|
}
|
|
|
|
# Verify that "-stack-list-arguments" does not cause the debugger to
|
|
# crash when printing the arguments of frame 1 (due to the internally-
|
|
# generated argument "_task").
|
|
# Frame for task_switch.break_me
|
|
set frame0 "frame=\{level=\"0\",args=\\\[\\\]\}"
|
|
# Frame for task_switch.caller
|
|
set frame1_args "\{name=\"<_task>\",value=\"$hex\"\}"
|
|
set frame1_opt_args "\{name=\"<_taskL>\",value=\"$decimal\"\}"
|
|
set frame1 "frame=\{level=\"1\",args=\\\[${frame1_args}(,$frame1_opt_args)?\\\]\}"
|
|
# Frame for system.tasking.stages.task_wrapper
|
|
set frame2_args "(\{name=\"self_id\",value=\"($hex|<optimized out>)\"\})?"
|
|
set frame2 "frame=\{level=\"2\",args=\\\[$frame2_args\\\]\}"
|
|
|
|
set frames "$frame0,$frame1,${frame2}(,.*)?"
|
|
mi_gdb_test "-stack-list-arguments 1" \
|
|
"\\^done,stack-args=\\\[$frames\\\]" \
|
|
"-stack-list-arguments 1"
|