OLD | NEW |
1 # Copyright 2002-2003, 2005, 2007-2012 Free Software Foundation, Inc. | 1 # Copyright 2002-2003, 2005, 2007-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 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/>. */ | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
15 | 15 |
16 # relocate.exp -- Expect script to test loading symbols from unrelocated | 16 # relocate.exp -- Expect script to test loading symbols from unrelocated |
17 # object files. | 17 # object files. |
18 | 18 |
19 if $tracelevel then { | |
20 strace $tracelevel | |
21 } | |
22 | |
23 set testfile relocate | 19 set testfile relocate |
24 set srcfile ${testfile}.c | 20 set srcfile ${testfile}.c |
25 set binfile ${objdir}/${subdir}/${testfile}.o | 21 set binfile ${objdir}/${subdir}/${testfile}.o |
26 | 22 |
27 remote_exec build "rm -f ${binfile}" | 23 remote_exec build "rm -f ${binfile}" |
28 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {debug}]
!= "" } { | 24 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {debug}]
!= "" } { |
29 untested relocate.exp | 25 untested relocate.exp |
30 return -1 | 26 return -1 |
31 } | 27 } |
32 | 28 |
(...skipping 96 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
129 gdb_exit | 125 gdb_exit |
130 gdb_start | 126 gdb_start |
131 gdb_reinitialize_dir $srcdir/$subdir | 127 gdb_reinitialize_dir $srcdir/$subdir |
132 gdb_file_cmd ${binfile} | 128 gdb_file_cmd ${binfile} |
133 | 129 |
134 # Check the values of the variables. | 130 # Check the values of the variables. |
135 gdb_test "print static_foo" "\\\$$decimal = 1" | 131 gdb_test "print static_foo" "\\\$$decimal = 1" |
136 gdb_test "print static_bar" "\\\$$decimal = 2" | 132 gdb_test "print static_bar" "\\\$$decimal = 2" |
137 gdb_test "print global_foo" "\\\$$decimal = 3" | 133 gdb_test "print global_foo" "\\\$$decimal = 3" |
138 gdb_test "print global_bar" "\\\$$decimal = 4" | 134 gdb_test "print global_bar" "\\\$$decimal = 4" |
OLD | NEW |