OLD | NEW |
1 # Copyright 2011-2012 Free Software Foundation, Inc. | 1 # Copyright 2011-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 if $tracelevel { | |
17 strace $tracelevel | |
18 } | |
19 | |
20 if {[skip_shlib_tests]} { | 16 if {[skip_shlib_tests]} { |
21 untested jit.exp | 17 untested jit.exp |
22 return -1 | 18 return -1 |
23 } | 19 } |
24 | 20 |
25 if {[get_compiler_info not-used]} { | 21 if {[get_compiler_info]} { |
26 warning "Could not get compiler info" | 22 warning "Could not get compiler info" |
27 untested jit.exp | 23 untested jit.exp |
28 return 1 | 24 return 1 |
29 } | 25 } |
30 | 26 |
31 # | 27 # |
32 # test running programs | 28 # test running programs |
33 # | 29 # |
34 | 30 |
35 set testfile jit-main | 31 set testfile jit-main |
(...skipping 12 matching lines...) Expand all Loading... |
48 # Note: compiling without debug info: the library goes through symbol | 44 # Note: compiling without debug info: the library goes through symbol |
49 # renaming by munging on its symbol table, and that wouldn't work for .debug | 45 # renaming by munging on its symbol table, and that wouldn't work for .debug |
50 # sections. Also, output for "info function" changes when debug info is resent. | 46 # sections. Also, output for "info function" changes when debug info is resent. |
51 if { [gdb_compile_shlib ${solib_srcfile} ${solib_binfile} {-fPIC}] != "" } { | 47 if { [gdb_compile_shlib ${solib_srcfile} ${solib_binfile} {-fPIC}] != "" } { |
52 untested jit.exp | 48 untested jit.exp |
53 return -1 | 49 return -1 |
54 } | 50 } |
55 | 51 |
56 set solib_binfile_target [gdb_download ${solib_binfile}] | 52 set solib_binfile_target [gdb_download ${solib_binfile}] |
57 | 53 |
58 proc one_jit_test {count match_str} { | 54 proc one_jit_test {count match_str} { with_test_prefix "one_jit_test-$count" { |
59 global verbose testfile solib_binfile_target solib_binfile_test_msg pf_prefi
x | 55 global verbose testfile solib_binfile_target solib_binfile_test_msg |
60 | |
61 set old_pf_prefix $pf_prefix | |
62 lappend pf_prefix "one_jit_test-$count:" | |
63 | 56 |
64 clean_restart $testfile | 57 clean_restart $testfile |
65 | 58 |
66 # This is just to help debugging when things fail | 59 # This is just to help debugging when things fail |
67 if {$verbose > 0} { | 60 if {$verbose > 0} { |
68 gdb_test "set debug jit 1" | 61 gdb_test "set debug jit 1" |
69 } | 62 } |
70 | 63 |
71 if { ![runto_main] } { | 64 if { ![runto_main] } { |
72 fail "Can't run to main" | 65 fail "Can't run to main" |
(...skipping 17 matching lines...) Expand all Loading... |
90 # This is just to help debugging when things fail | 83 # This is just to help debugging when things fail |
91 if {$verbose > 0} { | 84 if {$verbose > 0} { |
92 gdb_test "maintenance print objfiles" | 85 gdb_test "maintenance print objfiles" |
93 gdb_test "maintenance info break" | 86 gdb_test "maintenance info break" |
94 } | 87 } |
95 | 88 |
96 gdb_breakpoint [gdb_get_line_number "break here 2"] | 89 gdb_breakpoint [gdb_get_line_number "break here 2"] |
97 gdb_continue_to_breakpoint "break here 2" | 90 gdb_continue_to_breakpoint "break here 2" |
98 # All jit librares must have been unregistered | 91 # All jit librares must have been unregistered |
99 gdb_test "info function jit_function" \ | 92 gdb_test "info function jit_function" \ |
100 » "All functions matching regular expression \"jit_function\":" | 93 » "All functions matching regular expression \"jit_function\":" |
101 set pf_prefix $old_pf_prefix | 94 }} |
102 } | |
103 | 95 |
104 one_jit_test 1 "${hex} jit_function_0000" | 96 one_jit_test 1 "${hex} jit_function_0000" |
105 one_jit_test 2 "${hex} jit_function_0000\[\r\n\]+${hex} jit_function_0001" | 97 one_jit_test 2 "${hex} jit_function_0000\[\r\n\]+${hex} jit_function_0001" |
OLD | NEW |