blob: 4f841b3069f6fab9833e70e9f2f77e633dd00be0 (
plain)
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
|
/* utrace-only subset of register accessors */
%{
#include "syscall.h"
%}
function _utrace_syscall_nr:long () %{ /* pure */ /* unprivileged */
assert_is_myproc();
if (! CONTEXT->regs) {
CONTEXT->last_error = "invalid call without context registers";
} else {
THIS->__retvalue = syscall_get_nr(current, CONTEXT->regs);
}
%}
function _utrace_syscall_arg:long (n:long) %{ /* pure */ /* unprivileged */
unsigned long arg = 0;
assert_is_myproc();
if (! CONTEXT->regs) {
CONTEXT->last_error = "invalid call without context registers";
} else {
syscall_get_arguments(current, CONTEXT->regs, (int)THIS->n, 1, &arg);
}
THIS->__retvalue = arg;
%}
function _utrace_syscall_return:long () %{ /* pure */ /* unprivileged */
/*
* Here's the reason for the "unsigned long" cast. Since all
* values inside systemtap are 64-bit numbers, return values were
* getting sign extended. This caused return values to not match
* up with the same values passes as arguments.
*/
assert_is_myproc();
if (! CONTEXT->regs) {
CONTEXT->last_error = "invalid call without context registers";
} else {
THIS->__retvalue = (unsigned long)syscall_get_return_value(current,
CONTEXT->regs);
}
%}
|