1# Copyright 2016-2017 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 16standard_testfile 17 18if { [build_executable ${testfile}.exp ${testfile} ${srcfile}] == -1 } { 19 return -1 20} 21if ![remote_file host exists [standard_output_file ${testfile}.dwp]] { 22 unsupported "testsuite run does not produce dwp files" 23 return 0 24} 25 26# Note: the procedure gdb_gnu_strip_debug will produce an executable called 27# ${binfile}, which is just like the executable ($binfile) but without 28# the debuginfo. Instead $binfile has a .gnu_debuglink section which contains 29# the name of a debuginfo only file. This file will be stored in the 30# gdb.base/ subdirectory. 31 32if [gdb_gnu_strip_debug $binfile$EXEEXT] { 33 # check that you have a recent version of strip and objcopy installed 34 unsupported "cannot produce separate debug info files" 35 return -1 36} 37 38clean_restart "$testfile" 39 40gdb_test "ptype main" {type = int \(int, char \*\*\)} 41