blob: d0993a5773c61ff10d80afa5bd5ab0511d7a44ab (
plain)
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
# Test reading debug information from in object files.
if { [skip_hp_tests] } { continue }
if { ![istarget "hppa*-*-hpux*"] } {
verbose "HPUX test ignored for non-hppa targets."
return 0
}
set testfile "test"
set srcsubdir ${srcdir}/${subdir}/objdbg03
set objdbgdir ${objdir}/${subdir}/objdbg03
set binfile ${objdbgdir}/${testfile}
set toolssubdir ${srcdir}/${subdir}/tools
if [istarget "hppa2.0w-*-*"] {
set symaddrfile ${toolssubdir}/symaddr.pa64
} else {
set symaddrfile ${toolssubdir}/symaddr
}
if { [gdb_compile "${toolssubdir}/test-objdbg.cc" "${objdbgdir}/test-objdbg.o" object "debug c++ {additional_flags=-I${toolssubdir} +objdebug}"] != "" } {
gdb_suppress_entire_file "WARNING: +objdebug option is not supported in this compiler version, test ignored."
}
if { [gdb_compile "${srcsubdir}/x1.cc" "${objdbgdir}/x1.o" object "debug c++ {additional_flags=-I${srcsubdir} +objdebug}"] != "" } {
perror "Couldn't compile x1.cc"
return -1
}
if { [gdb_compile "${srcsubdir}/x2.cc" "${objdbgdir}/x2.o" object "debug c++ {additional_flags=-I${srcsubdir} +objdebug}"] != "" } {
perror "Couldn't compile x2.cc"
return -1
}
if { [gdb_compile "${srcsubdir}/x3.cc" "${objdbgdir}/x3.o" object "debug c++ {additional_flags=-I${srcsubdir} +objdebug}"] != "" } {
perror "Couldn't compile x3.cc"
return -1
}
if { [gdb_compile "${objdbgdir}/x1.o ${objdbgdir}/x2.o ${objdbgdir}/x3.o" "${binfile}" executable "debug c++ {additional_flags=-I${srcsubdir} +objdebug}"] != "" } {
perror "Couldn't compile ${binfile}"
return -1
}
#
# Test some normal commons
#
# Print the types
gdb_exit
gdb_start
gdb_reinitialize_dir ${srcsubdir}
gdb_load ${binfile}
gdb_test "ptype common1" "type = int"
gdb_test "ptype common2" "type = int"
gdb_test "ptype common3" "type = int"
gdb_test "ptype data1" "type = int"
gdb_test "ptype data2" "type = int"
gdb_test "ptype data3" "type = int"
gdb_test "ptype common11" "type = int"
gdb_test "ptype common10" "type = int"
gdb_test "ptype data10" "type = int"
gdb_test "ptype data11" "type = int"
# Print the values
gdb_exit
gdb_start
gdb_reinitialize_dir ${srcsubdir}
gdb_load ${binfile}
gdb_test "b main" "Breakpoint \[0-9\]+ at 0x\[0-9a-f\]+: file ..*/x1.cc, line 11."
gdb_test "run" "Starting program:.*Breakpoint \[0-9\]+, main .*/x1.cc:11.*"
gdb_test "p data1" "..* = 1"
gdb_test "p data2" "..* = 2"
gdb_test "p data3" "..* = 3"
gdb_test "p data10" "..* = 10"
gdb_test "p data11" "..* = 11"
gdb_test "n" ".*12.*"
gdb_test "p common11" "..* = 11"
gdb_test "s 1" "foo .*/x3.cc:15.*"
gdb_test "s 4" ".*20.*"
gdb_test "p data4" "..* = 4"
gdb_test "p common4" "..* = 4"
gdb_test "n" ".*21.*"
gdb_test "n" "main .*/x1.cc:14.*"
gdb_test "p common1" "..* = 1"
gdb_test "p common2" "..* = 2"
gdb_test "p common3" "..* = 3"
# Verify that addresses match those in the executable
gdb_exit
gdb_start
gdb_reinitialize_dir ${srcsubdir}
gdb_load ${binfile}
set exec_output_data1 [lindex [remote_exec build "${symaddrfile} ${binfile} data1"] 1]
regsub -all "\[\r\n\]" ${exec_output_data1} "" exec_output_data1
set exec_output_data2 [lindex [remote_exec build "${symaddrfile} ${binfile} data2"] 1]
regsub -all "\[\r\n\]" ${exec_output_data2} "" exec_output_data2
set exec_output_data3 [lindex [remote_exec build "${symaddrfile} ${binfile} data3"] 1]
regsub -all "\[\r\n\]" ${exec_output_data3} "" exec_output_data3
set exec_output_data10 [lindex [remote_exec build "${symaddrfile} ${binfile} data10"] 1]
regsub -all "\[\r\n\]" ${exec_output_data10} "" exec_output_data10
set exec_output_data11 [lindex [remote_exec build "${symaddrfile} ${binfile} data11"] 1]
regsub -all "\[\r\n\]" ${exec_output_data11} "" exec_output_data11
set exec_output_common1 [lindex [remote_exec build "${symaddrfile} ${binfile} common1"] 1]
regsub -all "\[\r\n\]" ${exec_output_common1} "" exec_output_common1
set exec_output_common2 [lindex [remote_exec build "${symaddrfile} ${binfile} common2"] 1]
regsub -all "\[\r\n\]" ${exec_output_common2} "" exec_output_common2
set exec_output_common3 [lindex [remote_exec build "${symaddrfile} ${binfile} common3"] 1]
regsub -all "\[\r\n\]" ${exec_output_common3} "" exec_output_common3
set exec_output_common10 [lindex [remote_exec build "${symaddrfile} ${binfile} common10"] 1]
regsub -all "\[\r\n\]" ${exec_output_common10} "" exec_output_common10
set exec_output_common11 [lindex [remote_exec build "${symaddrfile} ${binfile} common11"] 1]
regsub -all "\[\r\n\]" ${exec_output_common11} "" exec_output_common11
if [istarget "hppa2.0w-*-*"] {
gdb_test "p &data1" "..* = \\(int \[*\]\\) ${exec_output_data1}"
gdb_test "p &data2" "..* = \\(int \[*\]\\) ${exec_output_data2}"
gdb_test "p &data3" "..* = \\(int \[*\]\\) ${exec_output_data3}"
gdb_test "p &data10" "..* = \\(int \[*\]\\) ${exec_output_data10}"
gdb_test "p &data11" "..* = \\(int \[*\]\\) ${exec_output_data11}"
gdb_test "p &common1" "..* = \\(int \[*\]\\) ${exec_output_common1}"
gdb_test "p &common2" "..* = \\(int \[*\]\\) ${exec_output_common2}"
gdb_test "p &common3" "..* = \\(int \[*\]\\) ${exec_output_common3}"
gdb_test "p &common10" "..* = \\(int \[*\]\\) ${exec_output_common10}"
gdb_test "p &common11" "..* = \\(int \[*\]\\) ${exec_output_common11}"
} else {
gdb_test "p &data1" "..* = \\(int \[*\]\\) 0x${exec_output_data1}"
gdb_test "p &data2" "..* = \\(int \[*\]\\) 0x${exec_output_data2}"
gdb_test "p &data3" "..* = \\(int \[*\]\\) 0x${exec_output_data3}"
gdb_test "p &data10" "..* = \\(int \[*\]\\) 0x${exec_output_data10}"
gdb_test "p &data11" "..* = \\(int \[*\]\\) 0x${exec_output_data11}"
gdb_test "p &common1" "..* = \\(int \[*\]\\) 0x${exec_output_common1}"
gdb_test "p &common2" "..* = \\(int \[*\]\\) 0x${exec_output_common2}"
gdb_test "p &common3" "..* = \\(int \[*\]\\) 0x${exec_output_common3}"
gdb_test "p &common10" "..* = \\(int \[*\]\\) 0x${exec_output_common10}"
gdb_test "p &common11" "..* = \\(int \[*\]\\) 0x${exec_output_common11}"
}
|
