From: Tom de Vries <tdevries@suse.de>
Date: Wed, 3 Dec 2025 09:27:24 +0000 (+0100)
Subject: [gdb/testsuite] Fix ERROR: can't read _line_unit_advertised_version: no such variable
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=94c0142f43479d17807a5ec94bf55acc7878b791;p=thirdparty%2Fbinutils-gdb.git

[gdb/testsuite] Fix ERROR: can't read _line_unit_advertised_version: no such variable

With test-case gdb.base/until-trailing-insns.exp I run into:
...
ERROR: tcl error code TCL READ VARNAME
ERROR: can't read "_line_unit_advertised_version": no such variable
    while executing
"if {$_line_unit_advertised_version == "default"} {
            set _line_unit_advertised_version $_line_unit_version
        }"
...

Fix this by using the correct variable name in two places in Dwarf::lines:
use _line_unit_advertised_version instead of _line_advertised_unit_version.

Tested on x86_64-linux.
---

diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index 96a6d28d507..708bbd448de 100644
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -2490,14 +2490,14 @@ namespace eval Dwarf {
 	variable _line_header_finalized
 	variable _line_header_end_label
 	variable _line_unit_version
-	variable _line_advertised_unit_version
+	variable _line_unit_advertised_version
 	variable _line_is_64
 	variable _line_string_form
 
 	# Establish the defaults.
 	set _line_is_64 0
 	set _line_unit_version 4
-	set _line_advertised_unit_version default
+	set _line_unit_advertised_version default
 	set _unit_addr_size default
 	set _line_include_dirs {}
 	set _line_file_names {}