1# Copyright 2004-2015 Free Software Foundation, Inc. 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 17standard_testfile 18 19if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != ""} { 20 untested "Couldn't compile $srcfile" 21 return -1 22} 23 24gdb_exit 25gdb_start 26gdb_reinitialize_dir $srcdir/$subdir 27gdb_file_cmd ${binfile} 28gdb_test_no_output "set listsize 1" 29 30# initial sal should be first statement in main 31gdb_test "list" \ 32 "v0 = 0;" \ 33 "list before run" 34 35gdb_load ${binfile} 36if {! [runto_main]} { 37 return -1 38} 39 40gdb_test "list" \ 41 "v0 = 0;" \ 42 "list in main" 43 44if {! [runto "func2"]} { 45 return -1 46} 47 48gdb_test "list" \ 49 "v2 = 2;" \ 50 "list in func2" 51 52# make sure backtrace doesn't change current source location. 53gdb_test "backtrace" \ 54 ".*" 55gdb_test "list -1" \ 56 "v2 = 2;" \ 57 "list after backtrace" 58 59# check the window 60gdb_test_no_output "set listsize 3" 61 62if {! [runto_main]} { 63 return -1 64} 65gdb_test "list" \ 66 "func1 \\(\\);" \ 67 "list size 3" 68 69return 0 70