1 # Copyright 2022-2024 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 # This test compiles two executables: crc_mismatch and crc_mismatch-2 17 # and then strips them of debuginfo creating separate debug files. The test 18 # then replaces crc_mismatch-2.debug with crc_mismatch.debug to trigger 19 # "CRC mismatch" warning. A local debuginfod server is setup to supply 20 # the correct debug file, now when GDB looks up the debug info no warning 21 # is given. 22 23 standard_testfile .c -2.c 24 25 load_lib debuginfod-support.exp 26 27 require allow_debuginfod_tests 28 29 if {[build_executable "build executable" $testfile $srcfile debug] == -1} { 30 untested "failed to compile" 31 return -1 32 } 33 34 # The procedure gdb_gnu_strip_debug will produce an executable called 35 # ${binfile}, which is just like the executable ($binfile) but without 36 # the debuginfo. Instead $binfile has a .gnu_debuglink section which 37 # contains the name of a debuginfo only file. 38 if {[gdb_gnu_strip_debug $binfile]} { 39 # Check that you have a recent version of strip and objcopy installed. 40 unsupported "cannot produce separate debug info files" 41 return -1 42 } 43 44 set debugfile [standard_output_file ${testfile}.debug] 45 set debugdir [standard_output_file "debug"] 46 remote_exec build "mkdir $debugdir" 47 remote_exec build "mkdir -p [file dirname $debugfile]" 48 remote_exec build "mv -f [standard_output_file ${testfile}.debug] $debugfile" 49 50 # Test CRC mismatch is reported. 51 if {[build_executable crc_mismatch.exp crc_mismatch-2 crc_mismatch-2.c debug] != -1 52 && ![gdb_gnu_strip_debug [standard_output_file crc_mismatch-2]]} { 53 54 # Copy the correct debug file for crc_mismatch-2 to the debugdir 55 # which is going to be used by local debuginfod. 56 remote_exec build "cp [standard_output_file crc_mismatch-2.debug] ${debugdir}" 57 # Move the unmatching debug file for crc_mismatch-2 instead of its real one 58 # to trigger the "CRC mismatch" warning. 59 remote_exec build "mv ${debugfile} [standard_output_file crc_mismatch-2.debug]" 60 61 clean_restart 62 63 set escapedobjdirsubdir [string_to_regexp [standard_output_file {}]] 64 gdb_test "file [standard_output_file crc_mismatch-2]" \ 65 [multi_line \ 66 "Reading symbols from ${escapedobjdirsubdir}/crc_mismatch-2\\.\\.\\." \ 67 "warning: the debug information found in \"${escapedobjdirsubdir}/crc_mismatch-2\\.debug\" does not match \"${escapedobjdirsubdir}/crc_mismatch-2\" \\(CRC mismatch\\)\\." \ 68 "\\(No debugging symbols found in .*\\)"] \ 69 "CRC mismatch is reported" 70 71 # Do the same thing again, but this time check that the styling is 72 # correct. 73 with_test_prefix "check styling" { 74 with_ansi_styling_terminal { 75 clean_restart 76 77 set debug_file_re [style "${escapedobjdirsubdir}/crc_mismatch-2\\.debug" file] 78 set exe_file_re [style "${escapedobjdirsubdir}/crc_mismatch-2" file] 79 80 gdb_test "file [standard_output_file crc_mismatch-2]" \ 81 [multi_line \ 82 "Reading symbols from ${exe_file_re}\\.\\.\\." \ 83 "warning: the debug information found in \"${debug_file_re}\" does not match \"${exe_file_re}\" \\(CRC mismatch\\)\\." \ 84 "\\(No debugging symbols found in \[^\r\n\]+\\)"] \ 85 "CRC mismatch is reported" 86 } 87 } 88 89 # Restart GDB with styling disabled. 90 clean_restart 91 } 92 93 # Create CACHE and DB directories ready for debuginfod to use. 94 prepare_for_debuginfod cache db 95 96 # Start debuginfod server, test the correct debuginfo was fetched 97 # from the server so there're not warnings anymore. 98 proc_with_prefix local_debuginfod { } { 99 global binfile db debugdir cache 100 set escapedobjdirsubdir [string_to_regexp [standard_output_file {}]] 101 102 set url [start_debuginfod $db $debugdir] 103 if {$url eq ""} { 104 unresolved "failed to start debuginfod server" 105 return 106 } 107 108 # Point the client to the server. 109 setenv DEBUGINFOD_URLS $url 110 111 # GDB should now find the symbol and source files. 112 clean_restart 113 114 # Enable debuginfod and fetch the debuginfo. 115 gdb_test_no_output "set debuginfod enabled on" 116 gdb_test "file $binfile" ".*Reading symbols from.*debuginfo.*" \ 117 "file [file tail $binfile] cmd on" 118 119 # CRC mismatch should not be reported now because the correct debuginfo 120 # should be fetched from debuginfod. 121 gdb_test "file [standard_output_file crc_mismatch-2]" \ 122 [multi_line \ 123 "Reading symbols from ${escapedobjdirsubdir}/crc_mismatch-2\\.\\.\\." \ 124 "Downloading.*separate debug info for ${escapedobjdirsubdir}/crc_mismatch-2\\.\\.\\." \ 125 "Reading symbols from ${cache}/\[^\r\n\]+\\.\\.\\.(?:\r\nExpanding full symbols from \[^\r\n\]+)*"] \ 126 "debuginfod running, info downloaded, no CRC mismatch" 127 } 128 129 with_debuginfod_env $cache { 130 local_debuginfod 131 } 132 133 stop_debuginfod 134 # Spare debug files may confuse testsuite runs in the future. 135 remote_exec build "rm -f $debugfile" 136
Indexes created Tue Apr 14 00:22:26 UTC 2026