1# Copyright 2001, 2003, 2007 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# Please email any bugs, comments, and/or additions to this file to: 17# bug-gdb@prep.ai.mit.edu 18# use this to debug: 19# 20#log_user 1 21 22# step-line.exp -- Expect script to test stepping in files with 23# #line directives. 24 25if $tracelevel then { 26 strace $tracelevel 27} 28 29set testfile step-line 30set srcfile ${testfile}.c 31set binfile ${objdir}/${subdir}/${testfile} 32 33remote_exec build "rm -f ${binfile}" 34if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 35 untested step-line.exp 36 return -1 37} 38 39gdb_exit 40gdb_start 41gdb_reinitialize_dir $srcdir/$subdir 42gdb_load ${binfile} 43 44if ![runto_main] then { 45 fail "Can't run to main" 46 return 0 47} 48 49gdb_test "break f1" ".*Breakpoint 2 at .* file step-line.c.*" "break f1" 50gdb_test "continue" \ 51 "Continuing.*Breakpoint 2, f1 \\(i=4\\).*dummy \\(1, i\\);" \ 52 "continue to f1" 53gdb_test "next" \ 54 ".*i = f2 \\(i\\);.*" \ 55 "next over dummy 1" 56gdb_test "next" \ 57 ".*dummy \\(2, i\\);.*" \ 58 "next to dummy 2" 59gdb_test "next" \ 60 ".*i = f2 \\(i\\);.*" \ 61 "next over dummy 2" 62gdb_test "step" \ 63 ".*f2 \\(i=4\\).*dummy \\(4, i\\);.*" \ 64 "step into f2" 65gdb_test "next" \ 66 ".*j = i;.*" \ 67 "next over dummy 4" 68gdb_test "next" \ 69 ".*dummy \\(5, i\\);.*" \ 70 "next to dummy 5" 71gdb_test "next" \ 72 ".*dummy \\(6, j\\);.*" \ 73 "next to dummy 6" 74gdb_test "next" \ 75 ".*j = SUCC \\(j\\);.*" \ 76 "next over dummy 6" 77gdb_test "next" \ 78 ".*dummy \\(7, i\\);.*" \ 79 "next to dummy 7" 80gdb_test "next" \ 81 ".*dummy \\(8, j\\);.*" \ 82 "next to dummy 8" 83gdb_test "next" \ 84 ".*j = j - i;.*" \ 85 "next over dummy 8" 86gdb_test "next" \ 87 ".*dummy \\(9, i\\);.*" \ 88 "next to dummy 9" 89gdb_test "next" \ 90 ".*dummy \\(10, j\\);.*" \ 91 "next to dummy 10" 92gdb_test "next" \ 93 ".*RETURN \\(j\\);.*" \ 94 "next over dummy 10" 95return 0 96