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
|
set test "inlinedvars"
set ::result_string {call (22,84)
call2 (128,-22)
main (64,42)}
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 "*-*-*"
}
}
# Try both inlined and non-inlined compiles.
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 "additional_flags=-g $extra_flag"
set res [target_compile $srcdir/$subdir/$test.c $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" $srcdir/$subdir/$test.stp \
-c ./$test.exe --runtime=$runtime
} elseif {[uprobes_p]} {
stap_run3 "$test-$extra_name" $srcdir/$subdir/$test.stp \
-c ./$test.exe
} else {
untested "$test-$extra_name"
}
}
} else {
untested "$test-$extra_name"
}
catch {exec rm -f $test.exe}
}
|
