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
|
# Utrace system call argument tests.
set test "utrace_syscall_args"
if {![installtest_p]} { untested "$test"; return }
if {![utrace_p]} { untested "$test"; return }
# Create a tempory directory.
if {[catch {exec mktemp -d -t staptestXXXXXX} tmpdir]} {
verbose -log "Failed to create temporary directory: $tmpdir"
return
}
set flags ""
set srcpath [file join [pwd] "$srcdir/$subdir/utrace_syscall_args.c"]
set exepath "${tmpdir}/utrace_syscall_args"
set stppath [file join [pwd] "$srcdir/$subdir/utrace_syscall_args.stp"]
# Save the current directory and switch to our temporary
# directory. Why do we want to run in the temporary directory? If the
# current directory is from an NFS filesystem, we'll get odd results
# back when calling fstat() on a newly created file.
set curdir [pwd]
cd ${tmpdir}
set output_string "mmap\\(\[0-9\]+\\)\\(0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+\\) = 0x\[0-9a-f]+\r\nmunmap\\(\[0-9\]+\\)\\(0x\[0-9a-f]+, 0x\[0-9a-f]+\\) = 0x\[0-9a-f]+\r\nclose\\(\[0-9\]+\\)\\(0x\[0-9a-f]+\\) = 0x\[0-9a-f]+\r\ndup\\(\[0-9\]+\\)\\(0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+\\) = 0x\[0-9a-f]+\r\nbad_syscall\\(-?\[0-9\]+\\)\\(0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+, 0x\[0-9a-f]+\\) = 0x\[0-9a-f]+\r\nsystemtap test success\r\n"
for {set i 0} {$i < [arch_compile_flags]} {incr i} {
set flags [arch_compile_flag $i]
set bits [arch_compile_flag_bits $i]
set testname "${bits}_BIT_UTRACE_SYSCALL_ARGS"
if {![installtest_p]} { untested $testname; continue }
if {![utrace_p]} { untested $testname; continue }
send_log "Testing ${testname}\n"
# Compile our test program.
set res [target_compile $srcpath $exepath executable $flags]
if { $res != "" } {
verbose "target_compile for $exepath failed: $res" 2
send_log "$testname: unable to compile $srcpath\n"
untested $testname
cd $curdir
return
}
# Run the test.
stap_run $testname wait_5_secs $output_string -g $stppath -c $exepath
catch {exec rm -f $exepath foobar}
}
# Restore current directory
cd ${curdir}
# Cleanup
catch {exec rm -f ${tmpdir}}
|
