1# Copyright 2013-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 18# Fission doesn't support macros yet. Bug 15954. 19if [using_fission] { 20 unsupported "fission" 21 return -1 22} 23 24if [is_remote host] { 25 unsupported "compiling on a remote host does not support a filename with directory." 26 return 0 27} 28 29set opts {debug additional_flags=-I.} 30 31get_compiler_info 32if [test_compiler_info gcc*] { 33 lappend opts additional_flags=-g3 34} 35 36if { [file pathtype $objdir] == "relative" } { 37 untested "objdir $objdir should be absolute" 38 return 39} 40set saved_pwd [pwd] 41cd $srcdir/${subdir}/base/two 42set err [gdb_compile "../../${srcfile}" "${binfile}" executable $opts] 43cd $saved_pwd 44if { $err != "" } { 45 untested "compilation failed" 46 return -1 47} 48 49clean_restart ${testfile} 50 51# Test macros respect DW_AT_comp_dir. 52 53# "list header_two_func" does not set exactly the one line we want. 54if ![runto header_two_func] { 55 return -1 56} 57 58gdb_test "info macro HEADER" "\r\n#define HEADER 2" 59