File: cast-user.stp

package info (click to toggle)
systemtap 5.3-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 47,556 kB
  • sloc: cpp: 81,117; ansic: 54,933; xml: 49,795; exp: 43,595; sh: 11,526; python: 5,003; perl: 2,252; tcl: 1,312; makefile: 1,006; javascript: 149; lisp: 105; awk: 101; asm: 91; java: 70; sed: 16
file content (36 lines) | stat: -rw-r--r-- 1,075 bytes parent folder | download | duplicates (9)
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
probe syscall.bind!, nd_syscall.bind
{
    if (pid() != target()) next

    sa = my_addr_uaddr
    family = 0xffff
    data = 42

    // Compare sa_family and sa_data using the target binary

    cast_family = @cast(sa, "sockaddr", @1)->sa_family
    if (family == cast_family)
        println("binary sa_family OK")
    else
        printf("binary sa_family %#x != %#x\n", family, cast_family)

    cast_data = @cast(sa, "sockaddr", @1)->sa_data[0]
    if (data == cast_data)
        println("binary sa_data OK")
    else
        printf("binary sa_data %d != %d\n", data, cast_data)

    // Compare sa_family and sa_data using a generated user module

    cast_family = @cast(sa, "sockaddr", "<sys/socket.h>")->sa_family
    if (family == cast_family)
        println("header sa_family OK")
    else
        printf("header sa_family %#x != %#x\n", family, cast_family)

    cast_data = @cast(sa, "sockaddr", "<sys/socket.h>")->sa_data[0]
    if (data == cast_data)
        println("header sa_data OK")
    else
        printf("header sa_data %d != %d\n", data, cast_data)
}