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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
set test "ptr-1.2"
if {$::tcl_platform(wordSize) == 8} {
set ::result_string "0x0000000000000000
0x0000000000000001
0x0000000012345678
0x12345678abcdef00
0x0000000012345678
0x0000000000000000X
0x0000000000000001X
0x0000000012345678X
0x12345678abcdef00X
0x0000000012345678X
0x000000000000000000X
0x000000000000000001X
0x000000000012345678X
0x0012345678abcdef00X
0x000000000012345678X
0x000000
0x000001
0x12345678
0x12345678abcdef00
0x12345678
0x000000X
0x000001X
0x12345678X
0x12345678abcdef00X
0x12345678X
0x0000000000000000
0x0000000000000001
0x0000000012345678
0x12345678abcdef00
0x0000000012345678"
} else {
set ::result_string "0x00000000
0x00000001
0x12345678
0xabcdef00
0x12345678
0x00000000X
0x00000001X
0x12345678X
0xabcdef00X
0x12345678X
0x000000000000000000X
0x000000000000000001X
0x000000000012345678X
0x0000000000abcdef00X
0x000000000012345678X
0x000000
0x000001
0x12345678
0xabcdef00
0x12345678
0x000000X
0x000001X
0x12345678X
0xabcdef00X
0x12345678X
0x00000000
0x00000001
0x12345678
0xabcdef00
0x12345678"
}
foreach runtime [get_runtime_list] {
if {$runtime != ""} {
stap_run2 $srcdir/$subdir/$test.stp --runtime=$runtime --compatible=1.2
stap_run2 $srcdir/$subdir/$test.stp --runtime=$runtime --compatible=1.2 -DSTP_LEGACY_PRINT
} else {
stap_run2 $srcdir/$subdir/$test.stp --compatible=1.2
stap_run2 $srcdir/$subdir/$test.stp --compatible=1.2 -DSTP_LEGACY_PRINT
}
}
|
