1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
set test "pretty-char"
set ::result_string {{.a='A', .b='\000', .c='\b', .d='\354', .e='z'}}
set script $srcdir/$subdir/$test.stp
set header /tmp/$test.h
file copy -force $srcdir/$subdir/$test.h $header
foreach runtime [get_runtime_list] {
if {$runtime != ""} {
# This should just use "<header>", but tcl exec insists on treating
# that as a redirect. We can instead abuse the fact that the
# tokenize() used by @cast ignores leading delimiters.
stap_run2 $script :<$header> -g --runtime=$runtime
stap_run2 $script :<$header> -g --runtime=$runtime -DSTP_LEGACY_PRINT
} else {
stap_run2 $script kernel<$header> -g
stap_run2 $script kernel<$header> -g -DSTP_LEGACY_PRINT
}
}
file delete -force $header
|
