[gdb/testsuite] Fix main high_pc in nonvar-access.exp

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.dwarf2 / nonvar-access.exp

diff --git a/gdb/testsuite/gdb.dwarf2/nonvar-access.exp b/gdb/testsuite/gdb.dwarf2/nonvar-access.exp
index 594f590810224f8cac973106ccb2d041ba625b81..190ad5d764dc4d38801c1e894dcf2df777868164 100644 (file)
--- a/gdb/testsuite/gdb.dwarf2/nonvar-access.exp
+++ b/gdb/testsuite/gdb.dwarf2/nonvar-access.exp
@@ -27,6 +27,12 @@ standard_testfile main.c nonvar-access-dw.S
 set asm_file [standard_output_file $srcfile2]
 
 Dwarf::assemble $asm_file {
+    global srcdir subdir srcfile
+
+    set range [function_range main ${srcdir}/${subdir}/${srcfile}]
+    set main_start [lindex $range 0]
+    set main_length [lindex $range 1]
+
     cu {} {
        compile_unit {
            {DW_AT_name main.c}
@@ -98,7 +104,7 @@ Dwarf::assemble $asm_file {
                {name main}
                {DW_AT_external 1 flag}
                {low_pc [gdb_target_symbol main] DW_FORM_addr}
-               {high_pc [gdb_target_symbol main]+0x10000 DW_FORM_addr}
+               {high_pc "$main_start + $main_length" DW_FORM_addr}
            } {
                # Simple variable without location.
                DW_TAG_variable {