1# Copyright 2007-2020 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 16if {[gdb_skip_xml_test]} { 17 unsupported "tdesc-arch.exp" 18 return -1 19} 20 21gdb_start 22 23# Find some valid architectures - we just need legitimate values 24# to put in our <architecture> elements. 25set arch1 "" 26set arch2 "" 27set msg "read valid architectures" 28gdb_test_multiple "set architecture" $msg { 29 -re "Requires an argument. Valid arguments are (\[^ \]*), (\[^ \]*), .*auto\\.\r\n$gdb_prompt $" { 30 set arch1 $expect_out(1,string) 31 set arch2 $expect_out(2,string) 32 pass $msg 33 } 34 -re "Requires an argument. Valid arguments are (\[^ \]*), auto\\.\r\n$gdb_prompt $" { 35 # If there is just one supported architecture, we can't do this test. 36 unsupported "tdesc-arch.exp" 37 return -1 38 } 39} 40 41set default_arch "" 42set msg "read default architecture" 43gdb_test_multiple "show architecture" $msg { 44 -re "The target architecture is set to \"auto\" \\(currently \"(\[^ \]*)\"\\)\\.\r\n$gdb_prompt $" { 45 set default_arch $expect_out(1,string) 46 pass $msg 47 } 48} 49 50# If that did not work, no point running further tests. 51if { "$arch1" == "" || "$arch2" == "" || "$default_arch" == "" } { 52 unresolved "architecture XML tests" 53 return -1 54} 55 56# Run these tests twice, once for $arch1 and once for $arch2, to 57# make sure that the tdesc file overrides the global default. 58# TRANS_MODE indicates how newlines should be represented; it should 59# be one of the values supported by "fconfigure -translation". 60 61proc set_arch { arch which trans_mode } { 62 global gdb_prompt 63 global subdir 64 65 set filename [standard_output_file tdesc-arch.xml] 66 set fd [open $filename w] 67 fconfigure $fd -translation $trans_mode 68 puts $fd \ 69 "<target> 70 <architecture>$arch</architecture> 71 </target>" 72 close $fd 73 if {[is_remote host]} { 74 set filename [remote_download host $filename tdesc-arch.xml] 75 } 76 77 # Anchor the test output, so that error messages are detected. 78 set cmd "set tdesc filename $filename" 79 set msg "set tdesc filename tdesc-arch.xml ($which architecture)" 80 set cmd_regex [string_to_regexp $cmd] 81 gdb_test_multiple $cmd $msg { 82 -re "^$cmd_regex\r\n$gdb_prompt $" { 83 pass $msg 84 } 85 -re "^$cmd_regex\r\nwarning: A handler for the OS ABI.*\r\n$gdb_prompt $" { 86 kfail gdb/2225 $msg 87 } 88 } 89 90 set cmd "show architecture" 91 gdb_test $cmd \ 92 "The target architecture is set to \"auto\" \\(currently \"$arch\"\\)\\." \ 93 "$cmd ($which architecture)" 94 95 remote_file host delete $filename 96} 97 98set_arch $arch1 first lf 99set_arch $arch2 second lf 100 101with_test_prefix crlf { 102 set_arch $arch1 first crlf 103 set_arch $arch2 second crlf 104} 105 106# Check an invalid architecture setting. 107set filename [standard_output_file tdesc-arch.xml] 108set fd [open $filename w] 109puts $fd \ 110 "<target> 111 <architecture>invalid</architecture> 112 </target>" 113close $fd 114if {[is_remote host]} { 115 set filename [remote_download host $filename "tdesc-arch.xml"] 116} 117 118set cmd "set tdesc filename $filename" 119gdb_test $cmd \ 120 "warning:.*Target description specified unknown architecture.*" \ 121 "set tdesc filename tdesc-arch.xml (invalid architecture)" 122 123set cmd "show architecture" 124gdb_test $cmd \ 125 "The target architecture is set to \"auto\" \\(currently \"$default_arch\"\\)\\." \ 126 "$cmd (invalid architecture)" 127 128remote_file host delete $filename 129