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
|
set test "utf_user_trunc"
if {! [installtest_p]} { untested "$test"; return }
if {! [uprobes_p]} { untested "$test"; return }
set ::result_string {utf-16:012345678901234567890123456789012345678Z
utf-16:0123456789012345678901234567890123456789
utf-16:01234567890123456789012345678901234567Ω
utf-16:012345678901234567890123456789012345678
utf-16:0123456789012345678901234567890123456789
utf-16:0123456789012345678901234567890123456☺
utf-16:01234567890123456789012345678901234567
utf-16:012345678901234567890123456789012345678
utf-16:0123456789012345678901234567890123456789
utf-16:012345678901234567890123456789012345😈
utf-16:0123456789012345678901234567890123456
utf-16:01234567890123456789012345678901234567
utf-16:012345678901234567890123456789012345678
utf-16:0123456789012345678901234567890123456789
utf-32:012345678901234567890123456789012345678Z
utf-32:0123456789012345678901234567890123456789
utf-32:01234567890123456789012345678901234567Ω
utf-32:012345678901234567890123456789012345678
utf-32:0123456789012345678901234567890123456789
utf-32:0123456789012345678901234567890123456☺
utf-32:01234567890123456789012345678901234567
utf-32:012345678901234567890123456789012345678
utf-32:0123456789012345678901234567890123456789
utf-32:012345678901234567890123456789012345😈
utf-32:0123456789012345678901234567890123456
utf-32:01234567890123456789012345678901234567
utf-32:012345678901234567890123456789012345678
utf-32:0123456789012345678901234567890123456789}
set srcfile "$srcdir/$subdir/$test.c"
set stpfile "$srcdir/$subdir/$test.stp"
set exefile "[pwd]/$test.exe"
set test_flags "additional_flags=-g additional_flags=-DMAXSTRINGLEN=41"
set res [target_compile "$srcfile" "$exefile" executable "$test_flags"]
if { $res != "" } {
verbose "target_compile failed: $res" 2
fail "$test compile"
untested "$test"
return
} else {
pass "$test compile"
}
foreach runtime [get_runtime_list] {
if {$runtime != ""} {
# use module name of 10 chars + \0 to fit in MAXSTRINGLEN
set module [string range $test 0 9]
stap_run3 "$test ($runtime)" "$stpfile" -c "$exefile" \
-DMAXSTRINGLEN=41 --runtime=$runtime -m$module
} else {
stap_run3 $test "$stpfile" -c "$exefile" -DMAXSTRINGLEN=41
}
}
if { $verbose == 0 } { catch { exec rm -f $exefile } }
|
