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
|
set test "inherit"
set ::result_string {1
2
3
4
42
{.foo=42, .bar={...}}
{.foo=42, .bar={.x=3, .y=4}}}
proc dyninst_kfails {index} {
# The dyninst runtime isn't multi-arch, it only works on the
# native architecture. PR14490.
if {! [all_compile_flag_native_p $index]} {
setup_kfail 14490 "*-*-*"
}
}
set srcfile "$srcdir/$subdir/$test.cxx"
set stpfile "$srcdir/$subdir/$test.stp"
for {set i 0} {$i < [all_compile_flags]} {incr i} {
set extra_flag [all_compile_flag $i]
set extra_name [all_compile_flag_name $i]
set test_flags "compiler=g++ additional_flags=-g $extra_flag"
set res [target_compile "$srcfile" $test.exe executable "$test_flags"]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "$test-$extra_name compile"
untested "$test-$extra_name"
continue
} else {
pass "$test-$extra_name compile"
}
if {[installtest_p]} {
foreach runtime [get_runtime_list] {
if {$runtime != ""} {
if {[info procs ${runtime}_kfails] ne ""} { ${runtime}_kfails $i }
stap_run3 "$test-$extra_name-$runtime" -w "$stpfile" $test.exe \
-c ./$test.exe --runtime=$runtime
} elseif {[uprobes_p]} {
stap_run3 "$test-$extra_name" -w "$stpfile" $test.exe -c ./$test.exe
} else {
untested "$test-$extra_name"
}
}
} else {
untested "$test-$extra_name"
}
catch {exec rm -f $test.exe}
}
|
