1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# Copyright 2024 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
# Gcc 14 is the first release containing the fix for PR debug/111409.
require {expr [gcc_major_version] >= 14}
standard_testfile .c -2.c
proc do_tests { dwarf_version dwarf_bits strict_dwarf } {
set opts {}
lappend opts debug
lappend opts quiet
lappend opts additional_flags=-gsplit-dwarf
lappend opts macros
if { $dwarf_bits == 64 } {
lappend opts additional_flags=-gdwarf64
}
if { $strict_dwarf } {
lappend opts additional_flags=-gstrict-dwarf
}
lappend opts additional_flags=-gdwarf-$dwarf_version
set id v$dwarf_version-b$dwarf_bits-s$strict_dwarf
set srcfiles [list $::srcfile $::srcfile2]
if { [build_executable "failed to prepare" $::testfile-$id $srcfiles $opts] } {
return -1
}
clean_restart
gdb_load_no_complaints $::binfile-$id
if {![runto_main]} {
return 0
}
gdb_test "p FIRST" " = 1"
gdb_test "p SECOND" " = 2"
gdb_test "info macro FIRST" "#define FIRST 1"
gdb_test "info macro SECOND" "#define SECOND 2"
gdb_breakpoint foo
gdb_continue_to_breakpoint "foo"
gdb_test "p THIRD" " = 3"
gdb_test "p FOURTH" " = 4"
gdb_test "info macro THIRD" "#define THIRD 3"
gdb_test "info macro FOURTH" "#define FOURTH 4"
}
foreach_with_prefix dwarf_version {5} {
foreach_with_prefix dwarf_bits {32} {
foreach_with_prefix strict_dwarf {0 1} {
do_tests $dwarf_version $dwarf_bits $strict_dwarf
}
}
}
|
