blob: afffebca829e595419c57776dde406be70ba9fa9 (
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
|
# DW_AT_const_value (blocks).
set test "const_value"
set ::result_string {i: 2
j: 21}
set test_flags "additional_flags=-g"
# We need -O2 to get const_value encodings in dwarf.
set test_flags "$test_flags additional_flags=-O2"
set test_flags "$test_flags additional_flags=-I$srcdir/../includes/sys"
set res [target_compile $srcdir/$subdir/$test.c $test.exe executable "$test_flags"]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "$test.c compile"
untested "$test"
return
} else {
pass "$test.c compile"
}
# Test only when we are running an install test (can execute) and when
# gcc generated DW_AT_const_values for us. We are interested in block
# constant values.
if {[installtest_p] && [uprobes_p]} {
set dw_at_c {DW_AT_const_value}
if {![catch {exec readelf --debug-dump=info $test.exe | grep "$dw_at_c"}]} {
stap_run2 $srcdir/$subdir/$test.stp -c ./$test.exe
} {
untested "$test (no-const-value)"
}
} else {
untested "$test"
}
catch {exec rm -f $test.exe}
# DW_AT_const_value (address).
set test "const_value_func"
set ::result_string {f: bar}
set test_flags "additional_flags=-g"
# We need -O2 to get const_value encodings in dwarf.
set test_flags "$test_flags additional_flags=-O2"
set test_flags "$test_flags additional_flags=-I$srcdir/../includes/sys"
set res [target_compile $srcdir/$subdir/$test.c $test.exe executable "$test_flags"]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "$test.c compile"
untested "$test"
return
} else {
pass "$test.c compile"
}
# Test only when we are running an install test (can execute) and when
# gcc generated DW_AT_const_values for us. We are interested in pure
# constant addresses.
if {[installtest_p] && [uprobes_p]} {
set dw_at_c {DW_AT_const_value}
if {![catch {exec readelf --debug-dump=info $test.exe | grep "$dw_at_c"}]} {
setup_xfail 10739 "*-*-*"
stap_run2 $srcdir/$subdir/$test.stp -c ./$test.exe
} {
untested "$test (no-const-value)"
}
} else {
untested "$test"
}
catch {exec rm -f $test.exe}
|
