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
|
set test "stmt_rel_user"
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 "*-*-*"
}
}
# Compile with inlining and check we can set a relative statement there
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 rel_flags "additional_flags=-Wall additional_flags=-Werror"
set rel_flags "$rel_flags additional_flags=-Winline"
set rel_flags "$rel_flags additional_flags=-g"
set rel_flags "$rel_flags $extra_flag"
set res [target_compile $srcdir/$subdir/$test.c [pwd]/$test.x executable $rel_flags]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "$test-$extra_name compiling"
cleanup_handler $verbose
continue
} else {
pass "$test-$extra_name compiling"
}
if {![installtest_p]} { untested "$test-$extra_name"; return }
foreach runtime [get_runtime_list] {
if {$runtime != ""} {
set test_name "$test-$extra_name-$runtime"
if { [info procs ${runtime}_kfails] ne "" } {
${runtime}_kfails $i
}
spawn stap --runtime=$runtime -c ./$test.x -e "probe process(\"./$test.x\").statement(\"Move@$test.c+2\") {printf(\"Move %d\\n\",\$s1)}"
} elseif {[uprobes_p]} {
set test_name "$test-$extra_name"
spawn stap -c ./$test.x -e "probe process(\"./$test.x\").statement(\"Move@$test.c+2\") {printf(\"Move %d\\n\",\$s1)}"
} else {
untested "$test-$extra_name"
continue
}
set ok 0
expect {
-timeout 180
-re {Move [0-9]} { incr ok; exp_continue }
timeout { fail "$test_name (timeout)" }
eof { }
}
catch {close}; catch {wait}
# PR13430 when optimizing we fail to set probes on all inlined lines.
if { [string first "O" $extra_name] != -1 } {
setup_kfail 13430 "*-*-*"
}
# A hanoi tower needs 2^n - 1 moves (n == 14 in the test program)
if { $ok == 16383 } {
pass "$test_name"
} else {
fail "$test_name ($ok)"
}
}
}
|
