1# Copyright 2012-2019 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# 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. 20# The result is 1 (true) for success, 0 (false) for failure. 21 22proc set_lang_go {} { 23 if [gdb_test_no_output "set language go"] { 24 return 0 25 } 26 if [gdb_test "show language" ".* source language is \"go\"." \ 27 "set language to \"go\""] { 28 return 0 29 } 30 return 1 31} 32 33# Go version of runto_main. 34 35proc go_runto_main { } { 36 return [runto main.main] 37} 38