| # Copyright (C) 2004 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 |
| |
| # Test xcode's stack-list-frames-lite command with a signal trampoline on |
| # the stack. |
| |
| |
| set timeout 30 |
| |
| set prms_id 0 |
| set bug_id 0 |
| |
| load_lib mi-support.exp |
| |
| set testfile "inf-call-interrupt-notsleep" |
| set srcfile ${testfile}.c |
| set binfile ${objdir}/${subdir}/${testfile} |
| if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { |
| gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." |
| } |
| |
| # Start with a fresh gdb |
| |
| gdb_exit |
| gdb_start |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load ${binfile} |
| |
| gdb_test "break $srcfile:[gdb_get_line_number "This is a good place for a breakpoint"]" "Breakpoint 1 at $hex: file.*, line.*\\." "Set breakpoint on line 'This is a good place for a breakpoint'" |
| |
| gdb_test "run" "Starting program: $binfile *\r\n\Reading symbols for shared libraries \(\[.+\]\)+ done.*Breakpoint 1, subroutine6.*" "run to breakpoint in subroutine6" |
| |
| send_gdb "set interpreter mi1\n" |
| |
| mi_gdb_test "104-stack-list-frames-lite -limit 500" \ |
| "104\\^done,frames=\\\[0=\{pc=\"$hex\",fp=\"$hex\"\},1=\{pc=\"$hex\",fp=\"$hex\"\},2=\{pc=\"$hex\",fp=\"$hex\"\},3=\{pc=\"$hex\",fp=\"$hex\"\},4=\{pc=\"$hex\",fp=\"$hex\"\}.*\\\],valid=\"1\",count=\"11\".*" "-stack-list-frames-lite -limit 500 works" |
| |
| set slow_worked 0 |
| set fast_worked 0 |
| |
| |
| mi_gdb_test "105-stack-info-depth" \ |
| "105\\^done,depth=\"11\".*" "check stack depth is as expected" |
| |
| #-re "120\\^done,stack=\\\[frame=\{level=\"0\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine6\",.*\},frame=\{level=\"1\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine5\",.*\},frame=\{level=\"2\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine4\",.*\},frame=\{level=\"3\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine3\",.*\},frame=\{level=\"4\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine2\",.*\},frame=\{level=\"5\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine1\",.*\},frame=\{level=\"6\",addr=\"($hex)\",fp=\"($hex)\",func=\"handler\",.*\},frame=\{level=\"7\",addr=\"($hex)\",fp=\"($hex)\",func=\".*signal handler called.*\",.*\},frame=\{level=\"8\",addr=\"($hex)\",fp=\"($hex)\",func=\"superroutine2\",.*\},frame=\{level=\"9\",addr=\"($hex)\",fp=\"($hex)\",func=\"superroutine1\",.*\},frame=\{level=\"10\",addr=\"($hex)\",fp=\"($hex)\",func=\"main\",.*\}\\\]\[\r\n\]+$mi_gdb_prompt$" { |
| send_gdb "120-stack-list-frames\n" |
| gdb_expect { |
| -re "120\\^done,stack=\\\[frame=\{level=\"0\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine6\",.*\},frame=\{level=\"1\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine5\",.*\},frame=\{level=\"2\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine4\",.*\},frame=\{level=\"3\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine3\",.*\},frame=\{level=\"4\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine2\",.*\},frame=\{level=\"5\",addr=\"($hex)\",fp=\"($hex)\",func=\"subroutine1\",.*\},frame=\{level=\"6\",addr=\"($hex)\",fp=\"($hex)\",func=\"handler\",.*\},frame=\{level=\"7\",addr=\"($hex)\",fp=\"($hex)\",func=\"<signal handler called>\"\},frame=\{level=\"8\",addr=\"($hex)\",fp=\"($hex)\",func=\"superroutine2\",.*\},frame=\{level=\"9\",addr=\"($hex)\",fp=\"($hex)\",func=\"superroutine1\",.*\},frame=\{level=\"10\",addr=\"($hex)\",fp=\"($hex)\",func=\"main\",.*\}\\\].*\[\r\n\]+$mi_gdb_prompt$" { |
| pass "get values from stack-list-frames" |
| set wildnum 1 |
| for {set lev 0} {$lev < 10} {incr lev} { |
| set foonum [ expr 10 - $lev ] |
| set foo_addr($foonum) $expect_out($wildnum,string) |
| incr wildnum |
| set foo_fp($foonum) $expect_out($wildnum,string) |
| incr wildnum |
| } |
| set main_addr $expect_out($wildnum,string) |
| incr wildnum |
| set main_fp $expect_out($wildnum,string) |
| incr wildnum |
| set slow_worked 1 |
| } |
| -re ".*$mi_gdb_prompt$" { |
| fail "get values from stack-list-frames" |
| } |
| timeout { |
| fail "(timeout) get values from stack-list-frames" |
| } |
| } |
| |
| send_gdb "121-stack-list-frames-lite\n" |
| gdb_expect { |
| -re "121\\^done,frames=\\\[0=\{pc=\"($hex)\",fp=\"($hex)\"\},1=\{pc=\"($hex)\",fp=\"($hex)\"\},2=\{pc=\"($hex)\",fp=\"($hex)\"\},3=\{pc=\"($hex)\",fp=\"($hex)\"\},4=\{pc=\"($hex)\",fp=\"($hex)\"\},5=\{pc=\"($hex)\",fp=\"($hex)\"\},6=\{pc=\"($hex)\",fp=\"($hex)\"\},7=\{pc=\"($hex)\",fp=\"($hex)\"\},8=\{pc=\"($hex)\",fp=\"($hex)\"\},9=\{pc=\"($hex)\",fp=\"($hex)\"\},10=\{pc=\"($hex)\",fp=\"($hex)\"\}.*\\\],valid=\"1\",count=\"11\".*\[\r\n\]+$mi_gdb_prompt$" { |
| pass "get values from stack-list-frames-lite" |
| set wildnum 1 |
| for {set lev 0} {$lev < 10} {incr lev} { |
| set foonum [ expr 10 - $lev ] |
| set foo_addr_lite($foonum) $expect_out($wildnum,string) |
| incr wildnum |
| set foo_fp_lite($foonum) $expect_out($wildnum,string) |
| incr wildnum |
| } |
| set main_addr_lite $expect_out($wildnum,string) |
| incr wildnum |
| set main_fp_lite $expect_out($wildnum,string) |
| incr wildnum |
| set fast_worked 1 |
| } |
| -re ".*$mi_gdb_prompt$" { |
| fail "get values from stack-list-frames-lite" |
| } |
| timeout { |
| fail "(timeout) get values from stack-list-frames-lite" |
| } |
| } |
| |
| if { $slow_worked && $fast_worked } { |
| |
| for {set lev 0} {$lev < 10} {incr lev} { |
| set foonum [ expr 10 - $lev ] |
| if {$foo_addr($foonum) == $foo_addr_lite($foonum)} { |
| pass "frame $lev address from stack-list-frames and stack-list-frames-lite matches" |
| } else { |
| fail "frame $lev address from stack-list-frames and stack-list-frames-lite matches" |
| } |
| # The sigtramp frame itself will not have an FP that matches for reasons |
| # surpassing my own caring. The _sigtramp call is at frame 7. |
| if {$lev == 7} { |
| continue |
| } |
| |
| if {$foo_fp($foonum) == $foo_fp_lite($foonum)} { |
| pass "frame $lev fp from stack-list-frames and stack-list-frames-lite matches" |
| } else { |
| fail "frame $lev fp from stack-list-frames and stack-list-frames-lite matches" |
| } |
| } |
| |
| if {$main_addr == $main_addr_lite} { |
| pass "main () address from stack-list-frames and stack-list-frames-lite matches" |
| } else { |
| fail "main () address from stack-list-frames and stack-list-frames-lite matches" |
| } |
| if {$main_fp == $main_fp_lite} { |
| pass "main () fp from stack-list-frames and stack-list-frames-lite matches" |
| } else { |
| fail "main () fp from stack-list-frames and stack-list-frames-lite matches" |
| } |
| } |
| |
| mi_gdb_exit |
| return 0 |