OLD | NEW |
1 # Copyright (C) 1992, 1997, 1999, 2003-2004, 2007-2012 Free Software | 1 # Copyright (C) 1992, 1997, 1999, 2003-2004, 2007-2012 Free Software |
2 # Foundation, Inc. | 2 # Foundation, Inc. |
3 | 3 |
4 # This program is free software; you can redistribute it and/or modify | 4 # This program is free software; you can redistribute it and/or modify |
5 # it under the terms of the GNU General Public License as published by | 5 # it under the terms of the GNU General Public License as published by |
6 # the Free Software Foundation; either version 3 of the License, or | 6 # the Free Software Foundation; either version 3 of the License, or |
7 # (at your option) any later version. | 7 # (at your option) any later version. |
8 # | 8 # |
9 # This program is distributed in the hope that it will be useful, | 9 # This program is distributed in the hope that it will be useful, |
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 # GNU General Public License for more details. | 12 # GNU General Public License for more details. |
13 # | 13 # |
14 # You should have received a copy of the GNU General Public License | 14 # You should have received a copy of the GNU General Public License |
15 # along with this program. If not, see <http://www.gnu.org/licenses/>. | 15 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
16 | 16 |
17 # This file was written by Fred Fish. (fnf@cygnus.com) | 17 # This file was written by Fred Fish. (fnf@cygnus.com) |
18 | 18 |
19 if $tracelevel then { | |
20 strace $tracelevel | |
21 } | |
22 | |
23 if { [skip_cplus_tests] } { continue } | 19 if { [skip_cplus_tests] } { continue } |
24 | 20 |
25 ### The demangling style we last sent to GDB. | 21 ### The demangling style we last sent to GDB. |
26 set current_demangling_style none | 22 set current_demangling_style none |
27 | 23 |
28 ### Set GDB's current demangling style to STYLE. Subsequent calls to | 24 ### Set GDB's current demangling style to STYLE. Subsequent calls to |
29 ### test_demangle will include STYLE in the test name when reporting | 25 ### test_demangle will include STYLE in the test name when reporting |
30 ### passes and failures. | 26 ### passes and failures. |
31 proc set_demangling_style {style} { | 27 proc set_demangling_style {style} { |
32 global gdb_prompt | 28 global gdb_prompt |
(...skipping 1525 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1558 # Using catch_demangling_errors this way ensures that, if one of | 1554 # Using catch_demangling_errors this way ensures that, if one of |
1559 # the functions raises a Tcl error, then it'll get reported, and | 1555 # the functions raises a Tcl error, then it'll get reported, and |
1560 # the rest of the functions will still run. | 1556 # the rest of the functions will still run. |
1561 catch_demangling_errors test_lucid_style_demangling | 1557 catch_demangling_errors test_lucid_style_demangling |
1562 catch_demangling_errors test_gnu_style_demangling | 1558 catch_demangling_errors test_gnu_style_demangling |
1563 catch_demangling_errors test_arm_style_demangling | 1559 catch_demangling_errors test_arm_style_demangling |
1564 catch_demangling_errors test_hp_style_demangling | 1560 catch_demangling_errors test_hp_style_demangling |
1565 } | 1561 } |
1566 | 1562 |
1567 do_tests | 1563 do_tests |
OLD | NEW |