OLD | NEW |
1 # This test code is part of GDB, the GNU debugger. | 1 # Copyright 2012 Free Software Foundation, Inc. |
2 | |
3 # Copyright 2010-2012 Free Software Foundation, Inc. | |
4 # | 2 # |
5 # 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 |
6 # 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 |
7 # the Free Software Foundation; either version 3 of the License, or | 5 # the Free Software Foundation; either version 3 of the License, or |
8 # (at your option) any later version. | 6 # (at your option) any later version. |
9 # | 7 # |
10 # 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, |
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
14 # | 12 # |
15 # 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 |
16 # 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/>. |
17 | 15 |
18 # Auxiliary function to set the language to fortran. | 16 # FIXME: Presumably skip_go_tests should be defined here, |
| 17 # but for consistency with other languages it currently lives in gdb.exp. |
| 18 |
| 19 # Auxiliary function to set the language to Go. |
19 # The result is 1 (true) for success, 0 (false) for failure. | 20 # The result is 1 (true) for success, 0 (false) for failure. |
20 | 21 |
21 proc set_lang_fortran {} { | 22 proc set_lang_go {} { |
22 if [gdb_test_no_output "set language fortran"] { | 23 if [gdb_test_no_output "set language go"] { |
23 return 0 | 24 return 0 |
24 } | 25 } |
25 if [gdb_test "show language" ".* source language is \"fortran\"." \ | 26 if [gdb_test "show language" ".* source language is \"go\"." \ |
26 » "set language to \"fortran\""] { | 27 » "set language to \"go\""] { |
27 return 0 | 28 return 0 |
28 } | 29 } |
29 return 1; | 30 return 1 |
30 } | 31 } |
| 32 |
| 33 # Go version of runto_main. |
| 34 |
| 35 proc go_runto_main { } { |
| 36 return [runto main.main] |
| 37 } |
OLD | NEW |