[DTrace-devel] [PATCH v2 2/2] dlibs: pregenerated translators for 6.10
Alan Maguire
alan.maguire at oracle.com
Thu Jun 13 12:22:03 UTC 2024
On 07/06/2024 19:41, Nick Alcock via DTrace-devel wrote:
> All differences from the previous translators (6.1) are no-effect
> ordering changes other than those one would expect from the changes to
> the .d files.
>
> Signed-off-by: Nick Alcock <nick.alcock at oracle.com>
I hit the issue with the disappearing bd_partno field in io.d on 6.10 so
this is great!
nit: I guess defining
inline int dev_partno[struct block_device *B] = B->__bd_flags.counter &
0xff;
...might reduce complexity of some of the statements in io.d
Reviewed-by: Alan Maguire <alan.maguire at oracle.com>
> ---
> dlibs/aarch64/6.10/errno.d | 275 ++++++++++++++++++++++++++
> dlibs/aarch64/6.10/io.d | 234 ++++++++++++++++++++++
> dlibs/aarch64/6.10/ip.d | 341 +++++++++++++++++++++++++++++++++
> dlibs/aarch64/6.10/lockstat.d | 14 ++
> dlibs/aarch64/6.10/net.d | 33 ++++
> dlibs/aarch64/6.10/pcap.d | 35 ++++
> dlibs/aarch64/6.10/procfs.d | 306 +++++++++++++++++++++++++++++
> dlibs/aarch64/6.10/regs.d | 78 ++++++++
> dlibs/aarch64/6.10/sched.d | 38 ++++
> dlibs/aarch64/6.10/signal.d | 108 +++++++++++
> dlibs/aarch64/6.10/tcp.d | 231 ++++++++++++++++++++++
> dlibs/aarch64/6.10/udp.d | 71 +++++++
> dlibs/aarch64/6.10/unistd.d | 36 ++++
> dlibs/x86_64/6.10.0/errno.d | 275 ++++++++++++++++++++++++++
> dlibs/x86_64/6.10.0/io.d | 235 +++++++++++++++++++++++
> dlibs/x86_64/6.10.0/ip.d | 341 +++++++++++++++++++++++++++++++++
> dlibs/x86_64/6.10.0/lockstat.d | 14 ++
> dlibs/x86_64/6.10.0/net.d | 33 ++++
> dlibs/x86_64/6.10.0/pcap.d | 35 ++++
> dlibs/x86_64/6.10.0/procfs.d | 306 +++++++++++++++++++++++++++++
> dlibs/x86_64/6.10.0/regs.d | 94 +++++++++
> dlibs/x86_64/6.10.0/sched.d | 38 ++++
> dlibs/x86_64/6.10.0/signal.d | 108 +++++++++++
> dlibs/x86_64/6.10.0/tcp.d | 231 ++++++++++++++++++++++
> dlibs/x86_64/6.10.0/udp.d | 71 +++++++
> dlibs/x86_64/6.10.0/unistd.d | 36 ++++
> 26 files changed, 3617 insertions(+)
> create mode 100644 dlibs/aarch64/6.10/errno.d
> create mode 100644 dlibs/aarch64/6.10/io.d
> create mode 100644 dlibs/aarch64/6.10/ip.d
> create mode 100644 dlibs/aarch64/6.10/lockstat.d
> create mode 100644 dlibs/aarch64/6.10/net.d
> create mode 100644 dlibs/aarch64/6.10/pcap.d
> create mode 100644 dlibs/aarch64/6.10/procfs.d
> create mode 100644 dlibs/aarch64/6.10/regs.d
> create mode 100644 dlibs/aarch64/6.10/sched.d
> create mode 100644 dlibs/aarch64/6.10/signal.d
> create mode 100644 dlibs/aarch64/6.10/tcp.d
> create mode 100644 dlibs/aarch64/6.10/udp.d
> create mode 100644 dlibs/aarch64/6.10/unistd.d
> create mode 100644 dlibs/x86_64/6.10.0/errno.d
> create mode 100644 dlibs/x86_64/6.10.0/io.d
> create mode 100644 dlibs/x86_64/6.10.0/ip.d
> create mode 100644 dlibs/x86_64/6.10.0/lockstat.d
> create mode 100644 dlibs/x86_64/6.10.0/net.d
> create mode 100644 dlibs/x86_64/6.10.0/pcap.d
> create mode 100644 dlibs/x86_64/6.10.0/procfs.d
> create mode 100644 dlibs/x86_64/6.10.0/regs.d
> create mode 100644 dlibs/x86_64/6.10.0/sched.d
> create mode 100644 dlibs/x86_64/6.10.0/signal.d
> create mode 100644 dlibs/x86_64/6.10.0/tcp.d
> create mode 100644 dlibs/x86_64/6.10.0/udp.d
> create mode 100644 dlibs/x86_64/6.10.0/unistd.d
>
> diff --git a/dlibs/aarch64/6.10/errno.d b/dlibs/aarch64/6.10/errno.d
> new file mode 100644
> index 0000000000000..f54fafe1861cc
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/errno.d
> @@ -0,0 +1,275 @@
> +
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
> + * Use is subject to license terms.
> + */
> +
> +inline int EPERM = 1;
> +#pragma D binding "1.0" EPERM
> +inline int ENOENT = 2;
> +#pragma D binding "1.0" ENOENT
> +inline int ESRCH = 3;
> +#pragma D binding "1.0" ESRCH
> +inline int EINTR = 4;
> +#pragma D binding "1.0" EINTR
> +inline int EIO = 5;
> +#pragma D binding "1.0" EIO
> +inline int ENXIO = 6;
> +#pragma D binding "1.0" ENXIO
> +inline int E2BIG = 7;
> +#pragma D binding "1.0" E2BIG
> +inline int ENOEXEC = 8;
> +#pragma D binding "1.0" ENOEXEC
> +inline int EBADF = 9;
> +#pragma D binding "1.0" EBADF
> +inline int ECHILD = 10;
> +#pragma D binding "1.0" ECHILD
> +inline int EAGAIN = 11;
> +#pragma D binding "1.0" EAGAIN
> +inline int ENOMEM = 12;
> +#pragma D binding "1.0" ENOMEM
> +inline int EACCES = 13;
> +#pragma D binding "1.0" EACCES
> +inline int EFAULT = 14;
> +#pragma D binding "1.0" EFAULT
> +inline int ENOTBLK = 15;
> +#pragma D binding "1.0" ENOTBLK
> +inline int EBUSY = 16;
> +#pragma D binding "1.0" EBUSY
> +inline int EEXIST = 17;
> +#pragma D binding "1.0" EEXIST
> +inline int EXDEV = 18;
> +#pragma D binding "1.0" EXDEV
> +inline int ENODEV = 19;
> +#pragma D binding "1.0" ENODEV
> +inline int ENOTDIR = 20;
> +#pragma D binding "1.0" ENOTDIR
> +inline int EISDIR = 21;
> +#pragma D binding "1.0" EISDIR
> +inline int EINVAL = 22;
> +#pragma D binding "1.0" EINVAL
> +inline int ENFILE = 23;
> +#pragma D binding "1.0" ENFILE
> +inline int EMFILE = 24;
> +#pragma D binding "1.0" EMFILE
> +inline int ENOTTY = 25;
> +#pragma D binding "1.0" ENOTTY
> +inline int ETXTBSY = 26;
> +#pragma D binding "1.0" ETXTBSY
> +inline int EFBIG = 27;
> +#pragma D binding "1.0" EFBIG
> +inline int ENOSPC = 28;
> +#pragma D binding "1.0" ENOSPC
> +inline int ESPIPE = 29;
> +#pragma D binding "1.0" ESPIPE
> +inline int EROFS = 30;
> +#pragma D binding "1.0" EROFS
> +inline int EMLINK = 31;
> +#pragma D binding "1.0" EMLINK
> +inline int EPIPE = 32;
> +#pragma D binding "1.0" EPIPE
> +inline int EDOM = 33;
> +#pragma D binding "1.0" EDOM
> +inline int ERANGE = 34;
> +#pragma D binding "1.0" ERANGE
> +inline int EDEADLK = 35;
> +#pragma D binding "1.0" EDEADLK
> +inline int ENAMETOOLONG = 36;
> +#pragma D binding "1.0" ENAMETOOLONG
> +inline int ENOLCK = 37;
> +#pragma D binding "1.0" ENOLCK
> +inline int ENOSYS = 38;
> +#pragma D binding "1.0" ENOSYS
> +inline int ENOTEMPTY = 39;
> +#pragma D binding "1.0" ENOTEMPTY
> +inline int ELOOP = 40;
> +#pragma D binding "1.0" ELOOP
> +inline int EWOULDBLOCK = 11;
> +#pragma D binding "1.0" EWOULDBLOCK
> +inline int ENOMSG = 42;
> +#pragma D binding "1.0" ENOMSG
> +inline int EIDRM = 43;
> +#pragma D binding "1.0" EIDRM
> +inline int ECHRNG = 44;
> +#pragma D binding "1.0" ECHRNG
> +inline int EL2NSYNC = 45;
> +#pragma D binding "1.0" EL2NSYNC
> +inline int EL3HLT = 46;
> +#pragma D binding "1.0" EL3HLT
> +inline int EL3RST = 47;
> +#pragma D binding "1.0" EL3RST
> +inline int ELNRNG = 48;
> +#pragma D binding "1.0" ELNRNG
> +inline int EUNATCH = 49;
> +#pragma D binding "1.0" EUNATCH
> +inline int ENOCSI = 50;
> +#pragma D binding "1.0" ENOCSI
> +inline int EL2HLT = 51;
> +#pragma D binding "1.0" EL2HLT
> +inline int EBADE = 52;
> +#pragma D binding "1.0" EBADE
> +inline int EBADR = 53;
> +#pragma D binding "1.0" EBADR
> +inline int EXFULL = 54;
> +#pragma D binding "1.0" EXFULL
> +inline int ENOANO = 55;
> +#pragma D binding "1.0" ENOANO
> +inline int EBADRQC = 56;
> +#pragma D binding "1.0" EBADRQC
> +inline int EBADSLT = 57;
> +#pragma D binding "1.0" EBADSLT
> +inline int EDEADLOCK = 35;
> +#pragma D binding "1.0" EDEADLOCK
> +inline int EBFONT = 59;
> +#pragma D binding "1.0" EBFONT
> +inline int ENOSTR = 60;
> +#pragma D binding "1.0" ENOSTR
> +inline int ENODATA = 61;
> +#pragma D binding "1.0" ENODATA
> +inline int ETIME = 62;
> +#pragma D binding "1.0" ETIME
> +inline int ENOSR = 63;
> +#pragma D binding "1.0" ENOSR
> +inline int ENONET = 64;
> +#pragma D binding "1.0" ENONET
> +inline int ENOPKG = 65;
> +#pragma D binding "1.0" ENOPKG
> +inline int EREMOTE = 66;
> +#pragma D binding "1.0" EREMOTE
> +inline int ENOLINK = 67;
> +#pragma D binding "1.0" ENOLINK
> +inline int EADV = 68;
> +#pragma D binding "1.0" EADV
> +inline int ESRMNT = 69;
> +#pragma D binding "1.0" ESRMNT
> +inline int ECOMM = 70;
> +#pragma D binding "1.0" ECOMM
> +inline int EPROTO = 71;
> +#pragma D binding "1.0" EPROTO
> +inline int EMULTIHOP = 72;
> +#pragma D binding "1.0" EMULTIHOP
> +inline int EDOTDOT = 73;
> +#pragma D binding "1.0" EDOTDOT
> +inline int EBADMSG = 74;
> +#pragma D binding "1.0" EBADMSG
> +inline int EOVERFLOW = 75;
> +#pragma D binding "1.0" EOVERFLOW
> +inline int ENOTUNIQ = 76;
> +#pragma D binding "1.0" ENOTUNIQ
> +inline int EBADFD = 77;
> +#pragma D binding "1.0" EBADFD
> +inline int EREMCHG = 78;
> +#pragma D binding "1.0" EREMCHG
> +inline int ELIBACC = 79;
> +#pragma D binding "1.0" ELIBACC
> +inline int ELIBBAD = 80;
> +#pragma D binding "1.0" ELIBBAD
> +inline int ELIBSCN = 81;
> +#pragma D binding "1.0" ELIBSCN
> +inline int ELIBMAX = 82;
> +#pragma D binding "1.0" ELIBMAX
> +inline int ELIBEXEC = 83;
> +#pragma D binding "1.0" ELIBEXEC
> +inline int EILSEQ = 84;
> +#pragma D binding "1.0" EILSEQ
> +inline int ERESTART = 85;
> +#pragma D binding "1.0" ERESTART
> +inline int ESTRPIPE = 86;
> +#pragma D binding "1.0" ESTRPIPE
> +inline int EUSERS = 87;
> +#pragma D binding "1.0" EUSERS
> +inline int ENOTSOCK = 88;
> +#pragma D binding "1.0" ENOTSOCK
> +inline int EDESTADDRREQ = 89;
> +#pragma D binding "1.0" EDESTADDRREQ
> +inline int EMSGSIZE = 90;
> +#pragma D binding "1.0" EMSGSIZE
> +inline int EPROTOTYPE = 91;
> +#pragma D binding "1.0" EPROTOTYPE
> +inline int ENOPROTOOPT = 92;
> +#pragma D binding "1.0" ENOPROTOOPT
> +inline int EPROTONOSUPPORT = 93;
> +#pragma D binding "1.0" EPROTONOSUPPORT
> +inline int ESOCKTNOSUPPORT = 94;
> +#pragma D binding "1.0" ESOCKTNOSUPPORT
> +inline int EOPNOTSUPP = 95;
> +#pragma D binding "1.0" EOPNOTSUPP
> +inline int EPFNOSUPPORT = 96;
> +#pragma D binding "1.0" EPFNOSUPPORT
> +inline int EAFNOSUPPORT = 97;
> +#pragma D binding "1.0" EAFNOSUPPORT
> +inline int EADDRINUSE = 98;
> +#pragma D binding "1.0" EADDRINUSE
> +inline int EADDRNOTAVAIL = 99;
> +#pragma D binding "1.0" EADDRNOTAVAIL
> +inline int ENETDOWN = 100;
> +#pragma D binding "1.0" ENETDOWN
> +inline int ENETUNREACH = 101;
> +#pragma D binding "1.0" ENETUNREACH
> +inline int ENETRESET = 102;
> +#pragma D binding "1.0" ENETRESET
> +inline int ECONNABORTED = 103;
> +#pragma D binding "1.0" ECONNABORTED
> +inline int ECONNRESET = 104;
> +#pragma D binding "1.0" ECONNRESET
> +inline int ENOBUFS = 105;
> +#pragma D binding "1.0" ENOBUFS
> +inline int EISCONN = 106;
> +#pragma D binding "1.0" EISCONN
> +inline int ENOTCONN = 107;
> +#pragma D binding "1.0" ENOTCONN
> +inline int ESHUTDOWN = 108;
> +#pragma D binding "1.0" ESHUTDOWN
> +inline int ETOOMANYREFS = 109;
> +#pragma D binding "1.0" ETOOMANYREFS
> +inline int ETIMEDOUT = 110;
> +#pragma D binding "1.0" ETIMEDOUT
> +inline int ECONNREFUSED = 111;
> +#pragma D binding "1.0" ECONNREFUSED
> +inline int EHOSTDOWN = 112;
> +#pragma D binding "1.0" EHOSTDOWN
> +inline int EHOSTUNREACH = 113;
> +#pragma D binding "1.0" EHOSTUNREACH
> +inline int EALREADY = 114;
> +#pragma D binding "1.0" EALREADY
> +inline int EINPROGRESS = 115;
> +#pragma D binding "1.0" EINPROGRESS
> +inline int ESTALE = 116;
> +#pragma D binding "1.0" ESTALE
> +inline int EUCLEAN = 117;
> +#pragma D binding "1.0" EUCLEAN
> +inline int ENOTNAM = 118;
> +#pragma D binding "1.0" ENOTNAM
> +inline int ENAVAIL = 119;
> +#pragma D binding "1.0" ENAVAIL
> +inline int EISNAM = 120;
> +#pragma D binding "1.0" EISNAM
> +inline int EREMOTEIO = 121;
> +#pragma D binding "1.0" EREMOTEIO
> +inline int EDQUOT = 122;
> +#pragma D binding "1.0" EDQUOT
> +inline int ENOMEDIUM = 123;
> +#pragma D binding "1.0" ENOMEDIUM
> +inline int EMEDIUMTYPE = 124;
> +#pragma D binding "1.0" EMEDIUMTYPE
> +inline int ECANCELED = 125;
> +#pragma D binding "1.0" ECANCELED
> +inline int ENOKEY = 126;
> +#pragma D binding "1.0" ENOKEY
> +inline int EKEYEXPIRED = 127;
> +#pragma D binding "1.0" EKEYEXPIRED
> +inline int EKEYREVOKED = 128;
> +#pragma D binding "1.0" EKEYREVOKED
> +inline int EKEYREJECTED = 129;
> +#pragma D binding "1.0" EKEYREJECTED
> +inline int EOWNERDEAD = 130;
> +#pragma D binding "1.0" EOWNERDEAD
> +inline int ENOTRECOVERABLE = 131;
> +#pragma D binding "1.0" ENOTRECOVERABLE
> +inline int ERFKILL = 132;
> +#pragma D binding "1.0" ERFKILL
> +inline int EHWPOISON = 133;
> +#pragma D binding "1.0" EHWPOISON
> +inline int ENOTSUP = 95;
> +#pragma D binding "1.0" ENOTSUP
> diff --git a/dlibs/aarch64/6.10/io.d b/dlibs/aarch64/6.10/io.d
> new file mode 100644
> index 0000000000000..ffccf5b3e3f18
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/io.d
> @@ -0,0 +1,234 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2024, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider sched
> +
> +typedef char *caddr_t;
> +
> +typedef struct bufinfo {
> + int b_flags; /* buffer status */
> + size_t b_bcount; /* number of bytes */
> + caddr_t b_addr; /* buffer address */
> + uint64_t b_lblkno; /* block # on device */
> + uint64_t b_blkno; /* expanded block # on device */
> + size_t b_resid; /* # of bytes not transferred */
> + size_t b_bufsize; /* size of allocated buffer */
> + caddr_t b_iodone; /* I/O completion routine */
> + int b_error; /* expanded error field */
> + dev_t b_edev; /* extended device */
> +} bufinfo_t;
> +
> +inline int B_BUSY = 0x000001;
> +#pragma D binding "1.0" B_BUSY
> +inline int B_DONE = 0x000002;
> +#pragma D binding "1.0" B_DONE
> +inline int B_ERROR = 0x000004;
> +#pragma D binding "1.0" B_ERROR
> +inline int B_PAGEIO = 0x000010;
> +#pragma D binding "1.0" B_PAGEIO
> +inline int B_PHYS = 0x000020;
> +#pragma D binding "1.0" B_PHYS
> +inline int B_READ = 0x000040;
> +#pragma D binding "1.0" B_READ
> +inline int B_WRITE = 0x000100;
> +#pragma D binding "1.0" B_WRITE
> +inline int B_ASYNC = 0x000400;
> +#pragma D binding "1.0" B_ASYNC
> +
> +#pragma D binding "1.0" translator
> +translator bufinfo_t < struct buffer_head *B > {
> + b_flags = (int)arg1 & 0x01 ? B_WRITE : B_READ;
> + b_addr = B->b_data;
> + b_bcount = B->b_size;
> + b_lblkno = B->b_blocknr;
> + b_blkno = B->b_blocknr;
> + b_resid = 0;
> + b_bufsize = B->b_size;
> + b_iodone = (caddr_t)B->b_end_io;
> + b_error = 0; /* b_state ?? */
> + b_edev = B->b_bdev->bd_dev;
> +};
> +
> +/*
> + * From linux/blk_types.h.
> + */
> +
> +/* bit # in bi_flags */
> +inline int BIO_USER_MAPPED = 6;
> +
> +/* bit mask in bi_rw */
> +inline int REQ_WRITE = 0x01;
> +
> +inline int REQ_SYNC = 0x800;
> +
> +
> +
> +
> +
> +
> +
> +#pragma D binding "1.6.3" translator
> +translator bufinfo_t < struct bio *B > {
> + b_flags = ((int)B->bi_opf & REQ_WRITE ? B_WRITE : B_READ) |
> + ((int)B->bi_opf & REQ_SYNC ? 0 : B_ASYNC) |
> + ((int)B->bi_flags & (1 << BIO_USER_MAPPED) ? B_PAGEIO : B_PHYS);
> + b_addr = 0;
> + b_bcount = B->bi_iter.bi_size;
> + b_lblkno = B->bi_iter.bi_sector;
> + b_blkno = B->bi_iter.bi_sector;
> + b_resid = 0;
> + b_bufsize = B->bi_iter.bi_size;
> + b_iodone = (caddr_t)B->bi_end_io;
> + b_error = 0;
> + b_edev = B->bi_bdev == NULL ? 0 : B->bi_bdev->bd_dev;
> +};
> +
> +typedef struct devinfo {
> + int dev_major; /* major number */
> + int dev_minor; /* minor number */
> + int dev_instance; /* instance number */
> + string dev_name; /* name of device */
> + string dev_statname; /* name of device + instance/minor */
> + string dev_pathname; /* pathname of device */
> +} devinfo_t;
> +
> +
> +
> +#pragma D binding "1.0" translator
> +translator devinfo_t < struct buffer_head *B > {
> + dev_major = getmajor(B->b_bdev->bd_dev);
> + dev_minor = getminor(B->b_bdev->bd_dev);
> + dev_instance = 0; /* not used? */
> + dev_name = B->b_bdev->bd_disk->part0->bd_device.parent
> + ? B->b_bdev->bd_disk->part0->bd_device.parent->driver->name
> + ? stringof(B->b_bdev->bd_disk->part0->bd_device.parent->driver->name)
> + : "<none>"
> + : B->b_bdev->bd_disk->part0->bd_device.driver->name
> + ? stringof(B->b_bdev->bd_disk->part0->bd_device.driver->name)
> + : "<none>";
> + dev_statname = B->b_bdev->__bd_flags.counter & 255 == 0
> + ? stringof(B->b_bdev->bd_disk->disk_name)
> + : strjoin(stringof(B->b_bdev->bd_disk->disk_name),
> + lltostr(B->b_bdev->__bd_flags.counter & 255));
> + dev_pathname = strjoin(
> + "/dev/",
> + B->b_bdev->__bd_flags.counter & 255 == 0
> + ? stringof(B->b_bdev->bd_disk->disk_name)
> + : strjoin(stringof(B->b_bdev->bd_disk->disk_name),
> + lltostr(B->b_bdev->__bd_flags.counter & 255))
> + );
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator devinfo_t < struct bio *B > {
> + dev_major = B->bi_bdev == NULL ? 0 : getmajor(B->bi_bdev->bd_dev);
> + dev_minor = B->bi_bdev == NULL ? 0 : getminor(B->bi_bdev->bd_dev);
> + dev_instance = 0;
> + dev_name = B->bi_bdev == NULL
> + ? "nfs"
> + : stringof(((struct blk_major_name **)`major_names)[
> + getmajor(B->bi_bdev->bd_dev) % 255
> + ]->name);
> + dev_statname = B->bi_bdev == NULL ? "nfs" :
> + B->bi_bdev->__bd_flags.counter & 255 == 0 ? stringof(B->bi_bdev->bd_disk->disk_name) :
> + strjoin(stringof(B->bi_bdev->bd_disk->disk_name), lltostr(B->bi_bdev->__bd_flags.counter & 255));
> + dev_pathname = B->bi_bdev == NULL ? "<nfs>" : "<unknown>";
> +};
> +
> +typedef struct fileinfo {
> + string fi_name; /* name (basename of fi_pathname) */
> + string fi_dirname; /* directory (dirname of fi_pathname) */
> + string fi_pathname; /* full pathname */
> + loff_t fi_offset; /* offset within file */
> + string fi_fs; /* filesystem */
> + string fi_mount; /* mount point of file system */
> + int fi_oflags; /* open(2) flags for file descriptor */
> +} fileinfo_t;
> +
> +#pragma D binding "1.0" translator
> +translator fileinfo_t < struct buffer_head *B > {
> + fi_name = "<unknown>";
> + fi_dirname = "<unknown>";
> + fi_pathname = "<unknown>";
> + fi_offset = 0;
> + fi_fs = "<unknown>";
> + fi_mount = "<unknown>";
> + fi_oflags = 0;
> +};
> +
> +inline int O_ACCMODE = 0003;
> +#pragma D binding "1.1" O_ACCMODE
> +inline int O_RDONLY = 00;
> +#pragma D binding "1.1" O_RDONLY
> +inline int O_WRONLY = 01;
> +#pragma D binding "1.1" O_WRONLY
> +inline int O_RDWR = 02;
> +#pragma D binding "1.1" O_RDWR
> +inline int O_CREAT = 00000100;
> +#pragma D binding "1.1" O_CREAT
> +inline int O_EXCL = 00000200;
> +#pragma D binding "1.1" O_EXCL
> +inline int O_NOCTTY = 00000400;
> +#pragma D binding "1.1" O_NOCTTY
> +inline int O_TRUNC = 00001000;
> +#pragma D binding "1.1" O_TRUNC
> +inline int O_APPEND = 00002000;
> +#pragma D binding "1.1" O_APPEND
> +inline int O_NONBLOCK = 00004000;
> +#pragma D binding "1.1" O_NONBLOCK
> +inline int O_NDELAY = 00004000;
> +#pragma D binding "1.1" O_NDELAY
> +inline int O_SYNC = (04000000|010000);
> +#pragma D binding "1.1" O_SYNC
> +
> +inline int O_ASYNC = 020000;
> +#pragma D binding "1.1" O_ASYNC
> +inline int O_DIRECTORY = 040000;
> +#pragma D binding "1.1" O_DIRECTORY
> +inline int O_NOFOLLOW = 0100000;
> +#pragma D binding "1.1" O_NOFOLLOW
> +inline int O_CLOEXEC = 02000000;
> +#pragma D binding "1.1" O_CLOEXEC
> +inline int O_DSYNC = 010000;
> +#pragma D binding "1.1" O_DSYNC
> +inline int O_RSYNC = (04000000|010000);
> +#pragma D binding "1.1" O_RSYNC
> +
> +#pragma D binding "1.1" translator
> +translator fileinfo_t < struct file *F > {
> + fi_name = F == NULL
> + ? "<none>"
> + : stringof(F->f_path.dentry->d_name.name);
> + fi_dirname = F == NULL
> + ? "<none>"
> + : dirname(d_path(&(F->f_path)));
> + fi_pathname = F == NULL
> + ? "<none>"
> + : d_path(&(F->f_path));
> + fi_offset = F == NULL
> + ? 0
> + : F->f_pos;
> + fi_fs = F == NULL
> + ? "<none>"
> + : stringof(F->f_path.mnt->mnt_sb->s_type->name);
> + fi_mount = F == NULL
> + ? "<none>"
> + : "<unknown>";
> + fi_oflags = F == NULL
> + ? 0
> + : F->f_flags;
> +};
> +
> +inline fileinfo_t fds[int fd] = xlate <fileinfo_t> (
> + fd >= 0 && fd < curthread->files->fdt->max_fds
> + ? curthread->files->fdt->fd[fd]
> + : NULL
> + );
> +
> +#pragma D attributes Stable/Stable/Common fds
> +#pragma D binding "1.1" fds
> diff --git a/dlibs/aarch64/6.10/ip.d b/dlibs/aarch64/6.10/ip.d
> new file mode 100644
> index 0000000000000..f8b77f1224115
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/ip.d
> @@ -0,0 +1,341 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on library procfs.d
> +#pragma D depends_on provider ip
> +
> +inline int IPPROTO_IP = 0;
> +inline int IPPROTO_ICMP = 1;
> +inline int IPPROTO_IGMP = 2;
> +inline int IPPROTO_IPIP = 4;
> +inline int IPPROTO_TCP = 6;
> +inline int IPPROTO_EGP = 8;
> +inline int IPPROTO_PUP = 12;
> +inline int IPPROTO_UDP = 17;
> +inline int IPPROTO_IDP = 22;
> +inline int IPPROTO_TP = 29;
> +inline int IPPROTO_DCCP = 33;
> +inline int IPPROTO_IPV6 = 41;
> +inline int IPPROTO_RSVP = 46;
> +inline int IPPROTO_GRE = 47;
> +inline int IPPROTO_ESP = 50;
> +inline int IPPROTO_AH = 51;
> +inline int IPPROTO_OSPF = 89;
> +inline int IPPROTO_MTP = 92;
> +inline int IPPROTO_BEETPH = 94;
> +inline int IPPROTO_ENCAP = 98;
> +inline int IPPROTO_PIM = 103;
> +inline int IPPROTO_COMP = 108;
> +inline int IPPROTO_SCTP = 132;
> +inline int IPPROTO_UDPLITE = 136;
> +inline int IPPROTO_RAW = 255;
> +inline int IPPROTO_MAX = 256;
> +inline int IPPROTO_HOPOPTS = 0;
> +inline int IPPROTO_ROUTING = 43;
> +inline int IPPROTO_FRAGMENT = 44;
> +inline int IPPROTO_ICMPV6 = 58;
> +inline int IPPROTO_NONE = 59;
> +inline int IPPROTO_DSTOPTS = 60;
> +inline int IPPROTO_MH = 135;
> +
> +inline int TCP_MIN_HEADER_LENGTH = 20;
> +
> +/*
> + * For compatibility with Solaris. Here the netstackid will be the pointer
> + * to the net namespace (nd_net in struct net_device).
> + */
> +typedef uint64_t netstackid_t;
> +typedef __be32 ipaddr_t;
> +typedef struct in6_addr in6_addr_t;
> +
> +/*
> + * pktinfo is where packet ID info can be made available for deeper
> + * analysis if packet IDs become supported by the kernel in the future.
> + * The pkt_addr member is currently always NULL.
> + */
> +typedef struct pktinfo {
> + uintptr_t pkt_addr;
> +} pktinfo_t;
> +
> +/*
> + * csinfo is where connection state info is made available.
> + */
> +typedef struct csinfo {
> + uintptr_t cs_addr;
> + uint64_t cs_cid;
> +} csinfo_t;
> +
> +/*
> + * ipinfo contains common IP info for both IPv4 and IPv6.
> + */
> +typedef struct ipinfo {
> + uint8_t ip_ver; /* IP version (4, 6) */
> + uint32_t ip_plength; /* payload length */
> + string ip_saddr; /* source address */
> + string ip_daddr; /* destination address */
> +} ipinfo_t;
> +
> +/*
> + * ifinfo contains network interface info.
> + */
> +typedef struct ifinfo {
> + string if_name; /* interface name */
> + int8_t if_local; /* is delivered locally */
> + netstackid_t if_ipstack; /* netns pointer on Linux */
> + uintptr_t if_addr; /* pointer to raw struct net_device */
> +} ifinfo_t;
> +
> +/*
> + * ipv4info is a translated version of the IPv4 header (with raw pointer).
> + * These values are NULL if the packet is not IPv4.
> + */
> +typedef struct ipv4info {
> + uint8_t ipv4_ver; /* IP version (4) */
> + uint8_t ipv4_ihl; /* header length, bytes */
> + uint8_t ipv4_tos; /* type of service field */
> + uint16_t ipv4_length; /* length (header + payload) */
> + uint16_t ipv4_ident; /* identification */
> + uint8_t ipv4_flags; /* IP flags */
> + uint16_t ipv4_offset; /* fragment offset */
> + uint8_t ipv4_ttl; /* time to live */
> + uint8_t ipv4_protocol; /* next level protocol */
> + string ipv4_protostr; /* next level protocol, as string */
> + uint16_t ipv4_checksum; /* header checksum */
> + ipaddr_t ipv4_src; /* source address */
> + ipaddr_t ipv4_dst; /* destination address */
> + string ipv4_saddr; /* source address, string */
> + string ipv4_daddr; /* destination address, string */
> + struct iphdr *ipv4_hdr; /* pointer to raw header */
> +} ipv4info_t;
> +
> +/*
> + * ipv6info is a translated version of the IPv6 header (with raw pointer).
> + * These values are NULL if the packet is not IPv6.
> + */
> +typedef struct ipv6info {
> + uint8_t ipv6_ver; /* IP version (6) */
> + uint8_t ipv6_tclass; /* traffic class */
> + uint32_t ipv6_flow; /* flow label */
> + uint16_t ipv6_plen; /* payload length */
> + uint8_t ipv6_nexthdr; /* next header protocol */
> + string ipv6_nextstr; /* next header protocol, as string */
> + uint8_t ipv6_hlim; /* hop limit */
> + in6_addr_t *ipv6_src; /* source address */
> + in6_addr_t *ipv6_dst; /* destination address */
> + string ipv6_saddr; /* source address, string */
> + string ipv6_daddr; /* destination address, string */
> + struct ipv6hdr *ipv6_hdr; /* pointer to raw header */
> +} ipv6info_t;
> +
> +/*
> + * void_ip_t is a void pointer to either an IPv4 or IPv6 header. It has
> + * its own type name so that a translator can be determined.
> + */
> +typedef uintptr_t void_ip_t;
> +
> +/*
> + * __dtrace_tcp_void_ip_t is used by the translator to take either the
> + * non-NULL void_ip_t * passed in or, if it is NULL, uses arg3 (struct tcp *)
> + * from the tcp:::send probe to translate to an ipinfo_t.
> + * This allows us to present the consumer with header data based on the
> + * struct tcp * when IP information is not yet present (for TCP send).
> + */
> +typedef void * __dtrace_tcp_void_ip_t;
> +
> +#pragma D binding "1.5" translator
> +translator pktinfo_t < struct sk_buff *s > {
> + pkt_addr = (uintptr_t)s;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator csinfo_t < struct sock *s > {
> + cs_addr = (uintptr_t)s;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < struct iphdr *I > {
> + ip_ver = 4;
> + ip_plength = I != NULL ? (ntohs(I->tot_len) - I->ihl << 2) : 0;
> + ip_saddr = I != NULL ? inet_ntoa(&I->saddr) : "<unknown>";
> + ip_daddr = I != NULL ? inet_ntoa(&I->daddr) : "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < struct ipv6hdr *I > {
> + ip_ver = 6;
> + ip_plength = I != NULL ? ntohs(I->payload_len) : 0;
> + ip_saddr = I != NULL ? inet_ntoa6(&I->saddr) : "<unknown>";
> + ip_daddr = I != NULL ? inet_ntoa6(&I->daddr) : "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < void_ip_t *I > {
> + ip_ver = I != NULL ? *(uint8_t *)I >> 4 : 0;
> + ip_plength = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + (ntohs(((struct iphdr *)I)->tot_len) - ((*(uint8_t *)I & 0xf) << 2)) :
> + *(uint8_t *)I >> 4 == 6 ?
> + ntohs(((struct ipv6hdr *)I)->payload_len) : 0) : 0;
> + ip_saddr = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->saddr) : *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->saddr) : "<unknown>") :
> + "<unknown>";
> + ip_daddr = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->daddr) : *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->daddr) : "<unknown>") :
> + "<unknown>";
> +};
> +
> +/*
> + * In some cases where the ipinfo_t * is NULL we wish to construct IP info
> + * using the struct tcp_sock * (arg3). In order to map local IP to source
> + * or destination IP address appropriately we need to check if the associated
> + * data is inbound (NET_PROBE_INBOUND in arg7) or outbound (NET_PROBE_OUTBOUND);
> + * the value is stored in arg7. If inbound, we map the local IP address to
> + * ip_daddr (destination), and if outbound it is mapped to ip_saddr.
> + */
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < __dtrace_tcp_void_ip_t *I > {
> + /*
> + * General strategy used is to rely on the IP header I if it is
> + * non-null; otherwise we try to reconstruct IP values from arg3
> + * (a struct tcp_sock *).
> + */
> + ip_ver = I != NULL ? *(uint8_t *)I >> 4 :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family == AF_INET ? 4 :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET6 ? 6 : 0;
> + /*
> + * For ip_plength we fall back to using TCP skb data from the tcp_skb_cb
> + * to determine payload length.
> + */
> + ip_plength = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + ntohs(((struct iphdr *)I)->tot_len) - ((*(uint8_t *)I & 0xf) << 2) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + ntohs(((struct ipv6hdr *)I)->payload_len) :
> + arg0 != NULL ?
> + ((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->end_seq -
> + ((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->seq :
> + 0;
> + /*
> + * For source/destination addresses, we again try to use the IP header I
> + * if available. If I is NULL, we utilize arg3 (struct tcp_sock *)
> + * but the problem here is that it stores local and remote IP addresses
> + * _not_ source and destination. So we need to know if traffic is
> + * inbound or outbound. If inbound, IP source address is remote
> + * socket address (skc_daddr) and destination IP address is local socket
> + * address (skc_rcv_saddr). If outbound, IP source address is local
> + * socket address and IP destination address is remote socket address.
> + */
> + ip_saddr = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->saddr) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->saddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_daddr :
> + &((struct sock *)arg3)->__sk_common.skc_rcv_saddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_v6_daddr :
> + &((struct sock *)arg3)->__sk_common.skc_v6_rcv_saddr) :
> + "<unknown>";
> + ip_daddr = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->daddr) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->daddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_rcv_saddr :
> + &((struct sock *)arg3)->__sk_common.skc_daddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_v6_rcv_saddr :
> + &((struct sock *)arg3)->__sk_common.skc_v6_daddr) :
> + "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ifinfo_t < struct net_device *N > {
> + if_name = N != NULL ? stringof(N->name) : "<unknown>";
> + if_ipstack = (N != NULL && sizeof(N->nd_net) > 0) ?
> + ((uint64_t)N->nd_net.net) : 0;
> + if_local = (N == NULL); /* is delivered locally */
> + if_addr = (uintptr_t)N; /* pointer to raw struct net_device ptr */
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipv4info_t < struct iphdr *I > {
> + ipv4_ver = I != NULL ? 4 : 0;
> + ipv4_ihl = I != NULL ? ((*(uint8_t *)I & 0xf) << 2) : 0;
> + ipv4_tos = I != NULL ? I->tos : 0;
> + ipv4_length = I != NULL ? ntohs(I->tot_len) : 0;
> + ipv4_ident = I != NULL ? ntohs(I->id) : 0;
> + ipv4_flags = I != NULL ? ntohs(I->frag_off) >> 12 : 0;
> + ipv4_offset = I != NULL ? ntohs(I->frag_off) & 0x0fff : 0;
> + ipv4_ttl = I != NULL ? I->ttl : 0;
> + ipv4_protocol = I != NULL ? I->protocol : 0;
> + ipv4_protostr = I == NULL ? "<null>" :
> + I->protocol == IPPROTO_TCP ? "TCP" :
> + I->protocol == IPPROTO_UDP ? "UDP" :
> + I->protocol == IPPROTO_IP ? "IP" :
> + I->protocol == IPPROTO_ICMP ? "ICMP" :
> + I->protocol == IPPROTO_IGMP ? "IGMP" :
> + I->protocol == IPPROTO_EGP ? "EGP" :
> + I->protocol == IPPROTO_IPV6 ? "IPv6" :
> + I->protocol == IPPROTO_ROUTING ? "ROUTE" :
> + I->protocol == IPPROTO_ESP ? "ESP" :
> + I->protocol == IPPROTO_AH ? "AH" :
> + I->protocol == IPPROTO_ICMPV6 ? "ICMPv6" :
> + I->protocol == IPPROTO_OSPF ? "OSPF" :
> + I->protocol == IPPROTO_SCTP ? "SCTP" :
> + I->protocol == IPPROTO_RAW ? "RAW" :
> + lltostr((uint64_t)I->protocol);
> + ipv4_checksum = I != NULL ? ntohs(I->check) : 0;
> + ipv4_src = I != NULL ? I->saddr : 0;
> + ipv4_dst = I != NULL ? I->daddr : 0;
> + ipv4_saddr = I != NULL ? inet_ntoa(&I->saddr) : "<null>";
> + ipv4_daddr = I != NULL ? inet_ntoa(&I->daddr) : "<null>";
> + ipv4_hdr = I;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipv6info_t < struct ipv6hdr *I > {
> + ipv6_ver = I != NULL ? ((*(uint8_t *)I) >> 4) : 0;
> + ipv6_tclass = I != NULL ? ((ntohl(*(uint32_t *)I) & 0x0fffffff) >> 20) : 0;
> + ipv6_flow = I != NULL ? (ntohl(*(uint32_t *)I) & 0x000fffff) : 0;
> + ipv6_plen = I != NULL ? ntohs(I->payload_len) : 0;
> + ipv6_nexthdr = I != NULL ? I->nexthdr : 0;
> + ipv6_nextstr = I == NULL ? "<null>" :
> + I->nexthdr == IPPROTO_TCP ? "TCP" :
> + I->nexthdr == IPPROTO_UDP ? "UDP" :
> + I->nexthdr == IPPROTO_IP ? "IP" :
> + I->nexthdr == IPPROTO_ICMP ? "ICMP" :
> + I->nexthdr == IPPROTO_IGMP ? "IGMP" :
> + I->nexthdr == IPPROTO_EGP ? "EGP" :
> + I->nexthdr == IPPROTO_IPV6 ? "IPv6" :
> + I->nexthdr == IPPROTO_ROUTING ? "ROUTE" :
> + I->nexthdr == IPPROTO_ESP ? "ESP" :
> + I->nexthdr == IPPROTO_AH ? "AH" :
> + I->nexthdr == IPPROTO_ICMPV6 ? "ICMPv6" :
> + I->nexthdr == IPPROTO_OSPF ? "OSPF" :
> + I->nexthdr == IPPROTO_SCTP ? "SCTP" :
> + I->nexthdr == IPPROTO_RAW ? "RAW" :
> + lltostr((uint64_t)I->nexthdr);
> + ipv6_hlim = I != NULL ? I->hop_limit : 0;
> + ipv6_src = I != NULL ? &I->saddr : NULL;
> + ipv6_dst = I != NULL ? &I->daddr : 0;
> + ipv6_saddr = I != NULL ? inet_ntoa6(&I->saddr) : "<null>";
> + ipv6_daddr = I != NULL ? inet_ntoa6(&I->daddr) : "<null>";
> + ipv6_hdr = I;
> +};
> diff --git a/dlibs/aarch64/6.10/lockstat.d b/dlibs/aarch64/6.10/lockstat.d
> new file mode 100644
> index 0000000000000..cb8b4bd96f1ac
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/lockstat.d
> @@ -0,0 +1,14 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider lockstat
> +
> +inline int RW_WRITER = 0x00;
> +#pragma D binding "1.6.4" RW_WRITER
> +inline int RW_READER = 0x01;
> +#pragma D binding "1.6.4" RW_READER
> diff --git a/dlibs/aarch64/6.10/net.d b/dlibs/aarch64/6.10/net.d
> new file mode 100644
> index 0000000000000..6ac3428747a77
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/net.d
> @@ -0,0 +1,33 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +/* These are needed for inet_ntop() DTrace function. */
> +inline int AF_INET = 2;
> +inline int AF_INET6 = 10;
> +
> +/* These are needed for link_ntop() DTrace function. */
> +inline int ARPHRD_ETHER = 1;
> +inline int ARPHRD_INFINIBAND = 32;
> +
> +/*
> + * The conninfo_t structure should be used by all application protocol
> + * providers as the first arguments to indicate some basic information
> + * about the connection. This structure may be augmented to accommodate
> + * the particularities of additional protocols in the future.
> + */
> +typedef struct conninfo {
> + string ci_local; /* local host address */
> + string ci_remote; /* remote host address */
> + string ci_protocol; /* protocol (ipv4, ipv6, etc) */
> +} conninfo_t;
> +
> +/*
> + * We use these values to determine if a probe point is associated
> + * with sending (outbound) or receiving (inbound).
> + */
> +inline int NET_PROBE_OUTBOUND = 0x00;
> +inline int NET_PROBE_INBOUND = 0x01;
> diff --git a/dlibs/aarch64/6.10/pcap.d b/dlibs/aarch64/6.10/pcap.d
> new file mode 100644
> index 0000000000000..21a8e74a4036d
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/pcap.d
> @@ -0,0 +1,35 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2016, 2023, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider ip
> +
> +/*
> + * In general, PCAP_<type> names are chosen to match DL_<type> DLPI
> + * datalink types.
> + */
> +
> +/*
> + * Network-related capture types. Raw DLT_* values can be used for those
> + * not present here; see /usr/include/pcap/bpf.h for the full list.
> + */
> +
> +inline int PCAP_NULL = 0;
> +#pragma D binding "1.12" PCAP_NULL
> +inline int PCAP_ETHER = 1;
> +#pragma D binding "1.12" PCAP_ETHER
> +inline int PCAP_WIFI = 105;
> +#pragma D binding "1.12" PCAP_WIFI
> +inline int PCAP_PPP = 9;
> +#pragma D binding "1.12" PCAP_PPP
> +/* PCAP_IP can signify IPv4 or IPv6 header follows. */
> +inline int PCAP_IP = 12;
> +#pragma D binding "1.12" PCAP_IP
> +
> +/* InfiniBand-related capture types. */
> +inline int PCAP_IPOIB = 242;
> +#pragma D binding "1.12" PCAP_IPOIB
> diff --git a/dlibs/aarch64/6.10/procfs.d b/dlibs/aarch64/6.10/procfs.d
> new file mode 100644
> index 0000000000000..5d7873b5e0091
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/procfs.d
> @@ -0,0 +1,306 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2022, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +/*
> + * This file defines the standard set of inlines and translators to be made
> + * available for all D programs to use to examine process model state.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library sched.d
> +
> +typedef time64_t time_t;
> +
> +typedef struct timestruc {
> + time_t tv_sec;
> + long tv_nsec;
> +} timestruc_t;
> +
> +typedef struct lwpsinfo {
> + int pr_flag; /* lwp flags (DEPRECATED) */
> + int pr_lwpid; /* lwp id */
> + uintptr_t pr_addr; /* internal address of lwp */
> + uintptr_t pr_wchan; /* wait addr for sleeping lwp */
> + char pr_stype; /* sync event type */
> + char pr_state; /* numeric lwp state */
> + char pr_sname; /* printable char for pr_state */
> + char pr_nice; /* nice for cpu usage */
> + short pr_syscall; /* syscall number */
> + char pr_oldpri; /* priority */
> + char pr_cpu; /* CPU usage */
> + int pr_pri; /* priority */
> + ushort_t pr_pctcpu; /* % of recent cpu time */
> + ushort_t pr_pad;
> + timestruc_t pr_start; /* lwp start time */
> + timestruc_t pr_time; /* usr+sys cpu time */
> + char pr_clname[8]; /* scheduling class name */
> + char pr_name[16]; /* name */
> + processorid_t pr_onpro; /* processor last ran on */
> + processorid_t pr_bindpro; /* processor bound to */
> + psetid_t pr_bindpset; /* processor set */
> + int pr_lgrp; /* lwp home lgroup */
> + int pr_filler[4];
> +} lwpsinfo_t;
> +
> +typedef id_t taskid_t;
> +typedef id_t dprojid_t;
> +typedef id_t poolid_t;
> +typedef id_t zoneid_t;
> +
> +/*
> + * Translate from the kernel's task_struct structure to a Solaris proc(4)
> + * psinfo_t struct.
> + * We do not provide support for pr_size, pr_rssize, pr_pctcpu, and pr_pctmem.
> + * We also do not fill in pr_lwp (the lwpsinfo_t for the representative LWP)
> + * because we do not have the ability to select and stop any representative.
> + * Also, for the moment, pr_wstat, pr_time, and pr_ctime are not supported,
> + * but these could be supported by DTrace in the future using subroutines.
> + * Note that any member added to this translator should also be added to the
> + * kthread_t-to-psinfo_t translator, below.
> + */
> +typedef struct psinfo {
> + int pr_flag; /* process flags (DEPRECATED) */
> + int pr_nlwp; /* number of active lwps (Linux: 1) */
> + pid_t pr_pid; /* unique process id */
> + pid_t pr_ppid; /* process id of parent */
> + pid_t pr_pgid; /* pid of process group leader */
> + pid_t pr_sid; /* session id */
> + uid_t pr_uid; /* real user id */
> + uid_t pr_euid; /* effective user id */
> + uid_t pr_gid; /* real group id */
> + uid_t pr_egid; /* effective group id */
> + uintptr_t pr_addr; /* address of process */
> + size_t pr_size; /* size of process image (in KB) */
> + size_t pr_rssize; /* resident set sie (in KB) */
> + size_t pr_pad1;
> + struct tty_struct *pr_ttydev; /* controlling tty (or -1) */
> + ushort_t pr_pctcpu; /* % of recent cpu time used */
> + ushort_t pr_pctmem; /* % of recent memory used */
> + timestruc_t pr_start; /* process start time */
> + timestruc_t pr_time; /* usr+sys cpu time for process */
> + timestruc_t pr_ctime; /* usr+sys cpu time for children */
> + char pr_fname[16]; /* name of exec'd file */
> + char pr_psargs[80]; /* initial chars of arg list */
> + int pr_wstat; /* if zombie, wait() status */
> + int pr_argc; /* initial argument count */
> + uintptr_t pr_argv; /* address of initial arg vector */
> + uintptr_t pr_envp; /* address of initial env vector */
> + char pr_dmodel; /* data model */
> + char pr_pad2[3];
> + taskid_t pr_taskid; /* task id */
> + dprojid_t pr_projid; /* project id */
> + int pr_nzomb; /* number of zombie lwps (Linux: 0) */
> + poolid_t pr_poolid; /* pool id */
> + zoneid_t pr_zoneid; /* zone id */
> + id_t pr_contract; /* process contract */
> + int pr_filler[1];
> + lwpsinfo_t pr_lwp;
> +} psinfo_t;
> +
> +inline char PR_MODEL_ILP32 = 1;
> +#pragma D binding "1.0" PR_MODEL_ILP32
> +inline char PR_MODEL_LP64 = 2;
> +#pragma D binding "1.0" PR_MODEL_LP64
> +
> +
> +
> +inline int PIDTYPE_PID = 0;
> +#pragma D binding "1.0" PIDTYPE_PID
> +inline int PIDTYPE_TGID = 1;
> +#pragma D binding "1.0" PIDTYPE_TGID
> +inline int PIDTYPE_PGID = 2;
> +#pragma D binding "1.0" PIDTYPE_PGID
> +inline int PIDTYPE_SID = 3;
> +#pragma D binding "1.0" PIDTYPE_SID
> +
> +
> +
> +
> +
> +
> +
> +
> +#pragma D binding "1.0" translator
> +translator psinfo_t < struct task_struct *T > {
> + pr_nlwp = 1;
> + pr_pid = T->tgid;
> + pr_ppid = T->real_parent->tgid;
> + pr_pgid = T->signal->pids[PIDTYPE_PGID]->numbers[0].nr;
> + pr_sid = T->signal->pids[PIDTYPE_SID]->numbers[0].nr;
> + pr_uid = T->cred->uid.val;
> + pr_euid = T->cred->euid.val;
> + pr_gid = T->cred->gid.val;
> + pr_egid = T->cred->egid.val;
> + pr_addr = (uintptr_t)T;
> +
> + pr_ttydev = T->signal->tty ? T->signal->tty
> + : (struct tty_struct *)-1;
> +
> + pr_fname = T->comm;
> +/*
> + pr_psargs = stringof(get_psinfo(T)->__psinfo(psargs));
> + */
> + pr_wstat = 0;
> +/*
> + pr_argc = get_psinfo(T)->__psinfo(argc);
> + pr_argv = (uintptr_t)get_psinfo(T)->__psinfo(argv);
> + pr_envp = (uintptr_t)get_psinfo(T)->__psinfo(envp);
> + */
> +
> + pr_dmodel = PR_MODEL_LP64;
> +
> + pr_taskid = 0;
> + pr_projid = 0;
> + pr_nzomb = 0;
> + pr_poolid = 0;
> + pr_zoneid = 0;
> + pr_contract = 0;
> +};
> +
> +inline int PR_STOPPED = 0x00000001;
> +#pragma D binding "1.0" PR_STOPPED
> +inline int PR_ISTOP = 0x00000002;
> +#pragma D binding "1.0" PR_ISTOP
> +inline int PR_DSTOP = 0x00000004;
> +#pragma D binding "1.0" PR_DSTOP
> +inline int PR_IDLE = 0x10000000;
> +#pragma D binding "1.0" PR_IDLE
> +
> +inline char SSLEEP = 1;
> +#pragma D binding "1.0" SSLEEP
> +inline char SRUN = 2;
> +#pragma D binding "1.0" SRUN
> +inline char SZOMB = 3;
> +#pragma D binding "1.0" SZOMB
> +inline char SSTOP = 4;
> +#pragma D binding "1.0" SSTOP
> +inline char SIDL = 5;
> +#pragma D binding "1.0" SIDL
> +inline char SONPROC = 6;
> +#pragma D binding "1.0" SONPROC
> +inline char SWAIT = 7;
> +#pragma D binding "1.0" SWAIT
> +
> +/*
> + * Translate from the kernel's task_struct structure to a Solaris proc(4)
> + * lwpsinfo_t.
> + * We do not provide support for pr_nice, pr_oldpri, pr_cpu, or pr_pctcpu.
> + * Also, for the moment, pr_start and pr_time are not supported, but these
> + * could be supported by DTrace in the future using subroutines.
> + */
> +#pragma D binding "1.0" translator
> +translator lwpsinfo_t < struct task_struct *T > {
> + pr_flag = (T->__state & 0x00000004) ? PR_STOPPED : 0;
> +/*
> + pr_flag = ((T->t_state == TS_STOPPED) ? (PR_STOPPED |
> + ((!(T->t_schedflag & TS_PSTART)) ? PR_ISTOP : 0)) :
> + ((T->t_proc_flag & TP_PRVSTOP) ? PR_STOPPED | PR_ISTOP : 0)) |
> + ((T == T->t_procp->p_agenttp) ? PR_AGENT : 0) |
> + ((!(T->t_proc_flag & TP_TWAIT)) ? PR_DETACH : 0) |
> + ((T->t_proc_flag & TP_DAEMON) ? PR_DAEMON : 0) |
> + ((T->t_procp->p_pidflag & CLDNOSIGCHLD) ? PR_NOSIGCHLD : 0) |
> + ((T->t_procp->p_pidflag & CLDWAITPID) ? PR_WAITPID : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_FORK) ? PR_FORK : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_RUNLCL) ? PR_RLC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_KILLCL) ? PR_KLC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_ASYNC) ? PR_ASYNC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_BPTADJ) ? PR_BPTADJ : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_PTRACE) ? PR_PTRACE : 0) |
> + ((T->t_procp->p_flag & SMSACCT) ? PR_MSACCT : 0) |
> + ((T->t_procp->p_flag & SMSFORK) ? PR_MSFORK : 0) |
> + ((T->t_procp->p_flag & SVFWAIT) ? PR_VFORKP : 0) |
> + (((T->t_procp->p_flag & SSYS) ||
> + (T->t_procp->p_as == &`kas)) ? PR_ISSYS : 0) |
> + ((T == T->t_cpu->cpu_idle_thread) ? PR_IDLE : 0);
> +*/
> +
> + pr_lwpid = T->pid;
> + pr_addr = (uintptr_t)T;
> + pr_wchan = NULL;
> + pr_stype = 0;
> +
> + pr_state = (T->__state & 0x00000001) ? SSLEEP :
> + (T->__state & 0x00000002) ? SSLEEP :
> + (T->__state & 0x00000004) ? SSTOP :
> + (T->__state & 0x00000008) ? SSTOP :
> + (T->__state & 0x00000020) ? SZOMB :
> + (T->__state & 0x00000010) ? SZOMB :
> + (T->__state & 0x00000080) ? SZOMB :
> + (T->__state & 0x00000100) ? SWAIT :
> + (T->__state & 0x00000200) ? SWAIT : SRUN;
> + pr_sname = (T->__state & 0x00000001) ? 'S' :
> + (T->__state & 0x00000002) ? 'S' :
> + (T->__state & 0x00000004) ? 'T' :
> + (T->__state & 0x00000008) ? 'T' :
> + (T->__state & 0x00000020) ? 'Z' :
> + (T->__state & 0x00000010) ? 'Z' :
> + (T->__state & 0x00000080) ? 'Z' :
> + (T->__state & 0x00000100) ? 'W' :
> + (T->__state & 0x00000200) ? 'W' : 'R';
> +
> + pr_pri = T->prio;
> + pr_name = T->comm;
> + pr_onpro = ((struct thread_info *)T->stack)->cpu;
> +};
> +
> +inline psinfo_t *curpsinfo = xlate <psinfo_t *> (curthread);
> +#pragma D attributes Stable/Stable/Common curpsinfo
> +#pragma D binding "1.0" curpsinfo
> +
> +inline lwpsinfo_t *curlwpsinfo = xlate <lwpsinfo_t *> (curthread);
> +#pragma D attributes Stable/Stable/Common curlwpsinfo
> +#pragma D binding "1.0" curlwpsinfo
> +
> +inline string cwd = d_path(&(curthread->fs->pwd));
> +#pragma D attributes Stable/Stable/Common cwd
> +#pragma D binding "1.0" cwd
> +
> +inline string root = d_path(&(curthread->fs->root));
> +#pragma D attributes Stable/Stable/Common root
> +#pragma D binding "1.0" root
> +
> +inline int CLD_EXITED = 1;
> +#pragma D binding "1.0" CLD_EXITED
> +inline int CLD_KILLED = 2;
> +#pragma D binding "1.0" CLD_KILLED
> +inline int CLD_DUMPED = 3;
> +#pragma D binding "1.0" CLD_DUMPED
> +inline int CLD_TRAPPED = 4;
> +#pragma D binding "1.0" CLD_TRAPPED
> +inline int CLD_STOPPED = 5;
> +#pragma D binding "1.0" CLD_STOPPED
> +inline int CLD_CONTINUED = 6;
> +#pragma D binding "1.0" CLD_CONTINUED
> +
> +/*
> + * Below we provide some inline definitions to simplify converting from
> + * a struct pid * to a pid_t. structpid2pid is a DTrace-ized version of
> + * pid_vnr().
> + */
> + /*
> +inline struct pid_namespace *pid_namespace[struct pid *p] = p != NULL ?
> + p->numbers[p->level].ns : NULL;
> +
> +inline int pid_namespace_level[struct pid *p] = p != NULL && pid_namespace[p] ?
> + pid_namespace[p]->level : 0;
> +
> +m4_dnl 4.19 and above use thread_pid for this.
> +define_for_kernel([[__task_pid]], [[ m4_dnl
> + (m4_kver(4, 19, 0), [[task->thread_pid]])]], m4_dnl
> + [[task->pids[PIDTYPE_PID].pid]]) m4_dnl
> +
> +inline struct pid *task_pid[struct task_struct *task] =
> + task != NULL ? __task_pid : NULL;
> +
> +inline int current_namespace_level = pid_namespace_level[task_pid[curthread]];
> +
> +inline pid_t structpid2pid[struct pid *p] =
> + p != NULL && current_namespace_level <= p->level &&
> + ((struct upid *)&(p->numbers[current_namespace_level]))->ns ==
> + pid_namespace[task_pid[curthread]] ?
> + ((struct upid *)&(p->numbers[current_namespace_level]))->nr : 0;
> +*/
> diff --git a/dlibs/aarch64/6.10/regs.d b/dlibs/aarch64/6.10/regs.d
> new file mode 100644
> index 0000000000000..e47f8cfc11825
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/regs.d
> @@ -0,0 +1,78 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +inline int R_X0 = 0 ;
> +#pragma D binding "1.0" R_X0
> +inline int R_X1 = 1 ;
> +#pragma D binding "1.0" R_X1
> +inline int R_X2 = 2 ;
> +#pragma D binding "1.0" R_X2
> +inline int R_X3 = 3 ;
> +#pragma D binding "1.0" R_X3
> +inline int R_X4 = 4 ;
> +#pragma D binding "1.0" R_X4
> +inline int R_X5 = 5 ;
> +#pragma D binding "1.0" R_X5
> +inline int R_X6 = 6 ;
> +#pragma D binding "1.0" R_X6
> +inline int R_X7 = 7 ;
> +#pragma D binding "1.0" R_X7
> +inline int R_X8 = 8 ;
> +#pragma D binding "1.0" R_X8
> +inline int R_X9 = 9 ;
> +#pragma D binding "1.0" R_X9
> +inline int R_X10 = 10 ;
> +#pragma D binding "1.0" R_X10
> +inline int R_X11 = 11 ;
> +#pragma D binding "1.0" R_X11
> +inline int R_X12 = 12 ;
> +#pragma D binding "1.0" R_X12
> +inline int R_X13 = 13 ;
> +#pragma D binding "1.0" R_X13
> +inline int R_X14 = 14 ;
> +#pragma D binding "1.0" R_X14
> +inline int R_X15 = 15 ;
> +#pragma D binding "1.0" R_X15
> +inline int R_X16 = 16 ;
> +#pragma D binding "1.0" R_X16
> +inline int R_X17 = 17 ;
> +#pragma D binding "1.0" R_X17
> +inline int R_X18 = 18 ;
> +#pragma D binding "1.0" R_X18
> +inline int R_X19 = 19 ;
> +#pragma D binding "1.0" R_X19
> +inline int R_X20 = 20 ;
> +#pragma D binding "1.0" R_X20
> +inline int R_X21 = 21 ;
> +#pragma D binding "1.0" R_X21
> +inline int R_X22 = 22 ;
> +#pragma D binding "1.0" R_X22
> +inline int R_X23 = 23 ;
> +#pragma D binding "1.0" R_X23
> +inline int R_X24 = 24 ;
> +#pragma D binding "1.0" R_X24
> +inline int R_X25 = 25 ;
> +#pragma D binding "1.0" R_X25
> +inline int R_X26 = 26 ;
> +#pragma D binding "1.0" R_X26
> +inline int R_X27 = 27 ;
> +#pragma D binding "1.0" R_X27
> +inline int R_X28 = 28 ;
> +#pragma D binding "1.0" R_X28
> +inline int R_X29 = 29 ;
> +#pragma D binding "1.0" R_X29
> +inline int R_X30 = 30 ;
> +#pragma D binding "1.0" R_X30
> +
> +inline int R_SP = 31 ;
> +#pragma D binding "1.0" R_SP
> +inline int R_PC = 32 ;
> +#pragma D binding "1.0" R_PC
> +inline int R_PSTATE = 33 ;
> +#pragma D binding "1.0" R_PSTATE
> +
> +inline int R_FP = R_X29;
> +#pragma D binding "1.0" R_FP
> diff --git a/dlibs/aarch64/6.10/sched.d b/dlibs/aarch64/6.10/sched.d
> new file mode 100644
> index 0000000000000..271d84e057cde
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/sched.d
> @@ -0,0 +1,38 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2019, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +
> +typedef id_t processorid_t;
> +typedef id_t psetid_t;
> +typedef id_t chipid_t;
> +typedef id_t lgrp_id_t;
> +
> +typedef struct cpuinfo {
> + processorid_t cpu_id;
> + psetid_t cpu_pset;
> + chipid_t cpu_chip;
> + lgrp_id_t cpu_lgrp;
> +} cpuinfo_t;
> +
> +typedef cpuinfo_t *cpuinfo_t_p;
> +
> +inline processorid_t cpu = curcpu->cpu_id;
> +#pragma D attributes Stable/Stable/Common cpu
> +#pragma D binding "1.0" cpu
> +
> +inline psetid_t pset = curcpu->cpu_pset;
> +#pragma D attributes Stable/Stable/Common pset
> +#pragma D binding "1.0" pset
> +
> +inline chipid_t chip = curcpu->cpu_chip;
> +#pragma D attributes Stable/Stable/Common chip
> +#pragma D binding "1.0" chip
> +
> +inline lgrp_id_t lgrp = curcpu->cpu_lgrp;
> +#pragma D attributes Stable/Stable/Common lgrp
> +#pragma D binding "1.0" lgrp
> diff --git a/dlibs/aarch64/6.10/signal.d b/dlibs/aarch64/6.10/signal.d
> new file mode 100644
> index 0000000000000..88493b427050f
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/signal.d
> @@ -0,0 +1,108 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved.
> + * Use is subject to license terms.
> + *
> + */
> +inline int SIGSYS = 31;
> +#pragma D binding "1.0" SIGSYS
> +
> +inline int SIGTERM = 15;
> +#pragma D binding "1.0" SIGTERM
> +
> +inline int SIGTSTP = 20;
> +#pragma D binding "1.0" SIGTSTP
> +
> +inline int SIGVTALRM = 26;
> +#pragma D binding "1.0" SIGVTALRM
> +
> +inline int SIGPIPE = 13;
> +#pragma D binding "1.0" SIGPIPE
> +
> +inline int SIGBUS = 7;
> +#pragma D binding "1.0" SIGBUS
> +
> +inline int SIGSTKFLT = 16;
> +#pragma D binding "1.0" SIGSTKFLT
> +
> +inline int SIGTRAP = 5;
> +#pragma D binding "1.0" SIGTRAP
> +
> +inline int SIGHUP = 1;
> +#pragma D binding "1.0" SIGHUP
> +
> +inline int SIGFPE = 8;
> +#pragma D binding "1.0" SIGFPE
> +
> +inline int SIGIO = 29;
> +#pragma D binding "1.0" SIGIO
> +
> +inline int SIGURG = 23;
> +#pragma D binding "1.0" SIGURG
> +
> +inline int SIGKILL = 9;
> +#pragma D binding "1.0" SIGKILL
> +
> +inline int SIGWINCH = 28;
> +#pragma D binding "1.0" SIGWINCH
> +
> +inline int SIGXFSZ = 25;
> +#pragma D binding "1.0" SIGXFSZ
> +
> +inline int SIGINT = 2;
> +#pragma D binding "1.0" SIGINT
> +
> +inline int SIGIOT = 6;
> +#pragma D binding "1.0" SIGIOT
> +
> +inline int SIGTTOU = 22;
> +#pragma D binding "1.0" SIGTTOU
> +
> +inline int SIGTTIN = 21;
> +#pragma D binding "1.0" SIGTTIN
> +
> +inline int SIGCHLD = 17;
> +#pragma D binding "1.0" SIGCHLD
> +
> +inline int SIGCONT = 18;
> +#pragma D binding "1.0" SIGCONT
> +
> +inline int SIGQUIT = 3;
> +#pragma D binding "1.0" SIGQUIT
> +
> +inline int SIGABRT = 6;
> +#pragma D binding "1.0" SIGABRT
> +
> +inline int SIGPWR = 30;
> +#pragma D binding "1.0" SIGPWR
> +
> +inline int SIGPROF = 27;
> +#pragma D binding "1.0" SIGPROF
> +
> +inline int SIGXCPU = 24;
> +#pragma D binding "1.0" SIGXCPU
> +
> +inline int SIGSTOP = 19;
> +#pragma D binding "1.0" SIGSTOP
> +
> +inline int SIGILL = 4;
> +#pragma D binding "1.0" SIGILL
> +
> +inline int SIGCLD = 17;
> +#pragma D binding "1.0" SIGCLD
> +
> +inline int SIGUSR1 = 10;
> +#pragma D binding "1.0" SIGUSR1
> +
> +inline int SIGPOLL = 29;
> +#pragma D binding "1.0" SIGPOLL
> +
> +inline int SIGSEGV = 11;
> +#pragma D binding "1.0" SIGSEGV
> +
> +inline int SIGUSR2 = 12;
> +#pragma D binding "1.0" SIGUSR2
> +
> +inline int SIGALRM = 14;
> +#pragma D binding "1.0" SIGALRM
> +
> diff --git a/dlibs/aarch64/6.10/tcp.d b/dlibs/aarch64/6.10/tcp.d
> new file mode 100644
> index 0000000000000..54e310cb4c6ed
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/tcp.d
> @@ -0,0 +1,231 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2010, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on provider ip
> +#pragma D depends_on provider tcp
> +
> +inline int TH_FIN = 0x01;
> +inline int TH_SYN = 0x02;
> +inline int TH_RST = 0x04;
> +inline int TH_PSH = 0x08;
> +inline int TH_ACK = 0x10;
> +inline int TH_URG = 0x20;
> +inline int TH_ECE = 0x40;
> +inline int TH_CWR = 0x80;
> +
> +inline int TCP_STATE_IDLE = 0x00;
> +inline int TCP_STATE_ESTABLISHED = 0x01;
> +inline int TCP_STATE_SYN_SENT = 0x02;
> +inline int TCP_STATE_SYN_RECEIVED = 0x03;
> +inline int TCP_STATE_FIN_WAIT_1 = 0x04;
> +inline int TCP_STATE_FIN_WAIT_2 = 0x05;
> +inline int TCP_STATE_TIME_WAIT = 0x06;
> +inline int TCP_STATE_CLOSED = 0x07;
> +inline int TCP_STATE_CLOSE_WAIT = 0x08;
> +inline int TCP_STATE_LAST_ACK = 0x09;
> +inline int TCP_STATE_LISTEN = 0x0a;
> +inline int TCP_STATE_CLOSING = 0x0b;
> +
> +/*
> + * Convert a TCP state value to a string.
> + */
> +inline string tcp_state_string[int state] =
> + state == TCP_STATE_CLOSED ? "state-closed" :
> + state == TCP_STATE_IDLE ? "state-idle" :
> + state == TCP_STATE_LISTEN ? "state-listen" :
> + state == TCP_STATE_SYN_SENT ? "state-syn-sent" :
> + state == TCP_STATE_SYN_RECEIVED ? "state-syn-received" :
> + state == TCP_STATE_ESTABLISHED ? "state-established" :
> + state == TCP_STATE_CLOSE_WAIT ? "state-close-wait" :
> + state == TCP_STATE_FIN_WAIT_1 ? "state-fin-wait-1" :
> + state == TCP_STATE_CLOSING ? "state-closing" :
> + state == TCP_STATE_LAST_ACK ? "state-last-ack" :
> + state == TCP_STATE_FIN_WAIT_2 ? "state-fin-wait-2" :
> + state == TCP_STATE_TIME_WAIT ? "state-time-wait" :
> + "<unknown>";
> +#pragma D binding "1.6.3" tcp_state_string
> +
> +/*
> + * tcpinfo is the TCP header fields.
> + */
> +typedef struct tcpinfo {
> + uint16_t tcp_sport; /* source port */
> + uint16_t tcp_dport; /* destination port */
> + uint32_t tcp_seq; /* sequence number */
> + uint32_t tcp_ack; /* acknowledgment number */
> + uint8_t tcp_offset; /* data offset, in bytes */
> + uint8_t tcp_flags; /* flags */
> + uint16_t tcp_window; /* window size */
> + uint16_t tcp_checksum; /* checksum */
> + uint16_t tcp_urgent; /* urgent data pointer */
> + uintptr_t tcp_hdr; /* raw TCP header */
> +} tcpinfo_t;
> +
> +/*
> + * tcpsinfo contains stable TCP details from tcp_t.
> + */
> +typedef struct tcpsinfo {
> + uintptr_t tcps_addr;
> + int tcps_local; /* is delivered locally, boolean */
> + uint16_t tcps_lport; /* local port */
> + uint16_t tcps_rport; /* remote port */
> + string tcps_laddr; /* local address, as a string */
> + string tcps_raddr; /* remote address, as a string */
> + int tcps_state; /* TCP state */
> + uint32_t tcps_iss; /* Initial sequence # sent */
> + uint32_t tcps_suna; /* sequence # sent but unacked */
> + uint32_t tcps_snxt; /* next sequence # to send */
> + uint32_t tcps_rnxt; /* next sequence # expected */
> + uint32_t tcps_swnd; /* send window size */
> + int32_t tcps_snd_ws; /* send window scaling */
> + uint32_t tcps_rwnd; /* receive window size */
> + int32_t tcps_rcv_ws; /* receive window scaling */
> + uint32_t tcps_cwnd; /* congestion window */
> + uint32_t tcps_cwnd_ssthresh; /* threshold for congestion avoidance */
> + uint32_t tcps_sack_snxt; /* next SACK seq # for retransmission */
> + uint32_t tcps_rto; /* round-trip timeout, msec */
> + uint32_t tcps_mss; /* max segment size */
> + int tcps_retransmit; /* retransmit send event, boolean */
> + uint32_t tcps_rtt; /* smoothed avg round-trip time, msec */
> + uint32_t tcps_rtt_sd; /* standard deviation of RTT */
> + uint32_t tcps_irs; /* Initial recv sequence # */
> +} tcpsinfo_t;
> +
> +/*
> + * tcplsinfo provides the old tcp state for state changes.
> + */
> +typedef struct tcplsinfo {
> + int tcps_state; /* previous TCP state */
> +} tcplsinfo_t;
> +
> +#pragma D binding "1.6.3" translator
> +translator tcpinfo_t < struct tcphdr *T > {
> + tcp_sport = T ? ntohs(T->source) : 0;
> + tcp_dport = T ? ntohs(T->dest) : 0;
> + tcp_seq = T ? ntohl(T->seq) : 0;
> + tcp_ack = T ? ntohl(T->ack_seq) : 0;
> + tcp_offset = T ? (*(uint8_t *)(T + 12) & 0xf0) >> 2 : 0;
> + tcp_flags = T ? *(uint8_t *)(T + 13) : 0;
> + tcp_window = T ? ntohs(T->window) : 0;
> + tcp_checksum = T ? ntohs(T->check) : 0;
> + tcp_urgent = T ? ntohs(T->urg_ptr) : 0;
> + tcp_hdr = (uintptr_t)T;
> +};
> +
> +/*
> + * In the main we simply translate from the "struct [tcp_]sock *" to
> + * a tcpsinfo_t *. However there are a few exceptions:
> + *
> + * - tcps_state is always derived from arg6. The reason is that in some
> + * state transitions sock->sk_state does not reflect the actual TCP
> + * connection state. For example the TIME_WAIT state is handled in
> + * Linux by creating a separate timewait socket and the state of the
> + * original socket is CLOSED. In some other cases we also need to
> + * instrument state transition prior to the update of sk_state. To do
> + * all of this we rely on arg6.
> + * - we sometimes need to retrieve local/remote port/address settings from
> + * TCP and IP headers directly, for example prior to the address/port
> + * being committed to the socket. To do this effectively we need to know
> + * if the packet data is inbound (in which case the local IP/port are the
> + * destination) or outbound (in which case the local IP/port are the source).
> + * arg7 is set to 0 for outbound traffic and 1 for inbound so we use these
> + * to reconstruct the address/port info where necessary. arg2 used for IP
> + * information while arg4 contains the TCP header, so it is used for port data.
> + * NET_PROBE_INBOUND is defined as 1, NET_PROBE_OUTBOUND as 0 in net.d.
> + */
> +#pragma D binding "1.6.3" translator
> +translator tcpsinfo_t < struct tcp_sock *T > {
> + tcps_addr = (uintptr_t)T;
> + tcps_local =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + (((struct sock *)T)->__sk_common.skc_rcv_saddr ==
> + ((struct sock *)T)->__sk_common.skc_daddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + (((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[0]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[0] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[1]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[1] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[2]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[2] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[3])
> + : 0;
> + tcps_lport = (T && ((struct inet_sock *)T)->inet_sport != 0) ?
> + ntohs(((struct inet_sock *)T)->inet_sport) :
> + (T && ((struct inet_sock *)T)->inet_sport == 0) ?
> + ntohs(((struct sock *)T)->__sk_common.skc_num) :
> + arg4 != NULL ?
> + ntohs(arg7 == NET_PROBE_INBOUND ?
> + ((struct tcphdr *)arg4)->dest : ((struct tcphdr *)arg4)->source) :
> + 0;
> + tcps_rport = T && ((struct sock *)T)->__sk_common.skc_dport != 0 ?
> + ntohs(((struct sock *)T)->__sk_common.skc_dport) :
> + arg4 != NULL ?
> + ntohs(arg7 == NET_PROBE_INBOUND ?
> + ((struct tcphdr *)arg4)->source : ((struct tcphdr *)arg4)->dest) :
> + 0;
> + tcps_laddr =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + inet_ntoa(&((struct sock *)T)->__sk_common.skc_rcv_saddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr) :
> + arg2 != NULL && (*(uint8_t *)arg2) >> 4 == 4 ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct iphdr *)arg2)->daddr : &((struct iphdr *)arg2)->saddr) :
> + arg2 != NULL && *((uint8_t *)arg2) >> 4 == 6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct ipv6hdr *)arg2)->daddr :
> + &((struct ipv6hdr *)arg2)->saddr) :
> + "<unknown>";
> + tcps_raddr =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + inet_ntoa(&((struct sock *)T)->__sk_common.skc_daddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(&((struct sock *)T)->__sk_common.skc_v6_daddr) :
> + arg2 != NULL && (*(uint8_t *)arg2) >> 4 == 4 ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct iphdr *)arg2)->saddr : &((struct iphdr *)arg2)->daddr) :
> + arg2 != NULL && *((uint8_t *)arg2) >> 4 == 6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct ipv6hdr *)arg2)->saddr :
> + &((struct ipv6hdr *)arg2)->daddr) :
> + "<unknown>";
> + tcps_state = arg6;
> + tcps_iss = T ?
> + T->snd_una - (uint32_t)T->bytes_acked : 0;
> + tcps_suna = T ? T->snd_una : 0;
> + tcps_snxt = T ? T->snd_nxt : 0;
> + tcps_rnxt = T ? T->rcv_nxt : 0;
> + tcps_swnd = T ? T->snd_wnd : 0;
> + tcps_snd_ws = T ? T->rx_opt.snd_wscale : 0;
> + tcps_rwnd = T ? T->rcv_wnd : 0;
> + tcps_rcv_ws = T ? T->rx_opt.rcv_wscale : 0;
> + tcps_cwnd = T ? T->snd_cwnd : 0;
> + tcps_cwnd_ssthresh = T ? T->snd_ssthresh : 0;
> + tcps_sack_snxt = (T && T->sacked_out == 0) ? T->snd_una :
> + (T && T->highest_sack == NULL) ? T->snd_nxt :
> + (T && T->highest_sack != NULL) ?
> + ((struct tcp_skb_cb *)&((T->highest_sack->cb[0])))->seq : 0;
> + tcps_rto = T ? T->inet_conn.icsk_rto : 0;
> + tcps_mss = T ? T->mss_cache : 0;
> + tcps_retransmit = T && arg0 ?
> + (((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->end_seq
> + < T->snd_nxt - 1) : 0;
> + tcps_rtt = T ? (T->srtt_us >> 3)/1000 : 0;
> + tcps_rtt_sd = T ? (T->mdev_us >> 2)/1000 : 0;
> + tcps_irs = T && T->bytes_received > 0 ?
> + T->rcv_nxt - (uint32_t)T->bytes_received : 0;
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator tcplsinfo_t < int I > {
> + tcps_state = I;
> +};
> diff --git a/dlibs/aarch64/6.10/udp.d b/dlibs/aarch64/6.10/udp.d
> new file mode 100644
> index 0000000000000..0e44ed6480415
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/udp.d
> @@ -0,0 +1,71 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2010, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on provider udp
> +
> +/*
> + * udpinfo is the UDP header fields.
> + */
> +typedef struct udpinfo {
> + uint16_t udp_sport; /* source port */
> + uint16_t udp_dport; /* destination port */
> + uint16_t udp_length; /* total length */
> + uint16_t udp_checksum; /* headers + data checksum */
> + struct udphdr *udp_hdr; /* raw UDP header */
> +} udpinfo_t;
> +
> +/*
> + * udpsinfo contains stable UDP details from udp_t.
> + */
> +typedef struct udpsinfo {
> + uintptr_t udps_addr;
> + uint16_t udps_lport; /* local port */
> + uint16_t udps_rport; /* remote port */
> + string udps_laddr; /* local address, as a string */
> + string udps_raddr; /* remote address, as a string */
> +} udpsinfo_t;
> +
> +#pragma D binding "1.6.3" translator
> +translator udpinfo_t < struct udphdr *U > {
> + udp_sport = ntohs(U->source);
> + udp_dport = ntohs(U->dest);
> + udp_length = ntohs(U->len);
> + udp_checksum = ntohs(U->check);
> + udp_hdr = U;
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator udpsinfo_t < struct udp_sock *S > {
> + /*
> + * We source udp info from other args but retain the sock arg here
> + * as it may be used in the future.
> + */
> + udps_addr = (uintptr_t)S;
> + udps_lport = arg4 ?
> + (probename == "send" ? ntohs(((struct udphdr *)arg4)->source) :
> + ntohs(((struct udphdr *)arg4)->dest)) : 0;
> + udps_rport = arg4 ?
> + (probename == "send" ? ntohs(((struct udphdr *)arg4)->dest) :
> + ntohs(((struct udphdr *)arg4)->source)) : 0;
> + udps_laddr = arg2 && *(uint8_t *)arg2 >> 4 == 4 ?
> + inet_ntoa(probename == "send" ? &((struct iphdr *)arg2)->saddr :
> + &((struct iphdr *)arg2)->daddr) :
> + arg2 && *(uint8_t *)arg2 >> 4 == 6 ?
> + inet_ntoa6(probename == "send" ? &((struct ipv6hdr *)arg2)->saddr :
> + &((struct ipv6hdr *)arg2)->daddr) :
> + "<unknown>";
> + udps_raddr =
> + arg2 && *(uint8_t *)arg2 >> 4 == 4 ?
> + inet_ntoa(probename == "send" ? &((struct iphdr *)arg2)->daddr :
> + &((struct iphdr *)arg2)->saddr) :
> + arg2 && *(uint8_t *)arg2 >> 4 == 6 ?
> + inet_ntoa6(probename == "send" ? &((struct ipv6hdr *)arg2)->daddr :
> + &((struct ipv6hdr *)arg2)->saddr) :
> + "<unknown>";
> +};
> diff --git a/dlibs/aarch64/6.10/unistd.d b/dlibs/aarch64/6.10/unistd.d
> new file mode 100644
> index 0000000000000..c38bbed4bc85e
> --- /dev/null
> +++ b/dlibs/aarch64/6.10/unistd.d
> @@ -0,0 +1,36 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +inline int DTRACEFLT_UNKNOWN = 0; /* Unknown fault */
> +#pragma D binding "1.0" DTRACEFLT_UNKNOWN
> +
> +inline int DTRACEFLT_BADADDR = 1; /* Bad address */
> +#pragma D binding "1.0" DTRACEFLT_BADADDR
> +
> +inline int DTRACEFLT_BADALIGN = 2; /* Bad alignment */
> +#pragma D binding "1.0" DTRACEFLT_BADALIGN
> +
> +inline int DTRACEFLT_ILLOP = 3; /* Illegal operation */
> +#pragma D binding "1.0" DTRACEFLT_ILLOP
> +
> +inline int DTRACEFLT_DIVZERO = 4; /* Divide-by-zero */
> +#pragma D binding "1.0" DTRACEFLT_DIVZERO
> +
> +inline int DTRACEFLT_NOSCRATCH = 5; /* Out of scratch space */
> +#pragma D binding "1.0" DTRACEFLT_NOSCRATCH
> +
> +inline int DTRACEFLT_KPRIV = 6; /* Illegal kernel access */
> +#pragma D binding "1.0" DTRACEFLT_KPRIV
> +
> +inline int DTRACEFLT_UPRIV = 7; /* Illegal user access */
> +#pragma D binding "1.0" DTRACEFLT_UPRIV
> +
> +inline int DTRACEFLT_TUPOFLOW = 8; /* Tuple stack overflow */
> +#pragma D binding "1.0" DTRACEFLT_TUPOFLOW
> +
> +inline int DTRACEFLT_BADSTACK = 9; /* Bad stack */
> +#pragma D binding "1.4.1" DTRACEFLT_BADSTACK
> diff --git a/dlibs/x86_64/6.10.0/errno.d b/dlibs/x86_64/6.10.0/errno.d
> new file mode 100644
> index 0000000000000..f54fafe1861cc
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/errno.d
> @@ -0,0 +1,275 @@
> +
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
> + * Use is subject to license terms.
> + */
> +
> +inline int EPERM = 1;
> +#pragma D binding "1.0" EPERM
> +inline int ENOENT = 2;
> +#pragma D binding "1.0" ENOENT
> +inline int ESRCH = 3;
> +#pragma D binding "1.0" ESRCH
> +inline int EINTR = 4;
> +#pragma D binding "1.0" EINTR
> +inline int EIO = 5;
> +#pragma D binding "1.0" EIO
> +inline int ENXIO = 6;
> +#pragma D binding "1.0" ENXIO
> +inline int E2BIG = 7;
> +#pragma D binding "1.0" E2BIG
> +inline int ENOEXEC = 8;
> +#pragma D binding "1.0" ENOEXEC
> +inline int EBADF = 9;
> +#pragma D binding "1.0" EBADF
> +inline int ECHILD = 10;
> +#pragma D binding "1.0" ECHILD
> +inline int EAGAIN = 11;
> +#pragma D binding "1.0" EAGAIN
> +inline int ENOMEM = 12;
> +#pragma D binding "1.0" ENOMEM
> +inline int EACCES = 13;
> +#pragma D binding "1.0" EACCES
> +inline int EFAULT = 14;
> +#pragma D binding "1.0" EFAULT
> +inline int ENOTBLK = 15;
> +#pragma D binding "1.0" ENOTBLK
> +inline int EBUSY = 16;
> +#pragma D binding "1.0" EBUSY
> +inline int EEXIST = 17;
> +#pragma D binding "1.0" EEXIST
> +inline int EXDEV = 18;
> +#pragma D binding "1.0" EXDEV
> +inline int ENODEV = 19;
> +#pragma D binding "1.0" ENODEV
> +inline int ENOTDIR = 20;
> +#pragma D binding "1.0" ENOTDIR
> +inline int EISDIR = 21;
> +#pragma D binding "1.0" EISDIR
> +inline int EINVAL = 22;
> +#pragma D binding "1.0" EINVAL
> +inline int ENFILE = 23;
> +#pragma D binding "1.0" ENFILE
> +inline int EMFILE = 24;
> +#pragma D binding "1.0" EMFILE
> +inline int ENOTTY = 25;
> +#pragma D binding "1.0" ENOTTY
> +inline int ETXTBSY = 26;
> +#pragma D binding "1.0" ETXTBSY
> +inline int EFBIG = 27;
> +#pragma D binding "1.0" EFBIG
> +inline int ENOSPC = 28;
> +#pragma D binding "1.0" ENOSPC
> +inline int ESPIPE = 29;
> +#pragma D binding "1.0" ESPIPE
> +inline int EROFS = 30;
> +#pragma D binding "1.0" EROFS
> +inline int EMLINK = 31;
> +#pragma D binding "1.0" EMLINK
> +inline int EPIPE = 32;
> +#pragma D binding "1.0" EPIPE
> +inline int EDOM = 33;
> +#pragma D binding "1.0" EDOM
> +inline int ERANGE = 34;
> +#pragma D binding "1.0" ERANGE
> +inline int EDEADLK = 35;
> +#pragma D binding "1.0" EDEADLK
> +inline int ENAMETOOLONG = 36;
> +#pragma D binding "1.0" ENAMETOOLONG
> +inline int ENOLCK = 37;
> +#pragma D binding "1.0" ENOLCK
> +inline int ENOSYS = 38;
> +#pragma D binding "1.0" ENOSYS
> +inline int ENOTEMPTY = 39;
> +#pragma D binding "1.0" ENOTEMPTY
> +inline int ELOOP = 40;
> +#pragma D binding "1.0" ELOOP
> +inline int EWOULDBLOCK = 11;
> +#pragma D binding "1.0" EWOULDBLOCK
> +inline int ENOMSG = 42;
> +#pragma D binding "1.0" ENOMSG
> +inline int EIDRM = 43;
> +#pragma D binding "1.0" EIDRM
> +inline int ECHRNG = 44;
> +#pragma D binding "1.0" ECHRNG
> +inline int EL2NSYNC = 45;
> +#pragma D binding "1.0" EL2NSYNC
> +inline int EL3HLT = 46;
> +#pragma D binding "1.0" EL3HLT
> +inline int EL3RST = 47;
> +#pragma D binding "1.0" EL3RST
> +inline int ELNRNG = 48;
> +#pragma D binding "1.0" ELNRNG
> +inline int EUNATCH = 49;
> +#pragma D binding "1.0" EUNATCH
> +inline int ENOCSI = 50;
> +#pragma D binding "1.0" ENOCSI
> +inline int EL2HLT = 51;
> +#pragma D binding "1.0" EL2HLT
> +inline int EBADE = 52;
> +#pragma D binding "1.0" EBADE
> +inline int EBADR = 53;
> +#pragma D binding "1.0" EBADR
> +inline int EXFULL = 54;
> +#pragma D binding "1.0" EXFULL
> +inline int ENOANO = 55;
> +#pragma D binding "1.0" ENOANO
> +inline int EBADRQC = 56;
> +#pragma D binding "1.0" EBADRQC
> +inline int EBADSLT = 57;
> +#pragma D binding "1.0" EBADSLT
> +inline int EDEADLOCK = 35;
> +#pragma D binding "1.0" EDEADLOCK
> +inline int EBFONT = 59;
> +#pragma D binding "1.0" EBFONT
> +inline int ENOSTR = 60;
> +#pragma D binding "1.0" ENOSTR
> +inline int ENODATA = 61;
> +#pragma D binding "1.0" ENODATA
> +inline int ETIME = 62;
> +#pragma D binding "1.0" ETIME
> +inline int ENOSR = 63;
> +#pragma D binding "1.0" ENOSR
> +inline int ENONET = 64;
> +#pragma D binding "1.0" ENONET
> +inline int ENOPKG = 65;
> +#pragma D binding "1.0" ENOPKG
> +inline int EREMOTE = 66;
> +#pragma D binding "1.0" EREMOTE
> +inline int ENOLINK = 67;
> +#pragma D binding "1.0" ENOLINK
> +inline int EADV = 68;
> +#pragma D binding "1.0" EADV
> +inline int ESRMNT = 69;
> +#pragma D binding "1.0" ESRMNT
> +inline int ECOMM = 70;
> +#pragma D binding "1.0" ECOMM
> +inline int EPROTO = 71;
> +#pragma D binding "1.0" EPROTO
> +inline int EMULTIHOP = 72;
> +#pragma D binding "1.0" EMULTIHOP
> +inline int EDOTDOT = 73;
> +#pragma D binding "1.0" EDOTDOT
> +inline int EBADMSG = 74;
> +#pragma D binding "1.0" EBADMSG
> +inline int EOVERFLOW = 75;
> +#pragma D binding "1.0" EOVERFLOW
> +inline int ENOTUNIQ = 76;
> +#pragma D binding "1.0" ENOTUNIQ
> +inline int EBADFD = 77;
> +#pragma D binding "1.0" EBADFD
> +inline int EREMCHG = 78;
> +#pragma D binding "1.0" EREMCHG
> +inline int ELIBACC = 79;
> +#pragma D binding "1.0" ELIBACC
> +inline int ELIBBAD = 80;
> +#pragma D binding "1.0" ELIBBAD
> +inline int ELIBSCN = 81;
> +#pragma D binding "1.0" ELIBSCN
> +inline int ELIBMAX = 82;
> +#pragma D binding "1.0" ELIBMAX
> +inline int ELIBEXEC = 83;
> +#pragma D binding "1.0" ELIBEXEC
> +inline int EILSEQ = 84;
> +#pragma D binding "1.0" EILSEQ
> +inline int ERESTART = 85;
> +#pragma D binding "1.0" ERESTART
> +inline int ESTRPIPE = 86;
> +#pragma D binding "1.0" ESTRPIPE
> +inline int EUSERS = 87;
> +#pragma D binding "1.0" EUSERS
> +inline int ENOTSOCK = 88;
> +#pragma D binding "1.0" ENOTSOCK
> +inline int EDESTADDRREQ = 89;
> +#pragma D binding "1.0" EDESTADDRREQ
> +inline int EMSGSIZE = 90;
> +#pragma D binding "1.0" EMSGSIZE
> +inline int EPROTOTYPE = 91;
> +#pragma D binding "1.0" EPROTOTYPE
> +inline int ENOPROTOOPT = 92;
> +#pragma D binding "1.0" ENOPROTOOPT
> +inline int EPROTONOSUPPORT = 93;
> +#pragma D binding "1.0" EPROTONOSUPPORT
> +inline int ESOCKTNOSUPPORT = 94;
> +#pragma D binding "1.0" ESOCKTNOSUPPORT
> +inline int EOPNOTSUPP = 95;
> +#pragma D binding "1.0" EOPNOTSUPP
> +inline int EPFNOSUPPORT = 96;
> +#pragma D binding "1.0" EPFNOSUPPORT
> +inline int EAFNOSUPPORT = 97;
> +#pragma D binding "1.0" EAFNOSUPPORT
> +inline int EADDRINUSE = 98;
> +#pragma D binding "1.0" EADDRINUSE
> +inline int EADDRNOTAVAIL = 99;
> +#pragma D binding "1.0" EADDRNOTAVAIL
> +inline int ENETDOWN = 100;
> +#pragma D binding "1.0" ENETDOWN
> +inline int ENETUNREACH = 101;
> +#pragma D binding "1.0" ENETUNREACH
> +inline int ENETRESET = 102;
> +#pragma D binding "1.0" ENETRESET
> +inline int ECONNABORTED = 103;
> +#pragma D binding "1.0" ECONNABORTED
> +inline int ECONNRESET = 104;
> +#pragma D binding "1.0" ECONNRESET
> +inline int ENOBUFS = 105;
> +#pragma D binding "1.0" ENOBUFS
> +inline int EISCONN = 106;
> +#pragma D binding "1.0" EISCONN
> +inline int ENOTCONN = 107;
> +#pragma D binding "1.0" ENOTCONN
> +inline int ESHUTDOWN = 108;
> +#pragma D binding "1.0" ESHUTDOWN
> +inline int ETOOMANYREFS = 109;
> +#pragma D binding "1.0" ETOOMANYREFS
> +inline int ETIMEDOUT = 110;
> +#pragma D binding "1.0" ETIMEDOUT
> +inline int ECONNREFUSED = 111;
> +#pragma D binding "1.0" ECONNREFUSED
> +inline int EHOSTDOWN = 112;
> +#pragma D binding "1.0" EHOSTDOWN
> +inline int EHOSTUNREACH = 113;
> +#pragma D binding "1.0" EHOSTUNREACH
> +inline int EALREADY = 114;
> +#pragma D binding "1.0" EALREADY
> +inline int EINPROGRESS = 115;
> +#pragma D binding "1.0" EINPROGRESS
> +inline int ESTALE = 116;
> +#pragma D binding "1.0" ESTALE
> +inline int EUCLEAN = 117;
> +#pragma D binding "1.0" EUCLEAN
> +inline int ENOTNAM = 118;
> +#pragma D binding "1.0" ENOTNAM
> +inline int ENAVAIL = 119;
> +#pragma D binding "1.0" ENAVAIL
> +inline int EISNAM = 120;
> +#pragma D binding "1.0" EISNAM
> +inline int EREMOTEIO = 121;
> +#pragma D binding "1.0" EREMOTEIO
> +inline int EDQUOT = 122;
> +#pragma D binding "1.0" EDQUOT
> +inline int ENOMEDIUM = 123;
> +#pragma D binding "1.0" ENOMEDIUM
> +inline int EMEDIUMTYPE = 124;
> +#pragma D binding "1.0" EMEDIUMTYPE
> +inline int ECANCELED = 125;
> +#pragma D binding "1.0" ECANCELED
> +inline int ENOKEY = 126;
> +#pragma D binding "1.0" ENOKEY
> +inline int EKEYEXPIRED = 127;
> +#pragma D binding "1.0" EKEYEXPIRED
> +inline int EKEYREVOKED = 128;
> +#pragma D binding "1.0" EKEYREVOKED
> +inline int EKEYREJECTED = 129;
> +#pragma D binding "1.0" EKEYREJECTED
> +inline int EOWNERDEAD = 130;
> +#pragma D binding "1.0" EOWNERDEAD
> +inline int ENOTRECOVERABLE = 131;
> +#pragma D binding "1.0" ENOTRECOVERABLE
> +inline int ERFKILL = 132;
> +#pragma D binding "1.0" ERFKILL
> +inline int EHWPOISON = 133;
> +#pragma D binding "1.0" EHWPOISON
> +inline int ENOTSUP = 95;
> +#pragma D binding "1.0" ENOTSUP
> diff --git a/dlibs/x86_64/6.10.0/io.d b/dlibs/x86_64/6.10.0/io.d
> new file mode 100644
> index 0000000000000..de693c187efcf
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/io.d
> @@ -0,0 +1,235 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2024, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider sched
> +
> +typedef char *caddr_t;
> +
> +typedef struct bufinfo {
> + int b_flags; /* buffer status */
> + size_t b_bcount; /* number of bytes */
> + caddr_t b_addr; /* buffer address */
> + uint64_t b_lblkno; /* block # on device */
> + uint64_t b_blkno; /* expanded block # on device */
> + size_t b_resid; /* # of bytes not transferred */
> + size_t b_bufsize; /* size of allocated buffer */
> + caddr_t b_iodone; /* I/O completion routine */
> + int b_error; /* expanded error field */
> + dev_t b_edev; /* extended device */
> +} bufinfo_t;
> +
> +inline int B_BUSY = 0x000001;
> +#pragma D binding "1.0" B_BUSY
> +inline int B_DONE = 0x000002;
> +#pragma D binding "1.0" B_DONE
> +inline int B_ERROR = 0x000004;
> +#pragma D binding "1.0" B_ERROR
> +inline int B_PAGEIO = 0x000010;
> +#pragma D binding "1.0" B_PAGEIO
> +inline int B_PHYS = 0x000020;
> +#pragma D binding "1.0" B_PHYS
> +inline int B_READ = 0x000040;
> +#pragma D binding "1.0" B_READ
> +inline int B_WRITE = 0x000100;
> +#pragma D binding "1.0" B_WRITE
> +inline int B_ASYNC = 0x000400;
> +#pragma D binding "1.0" B_ASYNC
> +
> +#pragma D binding "1.0" translator
> +translator bufinfo_t < struct buffer_head *B > {
> + b_flags = (int)arg1 & 0x01 ? B_WRITE : B_READ;
> + b_addr = B->b_data;
> + b_bcount = B->b_size;
> + b_lblkno = B->b_blocknr;
> + b_blkno = B->b_blocknr;
> + b_resid = 0;
> + b_bufsize = B->b_size;
> + b_iodone = (caddr_t)B->b_end_io;
> + b_error = 0; /* b_state ?? */
> + b_edev = B->b_bdev->bd_dev;
> +};
> +
> +/*
> + * From linux/blk_types.h.
> + */
> +
> +/* bit # in bi_flags */
> +inline int BIO_USER_MAPPED = 6;
> +
> +/* bit mask in bi_rw */
> +inline int REQ_WRITE = 0x01;
> +
> +inline int REQ_SYNC = 0x800;
> +
> +
> +
> +
> +
> +
> +
> +#pragma D binding "1.6.3" translator
> +translator bufinfo_t < struct bio *B > {
> + b_flags = ((int)B->bi_opf & REQ_WRITE ? B_WRITE : B_READ) |
> + ((int)B->bi_opf & REQ_SYNC ? 0 : B_ASYNC) |
> + ((int)B->bi_flags & (1 << BIO_USER_MAPPED) ? B_PAGEIO : B_PHYS);
> + b_addr = 0;
> + b_bcount = B->bi_iter.bi_size;
> + b_lblkno = B->bi_iter.bi_sector;
> + b_blkno = B->bi_iter.bi_sector;
> + b_resid = 0;
> + b_bufsize = B->bi_iter.bi_size;
> + b_iodone = (caddr_t)B->bi_end_io;
> + b_error = 0;
> + b_edev = B->bi_bdev == NULL ? 0 : B->bi_bdev->bd_dev;
> +};
> +
> +typedef struct devinfo {
> + int dev_major; /* major number */
> + int dev_minor; /* minor number */
> + int dev_instance; /* instance number */
> + string dev_name; /* name of device */
> + string dev_statname; /* name of device + instance/minor */
> + string dev_pathname; /* pathname of device */
> +} devinfo_t;
> +
> +
> +
> +#pragma D binding "1.0" translator
> +translator devinfo_t < struct buffer_head *B > {
> + dev_major = getmajor(B->b_bdev->bd_dev);
> + dev_minor = getminor(B->b_bdev->bd_dev);
> + dev_instance = 0; /* not used? */
> + dev_name = B->b_bdev->bd_disk->part0->bd_device.parent
> + ? B->b_bdev->bd_disk->part0->bd_device.parent->driver->name
> + ? stringof(B->b_bdev->bd_disk->part0->bd_device.parent->driver->name)
> + : "<none>"
> + : B->b_bdev->bd_disk->part0->bd_device.driver->name
> + ? stringof(B->b_bdev->bd_disk->part0->bd_device.driver->name)
> + : "<none>";
> + dev_statname = B->b_bdev->__bd_flags.counter & 255 == 0
> + ? stringof(B->b_bdev->bd_disk->disk_name)
> + : strjoin(stringof(B->b_bdev->bd_disk->disk_name),
> + lltostr(B->b_bdev->__bd_flags.counter & 255));
> + dev_pathname = strjoin(
> + "/dev/",
> + B->b_bdev->__bd_flags.counter & 255 == 0
> + ? stringof(B->b_bdev->bd_disk->disk_name)
> + : strjoin(stringof(B->b_bdev->bd_disk->disk_name),
> + lltostr(B->b_bdev->__bd_flags.counter & 255))
> + );
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator devinfo_t < struct bio *B > {
> + dev_major = B->bi_bdev == NULL ? 0 : getmajor(B->bi_bdev->bd_dev);
> + dev_minor = B->bi_bdev == NULL ? 0 : getminor(B->bi_bdev->bd_dev);
> + dev_instance = 0;
> + dev_name = B->bi_bdev == NULL
> + ? "nfs"
> + : stringof(((struct blk_major_name **)`major_names)[
> + getmajor(B->bi_bdev->bd_dev) % 255
> + ]->name);
> + dev_statname = B->bi_bdev == NULL ? "nfs" :
> + B->bi_bdev->__bd_flags.counter & 255 == 0 ? stringof(B->bi_bdev->bd_disk->disk_name) :
> + strjoin(stringof(B->bi_bdev->bd_disk->disk_name), lltostr(B->bi_bdev->__bd_flags.counter & 255));
> + dev_pathname = B->bi_bdev == NULL ? "<nfs>" : "<unknown>";
> +};
> +
> +typedef struct fileinfo {
> + string fi_name; /* name (basename of fi_pathname) */
> + string fi_dirname; /* directory (dirname of fi_pathname) */
> + string fi_pathname; /* full pathname */
> + loff_t fi_offset; /* offset within file */
> + string fi_fs; /* filesystem */
> + string fi_mount; /* mount point of file system */
> + int fi_oflags; /* open(2) flags for file descriptor */
> +} fileinfo_t;
> +
> +#pragma D binding "1.0" translator
> +translator fileinfo_t < struct buffer_head *B > {
> + fi_name = "<unknown>";
> + fi_dirname = "<unknown>";
> + fi_pathname = "<unknown>";
> + fi_offset = 0;
> + fi_fs = "<unknown>";
> + fi_mount = "<unknown>";
> + fi_oflags = 0;
> +};
> +
> +inline int O_ACCMODE = 0003;
> +#pragma D binding "1.1" O_ACCMODE
> +inline int O_RDONLY = 00;
> +#pragma D binding "1.1" O_RDONLY
> +inline int O_WRONLY = 01;
> +#pragma D binding "1.1" O_WRONLY
> +inline int O_RDWR = 02;
> +#pragma D binding "1.1" O_RDWR
> +inline int O_CREAT = 00000100;
> +#pragma D binding "1.1" O_CREAT
> +inline int O_EXCL = 00000200;
> +#pragma D binding "1.1" O_EXCL
> +inline int O_NOCTTY = 00000400;
> +#pragma D binding "1.1" O_NOCTTY
> +inline int O_TRUNC = 00001000;
> +#pragma D binding "1.1" O_TRUNC
> +inline int O_APPEND = 00002000;
> +#pragma D binding "1.1" O_APPEND
> +inline int O_NONBLOCK = 00004000;
> +#pragma D binding "1.1" O_NONBLOCK
> +inline int O_NDELAY = 00004000;
> +#pragma D binding "1.1" O_NDELAY
> +inline int O_SYNC = (04000000|010000);
> +#pragma D binding "1.1" O_SYNC
> +inline int O_FSYNC = (04000000|010000);
> +#pragma D binding "1.1" O_FSYNC
> +inline int O_ASYNC = 020000;
> +#pragma D binding "1.1" O_ASYNC
> +inline int O_DIRECTORY = 0200000;
> +#pragma D binding "1.1" O_DIRECTORY
> +inline int O_NOFOLLOW = 0400000;
> +#pragma D binding "1.1" O_NOFOLLOW
> +inline int O_CLOEXEC = 02000000;
> +#pragma D binding "1.1" O_CLOEXEC
> +inline int O_DSYNC = 010000;
> +#pragma D binding "1.1" O_DSYNC
> +inline int O_RSYNC = (04000000|010000);
> +#pragma D binding "1.1" O_RSYNC
> +
> +#pragma D binding "1.1" translator
> +translator fileinfo_t < struct file *F > {
> + fi_name = F == NULL
> + ? "<none>"
> + : stringof(F->f_path.dentry->d_name.name);
> + fi_dirname = F == NULL
> + ? "<none>"
> + : dirname(d_path(&(F->f_path)));
> + fi_pathname = F == NULL
> + ? "<none>"
> + : d_path(&(F->f_path));
> + fi_offset = F == NULL
> + ? 0
> + : F->f_pos;
> + fi_fs = F == NULL
> + ? "<none>"
> + : stringof(F->f_path.mnt->mnt_sb->s_type->name);
> + fi_mount = F == NULL
> + ? "<none>"
> + : "<unknown>";
> + fi_oflags = F == NULL
> + ? 0
> + : F->f_flags;
> +};
> +
> +inline fileinfo_t fds[int fd] = xlate <fileinfo_t> (
> + fd >= 0 && fd < curthread->files->fdt->max_fds
> + ? curthread->files->fdt->fd[fd]
> + : NULL
> + );
> +
> +#pragma D attributes Stable/Stable/Common fds
> +#pragma D binding "1.1" fds
> diff --git a/dlibs/x86_64/6.10.0/ip.d b/dlibs/x86_64/6.10.0/ip.d
> new file mode 100644
> index 0000000000000..f8b77f1224115
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/ip.d
> @@ -0,0 +1,341 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, 2023, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on library procfs.d
> +#pragma D depends_on provider ip
> +
> +inline int IPPROTO_IP = 0;
> +inline int IPPROTO_ICMP = 1;
> +inline int IPPROTO_IGMP = 2;
> +inline int IPPROTO_IPIP = 4;
> +inline int IPPROTO_TCP = 6;
> +inline int IPPROTO_EGP = 8;
> +inline int IPPROTO_PUP = 12;
> +inline int IPPROTO_UDP = 17;
> +inline int IPPROTO_IDP = 22;
> +inline int IPPROTO_TP = 29;
> +inline int IPPROTO_DCCP = 33;
> +inline int IPPROTO_IPV6 = 41;
> +inline int IPPROTO_RSVP = 46;
> +inline int IPPROTO_GRE = 47;
> +inline int IPPROTO_ESP = 50;
> +inline int IPPROTO_AH = 51;
> +inline int IPPROTO_OSPF = 89;
> +inline int IPPROTO_MTP = 92;
> +inline int IPPROTO_BEETPH = 94;
> +inline int IPPROTO_ENCAP = 98;
> +inline int IPPROTO_PIM = 103;
> +inline int IPPROTO_COMP = 108;
> +inline int IPPROTO_SCTP = 132;
> +inline int IPPROTO_UDPLITE = 136;
> +inline int IPPROTO_RAW = 255;
> +inline int IPPROTO_MAX = 256;
> +inline int IPPROTO_HOPOPTS = 0;
> +inline int IPPROTO_ROUTING = 43;
> +inline int IPPROTO_FRAGMENT = 44;
> +inline int IPPROTO_ICMPV6 = 58;
> +inline int IPPROTO_NONE = 59;
> +inline int IPPROTO_DSTOPTS = 60;
> +inline int IPPROTO_MH = 135;
> +
> +inline int TCP_MIN_HEADER_LENGTH = 20;
> +
> +/*
> + * For compatibility with Solaris. Here the netstackid will be the pointer
> + * to the net namespace (nd_net in struct net_device).
> + */
> +typedef uint64_t netstackid_t;
> +typedef __be32 ipaddr_t;
> +typedef struct in6_addr in6_addr_t;
> +
> +/*
> + * pktinfo is where packet ID info can be made available for deeper
> + * analysis if packet IDs become supported by the kernel in the future.
> + * The pkt_addr member is currently always NULL.
> + */
> +typedef struct pktinfo {
> + uintptr_t pkt_addr;
> +} pktinfo_t;
> +
> +/*
> + * csinfo is where connection state info is made available.
> + */
> +typedef struct csinfo {
> + uintptr_t cs_addr;
> + uint64_t cs_cid;
> +} csinfo_t;
> +
> +/*
> + * ipinfo contains common IP info for both IPv4 and IPv6.
> + */
> +typedef struct ipinfo {
> + uint8_t ip_ver; /* IP version (4, 6) */
> + uint32_t ip_plength; /* payload length */
> + string ip_saddr; /* source address */
> + string ip_daddr; /* destination address */
> +} ipinfo_t;
> +
> +/*
> + * ifinfo contains network interface info.
> + */
> +typedef struct ifinfo {
> + string if_name; /* interface name */
> + int8_t if_local; /* is delivered locally */
> + netstackid_t if_ipstack; /* netns pointer on Linux */
> + uintptr_t if_addr; /* pointer to raw struct net_device */
> +} ifinfo_t;
> +
> +/*
> + * ipv4info is a translated version of the IPv4 header (with raw pointer).
> + * These values are NULL if the packet is not IPv4.
> + */
> +typedef struct ipv4info {
> + uint8_t ipv4_ver; /* IP version (4) */
> + uint8_t ipv4_ihl; /* header length, bytes */
> + uint8_t ipv4_tos; /* type of service field */
> + uint16_t ipv4_length; /* length (header + payload) */
> + uint16_t ipv4_ident; /* identification */
> + uint8_t ipv4_flags; /* IP flags */
> + uint16_t ipv4_offset; /* fragment offset */
> + uint8_t ipv4_ttl; /* time to live */
> + uint8_t ipv4_protocol; /* next level protocol */
> + string ipv4_protostr; /* next level protocol, as string */
> + uint16_t ipv4_checksum; /* header checksum */
> + ipaddr_t ipv4_src; /* source address */
> + ipaddr_t ipv4_dst; /* destination address */
> + string ipv4_saddr; /* source address, string */
> + string ipv4_daddr; /* destination address, string */
> + struct iphdr *ipv4_hdr; /* pointer to raw header */
> +} ipv4info_t;
> +
> +/*
> + * ipv6info is a translated version of the IPv6 header (with raw pointer).
> + * These values are NULL if the packet is not IPv6.
> + */
> +typedef struct ipv6info {
> + uint8_t ipv6_ver; /* IP version (6) */
> + uint8_t ipv6_tclass; /* traffic class */
> + uint32_t ipv6_flow; /* flow label */
> + uint16_t ipv6_plen; /* payload length */
> + uint8_t ipv6_nexthdr; /* next header protocol */
> + string ipv6_nextstr; /* next header protocol, as string */
> + uint8_t ipv6_hlim; /* hop limit */
> + in6_addr_t *ipv6_src; /* source address */
> + in6_addr_t *ipv6_dst; /* destination address */
> + string ipv6_saddr; /* source address, string */
> + string ipv6_daddr; /* destination address, string */
> + struct ipv6hdr *ipv6_hdr; /* pointer to raw header */
> +} ipv6info_t;
> +
> +/*
> + * void_ip_t is a void pointer to either an IPv4 or IPv6 header. It has
> + * its own type name so that a translator can be determined.
> + */
> +typedef uintptr_t void_ip_t;
> +
> +/*
> + * __dtrace_tcp_void_ip_t is used by the translator to take either the
> + * non-NULL void_ip_t * passed in or, if it is NULL, uses arg3 (struct tcp *)
> + * from the tcp:::send probe to translate to an ipinfo_t.
> + * This allows us to present the consumer with header data based on the
> + * struct tcp * when IP information is not yet present (for TCP send).
> + */
> +typedef void * __dtrace_tcp_void_ip_t;
> +
> +#pragma D binding "1.5" translator
> +translator pktinfo_t < struct sk_buff *s > {
> + pkt_addr = (uintptr_t)s;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator csinfo_t < struct sock *s > {
> + cs_addr = (uintptr_t)s;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < struct iphdr *I > {
> + ip_ver = 4;
> + ip_plength = I != NULL ? (ntohs(I->tot_len) - I->ihl << 2) : 0;
> + ip_saddr = I != NULL ? inet_ntoa(&I->saddr) : "<unknown>";
> + ip_daddr = I != NULL ? inet_ntoa(&I->daddr) : "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < struct ipv6hdr *I > {
> + ip_ver = 6;
> + ip_plength = I != NULL ? ntohs(I->payload_len) : 0;
> + ip_saddr = I != NULL ? inet_ntoa6(&I->saddr) : "<unknown>";
> + ip_daddr = I != NULL ? inet_ntoa6(&I->daddr) : "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < void_ip_t *I > {
> + ip_ver = I != NULL ? *(uint8_t *)I >> 4 : 0;
> + ip_plength = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + (ntohs(((struct iphdr *)I)->tot_len) - ((*(uint8_t *)I & 0xf) << 2)) :
> + *(uint8_t *)I >> 4 == 6 ?
> + ntohs(((struct ipv6hdr *)I)->payload_len) : 0) : 0;
> + ip_saddr = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->saddr) : *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->saddr) : "<unknown>") :
> + "<unknown>";
> + ip_daddr = I != NULL ? (*(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->daddr) : *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->daddr) : "<unknown>") :
> + "<unknown>";
> +};
> +
> +/*
> + * In some cases where the ipinfo_t * is NULL we wish to construct IP info
> + * using the struct tcp_sock * (arg3). In order to map local IP to source
> + * or destination IP address appropriately we need to check if the associated
> + * data is inbound (NET_PROBE_INBOUND in arg7) or outbound (NET_PROBE_OUTBOUND);
> + * the value is stored in arg7. If inbound, we map the local IP address to
> + * ip_daddr (destination), and if outbound it is mapped to ip_saddr.
> + */
> +#pragma D binding "1.5" translator
> +translator ipinfo_t < __dtrace_tcp_void_ip_t *I > {
> + /*
> + * General strategy used is to rely on the IP header I if it is
> + * non-null; otherwise we try to reconstruct IP values from arg3
> + * (a struct tcp_sock *).
> + */
> + ip_ver = I != NULL ? *(uint8_t *)I >> 4 :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family == AF_INET ? 4 :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET6 ? 6 : 0;
> + /*
> + * For ip_plength we fall back to using TCP skb data from the tcp_skb_cb
> + * to determine payload length.
> + */
> + ip_plength = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + ntohs(((struct iphdr *)I)->tot_len) - ((*(uint8_t *)I & 0xf) << 2) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + ntohs(((struct ipv6hdr *)I)->payload_len) :
> + arg0 != NULL ?
> + ((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->end_seq -
> + ((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->seq :
> + 0;
> + /*
> + * For source/destination addresses, we again try to use the IP header I
> + * if available. If I is NULL, we utilize arg3 (struct tcp_sock *)
> + * but the problem here is that it stores local and remote IP addresses
> + * _not_ source and destination. So we need to know if traffic is
> + * inbound or outbound. If inbound, IP source address is remote
> + * socket address (skc_daddr) and destination IP address is local socket
> + * address (skc_rcv_saddr). If outbound, IP source address is local
> + * socket address and IP destination address is remote socket address.
> + */
> + ip_saddr = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->saddr) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->saddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_daddr :
> + &((struct sock *)arg3)->__sk_common.skc_rcv_saddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_v6_daddr :
> + &((struct sock *)arg3)->__sk_common.skc_v6_rcv_saddr) :
> + "<unknown>";
> + ip_daddr = I != NULL && *(uint8_t *)I >> 4 == 4 ?
> + inet_ntoa(&((struct iphdr *)I)->daddr) :
> + I != NULL && *(uint8_t *)I >> 4 == 6 ?
> + inet_ntoa6(&((struct ipv6hdr *)I)->daddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_rcv_saddr :
> + &((struct sock *)arg3)->__sk_common.skc_daddr) :
> + arg3 != NULL &&
> + ((struct sock *)arg3)->__sk_common.skc_family== AF_INET6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct sock *)arg3)->__sk_common.skc_v6_rcv_saddr :
> + &((struct sock *)arg3)->__sk_common.skc_v6_daddr) :
> + "<unknown>";
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ifinfo_t < struct net_device *N > {
> + if_name = N != NULL ? stringof(N->name) : "<unknown>";
> + if_ipstack = (N != NULL && sizeof(N->nd_net) > 0) ?
> + ((uint64_t)N->nd_net.net) : 0;
> + if_local = (N == NULL); /* is delivered locally */
> + if_addr = (uintptr_t)N; /* pointer to raw struct net_device ptr */
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipv4info_t < struct iphdr *I > {
> + ipv4_ver = I != NULL ? 4 : 0;
> + ipv4_ihl = I != NULL ? ((*(uint8_t *)I & 0xf) << 2) : 0;
> + ipv4_tos = I != NULL ? I->tos : 0;
> + ipv4_length = I != NULL ? ntohs(I->tot_len) : 0;
> + ipv4_ident = I != NULL ? ntohs(I->id) : 0;
> + ipv4_flags = I != NULL ? ntohs(I->frag_off) >> 12 : 0;
> + ipv4_offset = I != NULL ? ntohs(I->frag_off) & 0x0fff : 0;
> + ipv4_ttl = I != NULL ? I->ttl : 0;
> + ipv4_protocol = I != NULL ? I->protocol : 0;
> + ipv4_protostr = I == NULL ? "<null>" :
> + I->protocol == IPPROTO_TCP ? "TCP" :
> + I->protocol == IPPROTO_UDP ? "UDP" :
> + I->protocol == IPPROTO_IP ? "IP" :
> + I->protocol == IPPROTO_ICMP ? "ICMP" :
> + I->protocol == IPPROTO_IGMP ? "IGMP" :
> + I->protocol == IPPROTO_EGP ? "EGP" :
> + I->protocol == IPPROTO_IPV6 ? "IPv6" :
> + I->protocol == IPPROTO_ROUTING ? "ROUTE" :
> + I->protocol == IPPROTO_ESP ? "ESP" :
> + I->protocol == IPPROTO_AH ? "AH" :
> + I->protocol == IPPROTO_ICMPV6 ? "ICMPv6" :
> + I->protocol == IPPROTO_OSPF ? "OSPF" :
> + I->protocol == IPPROTO_SCTP ? "SCTP" :
> + I->protocol == IPPROTO_RAW ? "RAW" :
> + lltostr((uint64_t)I->protocol);
> + ipv4_checksum = I != NULL ? ntohs(I->check) : 0;
> + ipv4_src = I != NULL ? I->saddr : 0;
> + ipv4_dst = I != NULL ? I->daddr : 0;
> + ipv4_saddr = I != NULL ? inet_ntoa(&I->saddr) : "<null>";
> + ipv4_daddr = I != NULL ? inet_ntoa(&I->daddr) : "<null>";
> + ipv4_hdr = I;
> +};
> +
> +#pragma D binding "1.5" translator
> +translator ipv6info_t < struct ipv6hdr *I > {
> + ipv6_ver = I != NULL ? ((*(uint8_t *)I) >> 4) : 0;
> + ipv6_tclass = I != NULL ? ((ntohl(*(uint32_t *)I) & 0x0fffffff) >> 20) : 0;
> + ipv6_flow = I != NULL ? (ntohl(*(uint32_t *)I) & 0x000fffff) : 0;
> + ipv6_plen = I != NULL ? ntohs(I->payload_len) : 0;
> + ipv6_nexthdr = I != NULL ? I->nexthdr : 0;
> + ipv6_nextstr = I == NULL ? "<null>" :
> + I->nexthdr == IPPROTO_TCP ? "TCP" :
> + I->nexthdr == IPPROTO_UDP ? "UDP" :
> + I->nexthdr == IPPROTO_IP ? "IP" :
> + I->nexthdr == IPPROTO_ICMP ? "ICMP" :
> + I->nexthdr == IPPROTO_IGMP ? "IGMP" :
> + I->nexthdr == IPPROTO_EGP ? "EGP" :
> + I->nexthdr == IPPROTO_IPV6 ? "IPv6" :
> + I->nexthdr == IPPROTO_ROUTING ? "ROUTE" :
> + I->nexthdr == IPPROTO_ESP ? "ESP" :
> + I->nexthdr == IPPROTO_AH ? "AH" :
> + I->nexthdr == IPPROTO_ICMPV6 ? "ICMPv6" :
> + I->nexthdr == IPPROTO_OSPF ? "OSPF" :
> + I->nexthdr == IPPROTO_SCTP ? "SCTP" :
> + I->nexthdr == IPPROTO_RAW ? "RAW" :
> + lltostr((uint64_t)I->nexthdr);
> + ipv6_hlim = I != NULL ? I->hop_limit : 0;
> + ipv6_src = I != NULL ? &I->saddr : NULL;
> + ipv6_dst = I != NULL ? &I->daddr : 0;
> + ipv6_saddr = I != NULL ? inet_ntoa6(&I->saddr) : "<null>";
> + ipv6_daddr = I != NULL ? inet_ntoa6(&I->daddr) : "<null>";
> + ipv6_hdr = I;
> +};
> diff --git a/dlibs/x86_64/6.10.0/lockstat.d b/dlibs/x86_64/6.10.0/lockstat.d
> new file mode 100644
> index 0000000000000..cb8b4bd96f1ac
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/lockstat.d
> @@ -0,0 +1,14 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider lockstat
> +
> +inline int RW_WRITER = 0x00;
> +#pragma D binding "1.6.4" RW_WRITER
> +inline int RW_READER = 0x01;
> +#pragma D binding "1.6.4" RW_READER
> diff --git a/dlibs/x86_64/6.10.0/net.d b/dlibs/x86_64/6.10.0/net.d
> new file mode 100644
> index 0000000000000..6ac3428747a77
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/net.d
> @@ -0,0 +1,33 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +/* These are needed for inet_ntop() DTrace function. */
> +inline int AF_INET = 2;
> +inline int AF_INET6 = 10;
> +
> +/* These are needed for link_ntop() DTrace function. */
> +inline int ARPHRD_ETHER = 1;
> +inline int ARPHRD_INFINIBAND = 32;
> +
> +/*
> + * The conninfo_t structure should be used by all application protocol
> + * providers as the first arguments to indicate some basic information
> + * about the connection. This structure may be augmented to accommodate
> + * the particularities of additional protocols in the future.
> + */
> +typedef struct conninfo {
> + string ci_local; /* local host address */
> + string ci_remote; /* remote host address */
> + string ci_protocol; /* protocol (ipv4, ipv6, etc) */
> +} conninfo_t;
> +
> +/*
> + * We use these values to determine if a probe point is associated
> + * with sending (outbound) or receiving (inbound).
> + */
> +inline int NET_PROBE_OUTBOUND = 0x00;
> +inline int NET_PROBE_INBOUND = 0x01;
> diff --git a/dlibs/x86_64/6.10.0/pcap.d b/dlibs/x86_64/6.10.0/pcap.d
> new file mode 100644
> index 0000000000000..21a8e74a4036d
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/pcap.d
> @@ -0,0 +1,35 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2016, 2023, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on provider ip
> +
> +/*
> + * In general, PCAP_<type> names are chosen to match DL_<type> DLPI
> + * datalink types.
> + */
> +
> +/*
> + * Network-related capture types. Raw DLT_* values can be used for those
> + * not present here; see /usr/include/pcap/bpf.h for the full list.
> + */
> +
> +inline int PCAP_NULL = 0;
> +#pragma D binding "1.12" PCAP_NULL
> +inline int PCAP_ETHER = 1;
> +#pragma D binding "1.12" PCAP_ETHER
> +inline int PCAP_WIFI = 105;
> +#pragma D binding "1.12" PCAP_WIFI
> +inline int PCAP_PPP = 9;
> +#pragma D binding "1.12" PCAP_PPP
> +/* PCAP_IP can signify IPv4 or IPv6 header follows. */
> +inline int PCAP_IP = 12;
> +#pragma D binding "1.12" PCAP_IP
> +
> +/* InfiniBand-related capture types. */
> +inline int PCAP_IPOIB = 242;
> +#pragma D binding "1.12" PCAP_IPOIB
> diff --git a/dlibs/x86_64/6.10.0/procfs.d b/dlibs/x86_64/6.10.0/procfs.d
> new file mode 100644
> index 0000000000000..5d7873b5e0091
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/procfs.d
> @@ -0,0 +1,306 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2022, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +/*
> + * This file defines the standard set of inlines and translators to be made
> + * available for all D programs to use to examine process model state.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library sched.d
> +
> +typedef time64_t time_t;
> +
> +typedef struct timestruc {
> + time_t tv_sec;
> + long tv_nsec;
> +} timestruc_t;
> +
> +typedef struct lwpsinfo {
> + int pr_flag; /* lwp flags (DEPRECATED) */
> + int pr_lwpid; /* lwp id */
> + uintptr_t pr_addr; /* internal address of lwp */
> + uintptr_t pr_wchan; /* wait addr for sleeping lwp */
> + char pr_stype; /* sync event type */
> + char pr_state; /* numeric lwp state */
> + char pr_sname; /* printable char for pr_state */
> + char pr_nice; /* nice for cpu usage */
> + short pr_syscall; /* syscall number */
> + char pr_oldpri; /* priority */
> + char pr_cpu; /* CPU usage */
> + int pr_pri; /* priority */
> + ushort_t pr_pctcpu; /* % of recent cpu time */
> + ushort_t pr_pad;
> + timestruc_t pr_start; /* lwp start time */
> + timestruc_t pr_time; /* usr+sys cpu time */
> + char pr_clname[8]; /* scheduling class name */
> + char pr_name[16]; /* name */
> + processorid_t pr_onpro; /* processor last ran on */
> + processorid_t pr_bindpro; /* processor bound to */
> + psetid_t pr_bindpset; /* processor set */
> + int pr_lgrp; /* lwp home lgroup */
> + int pr_filler[4];
> +} lwpsinfo_t;
> +
> +typedef id_t taskid_t;
> +typedef id_t dprojid_t;
> +typedef id_t poolid_t;
> +typedef id_t zoneid_t;
> +
> +/*
> + * Translate from the kernel's task_struct structure to a Solaris proc(4)
> + * psinfo_t struct.
> + * We do not provide support for pr_size, pr_rssize, pr_pctcpu, and pr_pctmem.
> + * We also do not fill in pr_lwp (the lwpsinfo_t for the representative LWP)
> + * because we do not have the ability to select and stop any representative.
> + * Also, for the moment, pr_wstat, pr_time, and pr_ctime are not supported,
> + * but these could be supported by DTrace in the future using subroutines.
> + * Note that any member added to this translator should also be added to the
> + * kthread_t-to-psinfo_t translator, below.
> + */
> +typedef struct psinfo {
> + int pr_flag; /* process flags (DEPRECATED) */
> + int pr_nlwp; /* number of active lwps (Linux: 1) */
> + pid_t pr_pid; /* unique process id */
> + pid_t pr_ppid; /* process id of parent */
> + pid_t pr_pgid; /* pid of process group leader */
> + pid_t pr_sid; /* session id */
> + uid_t pr_uid; /* real user id */
> + uid_t pr_euid; /* effective user id */
> + uid_t pr_gid; /* real group id */
> + uid_t pr_egid; /* effective group id */
> + uintptr_t pr_addr; /* address of process */
> + size_t pr_size; /* size of process image (in KB) */
> + size_t pr_rssize; /* resident set sie (in KB) */
> + size_t pr_pad1;
> + struct tty_struct *pr_ttydev; /* controlling tty (or -1) */
> + ushort_t pr_pctcpu; /* % of recent cpu time used */
> + ushort_t pr_pctmem; /* % of recent memory used */
> + timestruc_t pr_start; /* process start time */
> + timestruc_t pr_time; /* usr+sys cpu time for process */
> + timestruc_t pr_ctime; /* usr+sys cpu time for children */
> + char pr_fname[16]; /* name of exec'd file */
> + char pr_psargs[80]; /* initial chars of arg list */
> + int pr_wstat; /* if zombie, wait() status */
> + int pr_argc; /* initial argument count */
> + uintptr_t pr_argv; /* address of initial arg vector */
> + uintptr_t pr_envp; /* address of initial env vector */
> + char pr_dmodel; /* data model */
> + char pr_pad2[3];
> + taskid_t pr_taskid; /* task id */
> + dprojid_t pr_projid; /* project id */
> + int pr_nzomb; /* number of zombie lwps (Linux: 0) */
> + poolid_t pr_poolid; /* pool id */
> + zoneid_t pr_zoneid; /* zone id */
> + id_t pr_contract; /* process contract */
> + int pr_filler[1];
> + lwpsinfo_t pr_lwp;
> +} psinfo_t;
> +
> +inline char PR_MODEL_ILP32 = 1;
> +#pragma D binding "1.0" PR_MODEL_ILP32
> +inline char PR_MODEL_LP64 = 2;
> +#pragma D binding "1.0" PR_MODEL_LP64
> +
> +
> +
> +inline int PIDTYPE_PID = 0;
> +#pragma D binding "1.0" PIDTYPE_PID
> +inline int PIDTYPE_TGID = 1;
> +#pragma D binding "1.0" PIDTYPE_TGID
> +inline int PIDTYPE_PGID = 2;
> +#pragma D binding "1.0" PIDTYPE_PGID
> +inline int PIDTYPE_SID = 3;
> +#pragma D binding "1.0" PIDTYPE_SID
> +
> +
> +
> +
> +
> +
> +
> +
> +#pragma D binding "1.0" translator
> +translator psinfo_t < struct task_struct *T > {
> + pr_nlwp = 1;
> + pr_pid = T->tgid;
> + pr_ppid = T->real_parent->tgid;
> + pr_pgid = T->signal->pids[PIDTYPE_PGID]->numbers[0].nr;
> + pr_sid = T->signal->pids[PIDTYPE_SID]->numbers[0].nr;
> + pr_uid = T->cred->uid.val;
> + pr_euid = T->cred->euid.val;
> + pr_gid = T->cred->gid.val;
> + pr_egid = T->cred->egid.val;
> + pr_addr = (uintptr_t)T;
> +
> + pr_ttydev = T->signal->tty ? T->signal->tty
> + : (struct tty_struct *)-1;
> +
> + pr_fname = T->comm;
> +/*
> + pr_psargs = stringof(get_psinfo(T)->__psinfo(psargs));
> + */
> + pr_wstat = 0;
> +/*
> + pr_argc = get_psinfo(T)->__psinfo(argc);
> + pr_argv = (uintptr_t)get_psinfo(T)->__psinfo(argv);
> + pr_envp = (uintptr_t)get_psinfo(T)->__psinfo(envp);
> + */
> +
> + pr_dmodel = PR_MODEL_LP64;
> +
> + pr_taskid = 0;
> + pr_projid = 0;
> + pr_nzomb = 0;
> + pr_poolid = 0;
> + pr_zoneid = 0;
> + pr_contract = 0;
> +};
> +
> +inline int PR_STOPPED = 0x00000001;
> +#pragma D binding "1.0" PR_STOPPED
> +inline int PR_ISTOP = 0x00000002;
> +#pragma D binding "1.0" PR_ISTOP
> +inline int PR_DSTOP = 0x00000004;
> +#pragma D binding "1.0" PR_DSTOP
> +inline int PR_IDLE = 0x10000000;
> +#pragma D binding "1.0" PR_IDLE
> +
> +inline char SSLEEP = 1;
> +#pragma D binding "1.0" SSLEEP
> +inline char SRUN = 2;
> +#pragma D binding "1.0" SRUN
> +inline char SZOMB = 3;
> +#pragma D binding "1.0" SZOMB
> +inline char SSTOP = 4;
> +#pragma D binding "1.0" SSTOP
> +inline char SIDL = 5;
> +#pragma D binding "1.0" SIDL
> +inline char SONPROC = 6;
> +#pragma D binding "1.0" SONPROC
> +inline char SWAIT = 7;
> +#pragma D binding "1.0" SWAIT
> +
> +/*
> + * Translate from the kernel's task_struct structure to a Solaris proc(4)
> + * lwpsinfo_t.
> + * We do not provide support for pr_nice, pr_oldpri, pr_cpu, or pr_pctcpu.
> + * Also, for the moment, pr_start and pr_time are not supported, but these
> + * could be supported by DTrace in the future using subroutines.
> + */
> +#pragma D binding "1.0" translator
> +translator lwpsinfo_t < struct task_struct *T > {
> + pr_flag = (T->__state & 0x00000004) ? PR_STOPPED : 0;
> +/*
> + pr_flag = ((T->t_state == TS_STOPPED) ? (PR_STOPPED |
> + ((!(T->t_schedflag & TS_PSTART)) ? PR_ISTOP : 0)) :
> + ((T->t_proc_flag & TP_PRVSTOP) ? PR_STOPPED | PR_ISTOP : 0)) |
> + ((T == T->t_procp->p_agenttp) ? PR_AGENT : 0) |
> + ((!(T->t_proc_flag & TP_TWAIT)) ? PR_DETACH : 0) |
> + ((T->t_proc_flag & TP_DAEMON) ? PR_DAEMON : 0) |
> + ((T->t_procp->p_pidflag & CLDNOSIGCHLD) ? PR_NOSIGCHLD : 0) |
> + ((T->t_procp->p_pidflag & CLDWAITPID) ? PR_WAITPID : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_FORK) ? PR_FORK : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_RUNLCL) ? PR_RLC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_KILLCL) ? PR_KLC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_ASYNC) ? PR_ASYNC : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_BPTADJ) ? PR_BPTADJ : 0) |
> + ((T->t_procp->p_proc_flag & P_PR_PTRACE) ? PR_PTRACE : 0) |
> + ((T->t_procp->p_flag & SMSACCT) ? PR_MSACCT : 0) |
> + ((T->t_procp->p_flag & SMSFORK) ? PR_MSFORK : 0) |
> + ((T->t_procp->p_flag & SVFWAIT) ? PR_VFORKP : 0) |
> + (((T->t_procp->p_flag & SSYS) ||
> + (T->t_procp->p_as == &`kas)) ? PR_ISSYS : 0) |
> + ((T == T->t_cpu->cpu_idle_thread) ? PR_IDLE : 0);
> +*/
> +
> + pr_lwpid = T->pid;
> + pr_addr = (uintptr_t)T;
> + pr_wchan = NULL;
> + pr_stype = 0;
> +
> + pr_state = (T->__state & 0x00000001) ? SSLEEP :
> + (T->__state & 0x00000002) ? SSLEEP :
> + (T->__state & 0x00000004) ? SSTOP :
> + (T->__state & 0x00000008) ? SSTOP :
> + (T->__state & 0x00000020) ? SZOMB :
> + (T->__state & 0x00000010) ? SZOMB :
> + (T->__state & 0x00000080) ? SZOMB :
> + (T->__state & 0x00000100) ? SWAIT :
> + (T->__state & 0x00000200) ? SWAIT : SRUN;
> + pr_sname = (T->__state & 0x00000001) ? 'S' :
> + (T->__state & 0x00000002) ? 'S' :
> + (T->__state & 0x00000004) ? 'T' :
> + (T->__state & 0x00000008) ? 'T' :
> + (T->__state & 0x00000020) ? 'Z' :
> + (T->__state & 0x00000010) ? 'Z' :
> + (T->__state & 0x00000080) ? 'Z' :
> + (T->__state & 0x00000100) ? 'W' :
> + (T->__state & 0x00000200) ? 'W' : 'R';
> +
> + pr_pri = T->prio;
> + pr_name = T->comm;
> + pr_onpro = ((struct thread_info *)T->stack)->cpu;
> +};
> +
> +inline psinfo_t *curpsinfo = xlate <psinfo_t *> (curthread);
> +#pragma D attributes Stable/Stable/Common curpsinfo
> +#pragma D binding "1.0" curpsinfo
> +
> +inline lwpsinfo_t *curlwpsinfo = xlate <lwpsinfo_t *> (curthread);
> +#pragma D attributes Stable/Stable/Common curlwpsinfo
> +#pragma D binding "1.0" curlwpsinfo
> +
> +inline string cwd = d_path(&(curthread->fs->pwd));
> +#pragma D attributes Stable/Stable/Common cwd
> +#pragma D binding "1.0" cwd
> +
> +inline string root = d_path(&(curthread->fs->root));
> +#pragma D attributes Stable/Stable/Common root
> +#pragma D binding "1.0" root
> +
> +inline int CLD_EXITED = 1;
> +#pragma D binding "1.0" CLD_EXITED
> +inline int CLD_KILLED = 2;
> +#pragma D binding "1.0" CLD_KILLED
> +inline int CLD_DUMPED = 3;
> +#pragma D binding "1.0" CLD_DUMPED
> +inline int CLD_TRAPPED = 4;
> +#pragma D binding "1.0" CLD_TRAPPED
> +inline int CLD_STOPPED = 5;
> +#pragma D binding "1.0" CLD_STOPPED
> +inline int CLD_CONTINUED = 6;
> +#pragma D binding "1.0" CLD_CONTINUED
> +
> +/*
> + * Below we provide some inline definitions to simplify converting from
> + * a struct pid * to a pid_t. structpid2pid is a DTrace-ized version of
> + * pid_vnr().
> + */
> + /*
> +inline struct pid_namespace *pid_namespace[struct pid *p] = p != NULL ?
> + p->numbers[p->level].ns : NULL;
> +
> +inline int pid_namespace_level[struct pid *p] = p != NULL && pid_namespace[p] ?
> + pid_namespace[p]->level : 0;
> +
> +m4_dnl 4.19 and above use thread_pid for this.
> +define_for_kernel([[__task_pid]], [[ m4_dnl
> + (m4_kver(4, 19, 0), [[task->thread_pid]])]], m4_dnl
> + [[task->pids[PIDTYPE_PID].pid]]) m4_dnl
> +
> +inline struct pid *task_pid[struct task_struct *task] =
> + task != NULL ? __task_pid : NULL;
> +
> +inline int current_namespace_level = pid_namespace_level[task_pid[curthread]];
> +
> +inline pid_t structpid2pid[struct pid *p] =
> + p != NULL && current_namespace_level <= p->level &&
> + ((struct upid *)&(p->numbers[current_namespace_level]))->ns ==
> + pid_namespace[task_pid[curthread]] ?
> + ((struct upid *)&(p->numbers[current_namespace_level]))->nr : 0;
> +*/
> diff --git a/dlibs/x86_64/6.10.0/regs.d b/dlibs/x86_64/6.10.0/regs.d
> new file mode 100644
> index 0000000000000..12ce3ac9a1507
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/regs.d
> @@ -0,0 +1,94 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +inline int R_TRAPNO = 25;
> +#pragma D binding "1.0" R_TRAPNO
> +inline int R_GS = 24;
> +#pragma D binding "1.0" R_GS
> +inline int R_FS = 23;
> +#pragma D binding "1.0" R_FS
> +inline int R_ES = 22;
> +#pragma D binding "1.0" R_ES
> +inline int R_DS = 21;
> +#pragma D binding "1.0" R_DS
> +
> +inline int R_SS = 20;
> +#pragma D binding "1.0" R_SS
> +inline int R_RSP = 19;
> +#pragma D binding "1.0" R_RSP
> +inline int R_RFL = 18;
> +#pragma D binding "1.0" R_RFL
> +inline int R_CS = 17;
> +#pragma D binding "1.0" R_CS
> +inline int R_RIP = 16;
> +#pragma D binding "1.0" R_RIP
> +inline int R_ERR = 15;
> +#pragma D binding "1.0" R_ERR
> +inline int R_RDI = 14;
> +#pragma D binding "1.0" R_RDI
> +inline int R_RSI = 13;
> +#pragma D binding "1.0" R_RSI
> +inline int R_RDX = 12;
> +#pragma D binding "1.0" R_RDX
> +inline int R_RCX = 11;
> +#pragma D binding "1.0" R_RCX
> +inline int R_RAX = 10;
> +#pragma D binding "1.0" R_RAX
> +inline int R_R8 = 9;
> +#pragma D binding "1.0" R_R8
> +inline int R_R9 = 8;
> +#pragma D binding "1.0" R_R9
> +inline int R_R10 = 7;
> +#pragma D binding "1.0" R_R10
> +inline int R_R11 = 6;
> +#pragma D binding "1.0" R_R11
> +inline int R_RBX = 5;
> +#pragma D binding "1.0" R_RBX
> +inline int R_RBP = 4;
> +#pragma D binding "1.0" R_RBP
> +inline int R_R12 = 3;
> +#pragma D binding "1.0" R_R12
> +inline int R_R13 = 2;
> +#pragma D binding "1.0" R_R13
> +inline int R_R14 = 1;
> +#pragma D binding "1.0" R_R14
> +inline int R_R15 = 0;
> +#pragma D binding "1.0" R_R15
> +
> +inline int R_EBX = R_RBX;
> +#pragma D binding "1.0" R_EBX
> +inline int R_ECX = R_RCX;
> +#pragma D binding "1.0" R_ECX
> +inline int R_EDX = R_RDX;
> +#pragma D binding "1.0" R_EDX
> +inline int R_ESI = R_RSI;
> +#pragma D binding "1.0" R_ESI
> +inline int R_EDI = R_RDI;
> +#pragma D binding "1.0" R_EDI
> +inline int R_EBP = R_RBP;
> +#pragma D binding "1.0" R_EBP
> +inline int R_EAX = R_RAX;
> +#pragma D binding "1.0" R_EAX
> +inline int R_EIP = R_RIP;
> +#pragma D binding "1.0" R_EIP
> +inline int R_EFL = R_RFL;
> +#pragma D binding "1.0" R_EFL
> +inline int R_ESP = R_RSP;
> +#pragma D binding "1.0" R_ESP
> +
> +inline int R_PC = R_EIP;
> +#pragma D binding "1.0" R_PC
> +inline int R_FP = R_EBP;
> +#pragma D binding "1.0" R_FP
> +inline int R_SP = R_ESP;
> +#pragma D binding "1.0" R_SP
> +inline int R_PS = R_EFL;
> +#pragma D binding "1.0" R_PS
> +inline int R_R0 = R_EAX;
> +#pragma D binding "1.0" R_R0
> +inline int R_R1 = R_EBX;
> +#pragma D binding "1.0" R_R1
> diff --git a/dlibs/x86_64/6.10.0/sched.d b/dlibs/x86_64/6.10.0/sched.d
> new file mode 100644
> index 0000000000000..271d84e057cde
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/sched.d
> @@ -0,0 +1,38 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2012, 2019, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +
> +typedef id_t processorid_t;
> +typedef id_t psetid_t;
> +typedef id_t chipid_t;
> +typedef id_t lgrp_id_t;
> +
> +typedef struct cpuinfo {
> + processorid_t cpu_id;
> + psetid_t cpu_pset;
> + chipid_t cpu_chip;
> + lgrp_id_t cpu_lgrp;
> +} cpuinfo_t;
> +
> +typedef cpuinfo_t *cpuinfo_t_p;
> +
> +inline processorid_t cpu = curcpu->cpu_id;
> +#pragma D attributes Stable/Stable/Common cpu
> +#pragma D binding "1.0" cpu
> +
> +inline psetid_t pset = curcpu->cpu_pset;
> +#pragma D attributes Stable/Stable/Common pset
> +#pragma D binding "1.0" pset
> +
> +inline chipid_t chip = curcpu->cpu_chip;
> +#pragma D attributes Stable/Stable/Common chip
> +#pragma D binding "1.0" chip
> +
> +inline lgrp_id_t lgrp = curcpu->cpu_lgrp;
> +#pragma D attributes Stable/Stable/Common lgrp
> +#pragma D binding "1.0" lgrp
> diff --git a/dlibs/x86_64/6.10.0/signal.d b/dlibs/x86_64/6.10.0/signal.d
> new file mode 100644
> index 0000000000000..c72dfd4cbc13f
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/signal.d
> @@ -0,0 +1,108 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2018, Oracle and/or its affiliates. All rights reserved.
> + * Use is subject to license terms.
> + *
> + */
> +inline int SIGSYS = 31;
> +#pragma D binding "1.0" SIGSYS
> +
> +inline int SIGTERM = 15;
> +#pragma D binding "1.0" SIGTERM
> +
> +inline int SIGTSTP = 20;
> +#pragma D binding "1.0" SIGTSTP
> +
> +inline int SIGVTALRM = 26;
> +#pragma D binding "1.0" SIGVTALRM
> +
> +inline int SIGBUS = 7;
> +#pragma D binding "1.0" SIGBUS
> +
> +inline int SIGPIPE = 13;
> +#pragma D binding "1.0" SIGPIPE
> +
> +inline int SIGSTKFLT = 16;
> +#pragma D binding "1.0" SIGSTKFLT
> +
> +inline int SIGTRAP = 5;
> +#pragma D binding "1.0" SIGTRAP
> +
> +inline int SIGHUP = 1;
> +#pragma D binding "1.0" SIGHUP
> +
> +inline int SIGFPE = 8;
> +#pragma D binding "1.0" SIGFPE
> +
> +inline int SIGURG = 23;
> +#pragma D binding "1.0" SIGURG
> +
> +inline int SIGIO = 29;
> +#pragma D binding "1.0" SIGIO
> +
> +inline int SIGKILL = 9;
> +#pragma D binding "1.0" SIGKILL
> +
> +inline int SIGWINCH = 28;
> +#pragma D binding "1.0" SIGWINCH
> +
> +inline int SIGXFSZ = 25;
> +#pragma D binding "1.0" SIGXFSZ
> +
> +inline int SIGINT = 2;
> +#pragma D binding "1.0" SIGINT
> +
> +inline int SIGTTOU = 22;
> +#pragma D binding "1.0" SIGTTOU
> +
> +inline int SIGTTIN = 21;
> +#pragma D binding "1.0" SIGTTIN
> +
> +inline int SIGCHLD = 17;
> +#pragma D binding "1.0" SIGCHLD
> +
> +inline int SIGIOT = 6;
> +#pragma D binding "1.0" SIGIOT
> +
> +inline int SIGCONT = 18;
> +#pragma D binding "1.0" SIGCONT
> +
> +inline int SIGQUIT = 3;
> +#pragma D binding "1.0" SIGQUIT
> +
> +inline int SIGABRT = 6;
> +#pragma D binding "1.0" SIGABRT
> +
> +inline int SIGPROF = 27;
> +#pragma D binding "1.0" SIGPROF
> +
> +inline int SIGXCPU = 24;
> +#pragma D binding "1.0" SIGXCPU
> +
> +inline int SIGSTOP = 19;
> +#pragma D binding "1.0" SIGSTOP
> +
> +inline int SIGPWR = 30;
> +#pragma D binding "1.0" SIGPWR
> +
> +inline int SIGILL = 4;
> +#pragma D binding "1.0" SIGILL
> +
> +inline int SIGUSR1 = 10;
> +#pragma D binding "1.0" SIGUSR1
> +
> +inline int SIGPOLL = 29;
> +#pragma D binding "1.0" SIGPOLL
> +
> +inline int SIGCLD = 17;
> +#pragma D binding "1.0" SIGCLD
> +
> +inline int SIGSEGV = 11;
> +#pragma D binding "1.0" SIGSEGV
> +
> +inline int SIGUSR2 = 12;
> +#pragma D binding "1.0" SIGUSR2
> +
> +inline int SIGALRM = 14;
> +#pragma D binding "1.0" SIGALRM
> +
> diff --git a/dlibs/x86_64/6.10.0/tcp.d b/dlibs/x86_64/6.10.0/tcp.d
> new file mode 100644
> index 0000000000000..54e310cb4c6ed
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/tcp.d
> @@ -0,0 +1,231 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2010, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on provider ip
> +#pragma D depends_on provider tcp
> +
> +inline int TH_FIN = 0x01;
> +inline int TH_SYN = 0x02;
> +inline int TH_RST = 0x04;
> +inline int TH_PSH = 0x08;
> +inline int TH_ACK = 0x10;
> +inline int TH_URG = 0x20;
> +inline int TH_ECE = 0x40;
> +inline int TH_CWR = 0x80;
> +
> +inline int TCP_STATE_IDLE = 0x00;
> +inline int TCP_STATE_ESTABLISHED = 0x01;
> +inline int TCP_STATE_SYN_SENT = 0x02;
> +inline int TCP_STATE_SYN_RECEIVED = 0x03;
> +inline int TCP_STATE_FIN_WAIT_1 = 0x04;
> +inline int TCP_STATE_FIN_WAIT_2 = 0x05;
> +inline int TCP_STATE_TIME_WAIT = 0x06;
> +inline int TCP_STATE_CLOSED = 0x07;
> +inline int TCP_STATE_CLOSE_WAIT = 0x08;
> +inline int TCP_STATE_LAST_ACK = 0x09;
> +inline int TCP_STATE_LISTEN = 0x0a;
> +inline int TCP_STATE_CLOSING = 0x0b;
> +
> +/*
> + * Convert a TCP state value to a string.
> + */
> +inline string tcp_state_string[int state] =
> + state == TCP_STATE_CLOSED ? "state-closed" :
> + state == TCP_STATE_IDLE ? "state-idle" :
> + state == TCP_STATE_LISTEN ? "state-listen" :
> + state == TCP_STATE_SYN_SENT ? "state-syn-sent" :
> + state == TCP_STATE_SYN_RECEIVED ? "state-syn-received" :
> + state == TCP_STATE_ESTABLISHED ? "state-established" :
> + state == TCP_STATE_CLOSE_WAIT ? "state-close-wait" :
> + state == TCP_STATE_FIN_WAIT_1 ? "state-fin-wait-1" :
> + state == TCP_STATE_CLOSING ? "state-closing" :
> + state == TCP_STATE_LAST_ACK ? "state-last-ack" :
> + state == TCP_STATE_FIN_WAIT_2 ? "state-fin-wait-2" :
> + state == TCP_STATE_TIME_WAIT ? "state-time-wait" :
> + "<unknown>";
> +#pragma D binding "1.6.3" tcp_state_string
> +
> +/*
> + * tcpinfo is the TCP header fields.
> + */
> +typedef struct tcpinfo {
> + uint16_t tcp_sport; /* source port */
> + uint16_t tcp_dport; /* destination port */
> + uint32_t tcp_seq; /* sequence number */
> + uint32_t tcp_ack; /* acknowledgment number */
> + uint8_t tcp_offset; /* data offset, in bytes */
> + uint8_t tcp_flags; /* flags */
> + uint16_t tcp_window; /* window size */
> + uint16_t tcp_checksum; /* checksum */
> + uint16_t tcp_urgent; /* urgent data pointer */
> + uintptr_t tcp_hdr; /* raw TCP header */
> +} tcpinfo_t;
> +
> +/*
> + * tcpsinfo contains stable TCP details from tcp_t.
> + */
> +typedef struct tcpsinfo {
> + uintptr_t tcps_addr;
> + int tcps_local; /* is delivered locally, boolean */
> + uint16_t tcps_lport; /* local port */
> + uint16_t tcps_rport; /* remote port */
> + string tcps_laddr; /* local address, as a string */
> + string tcps_raddr; /* remote address, as a string */
> + int tcps_state; /* TCP state */
> + uint32_t tcps_iss; /* Initial sequence # sent */
> + uint32_t tcps_suna; /* sequence # sent but unacked */
> + uint32_t tcps_snxt; /* next sequence # to send */
> + uint32_t tcps_rnxt; /* next sequence # expected */
> + uint32_t tcps_swnd; /* send window size */
> + int32_t tcps_snd_ws; /* send window scaling */
> + uint32_t tcps_rwnd; /* receive window size */
> + int32_t tcps_rcv_ws; /* receive window scaling */
> + uint32_t tcps_cwnd; /* congestion window */
> + uint32_t tcps_cwnd_ssthresh; /* threshold for congestion avoidance */
> + uint32_t tcps_sack_snxt; /* next SACK seq # for retransmission */
> + uint32_t tcps_rto; /* round-trip timeout, msec */
> + uint32_t tcps_mss; /* max segment size */
> + int tcps_retransmit; /* retransmit send event, boolean */
> + uint32_t tcps_rtt; /* smoothed avg round-trip time, msec */
> + uint32_t tcps_rtt_sd; /* standard deviation of RTT */
> + uint32_t tcps_irs; /* Initial recv sequence # */
> +} tcpsinfo_t;
> +
> +/*
> + * tcplsinfo provides the old tcp state for state changes.
> + */
> +typedef struct tcplsinfo {
> + int tcps_state; /* previous TCP state */
> +} tcplsinfo_t;
> +
> +#pragma D binding "1.6.3" translator
> +translator tcpinfo_t < struct tcphdr *T > {
> + tcp_sport = T ? ntohs(T->source) : 0;
> + tcp_dport = T ? ntohs(T->dest) : 0;
> + tcp_seq = T ? ntohl(T->seq) : 0;
> + tcp_ack = T ? ntohl(T->ack_seq) : 0;
> + tcp_offset = T ? (*(uint8_t *)(T + 12) & 0xf0) >> 2 : 0;
> + tcp_flags = T ? *(uint8_t *)(T + 13) : 0;
> + tcp_window = T ? ntohs(T->window) : 0;
> + tcp_checksum = T ? ntohs(T->check) : 0;
> + tcp_urgent = T ? ntohs(T->urg_ptr) : 0;
> + tcp_hdr = (uintptr_t)T;
> +};
> +
> +/*
> + * In the main we simply translate from the "struct [tcp_]sock *" to
> + * a tcpsinfo_t *. However there are a few exceptions:
> + *
> + * - tcps_state is always derived from arg6. The reason is that in some
> + * state transitions sock->sk_state does not reflect the actual TCP
> + * connection state. For example the TIME_WAIT state is handled in
> + * Linux by creating a separate timewait socket and the state of the
> + * original socket is CLOSED. In some other cases we also need to
> + * instrument state transition prior to the update of sk_state. To do
> + * all of this we rely on arg6.
> + * - we sometimes need to retrieve local/remote port/address settings from
> + * TCP and IP headers directly, for example prior to the address/port
> + * being committed to the socket. To do this effectively we need to know
> + * if the packet data is inbound (in which case the local IP/port are the
> + * destination) or outbound (in which case the local IP/port are the source).
> + * arg7 is set to 0 for outbound traffic and 1 for inbound so we use these
> + * to reconstruct the address/port info where necessary. arg2 used for IP
> + * information while arg4 contains the TCP header, so it is used for port data.
> + * NET_PROBE_INBOUND is defined as 1, NET_PROBE_OUTBOUND as 0 in net.d.
> + */
> +#pragma D binding "1.6.3" translator
> +translator tcpsinfo_t < struct tcp_sock *T > {
> + tcps_addr = (uintptr_t)T;
> + tcps_local =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + (((struct sock *)T)->__sk_common.skc_rcv_saddr ==
> + ((struct sock *)T)->__sk_common.skc_daddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + (((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[0]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[0] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[1]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[1] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[2]
> + ==
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_daddr)[2] &&
> + ((uint32_t *)&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr)[3])
> + : 0;
> + tcps_lport = (T && ((struct inet_sock *)T)->inet_sport != 0) ?
> + ntohs(((struct inet_sock *)T)->inet_sport) :
> + (T && ((struct inet_sock *)T)->inet_sport == 0) ?
> + ntohs(((struct sock *)T)->__sk_common.skc_num) :
> + arg4 != NULL ?
> + ntohs(arg7 == NET_PROBE_INBOUND ?
> + ((struct tcphdr *)arg4)->dest : ((struct tcphdr *)arg4)->source) :
> + 0;
> + tcps_rport = T && ((struct sock *)T)->__sk_common.skc_dport != 0 ?
> + ntohs(((struct sock *)T)->__sk_common.skc_dport) :
> + arg4 != NULL ?
> + ntohs(arg7 == NET_PROBE_INBOUND ?
> + ((struct tcphdr *)arg4)->source : ((struct tcphdr *)arg4)->dest) :
> + 0;
> + tcps_laddr =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + inet_ntoa(&((struct sock *)T)->__sk_common.skc_rcv_saddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(&((struct sock *)T)->__sk_common.skc_v6_rcv_saddr) :
> + arg2 != NULL && (*(uint8_t *)arg2) >> 4 == 4 ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct iphdr *)arg2)->daddr : &((struct iphdr *)arg2)->saddr) :
> + arg2 != NULL && *((uint8_t *)arg2) >> 4 == 6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct ipv6hdr *)arg2)->daddr :
> + &((struct ipv6hdr *)arg2)->saddr) :
> + "<unknown>";
> + tcps_raddr =
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET ?
> + inet_ntoa(&((struct sock *)T)->__sk_common.skc_daddr) :
> + T && ((struct sock *)T)->__sk_common.skc_family == AF_INET6 ?
> + inet_ntoa6(&((struct sock *)T)->__sk_common.skc_v6_daddr) :
> + arg2 != NULL && (*(uint8_t *)arg2) >> 4 == 4 ?
> + inet_ntoa(arg7 == NET_PROBE_INBOUND ?
> + &((struct iphdr *)arg2)->saddr : &((struct iphdr *)arg2)->daddr) :
> + arg2 != NULL && *((uint8_t *)arg2) >> 4 == 6 ?
> + inet_ntoa6(arg7 == NET_PROBE_INBOUND ?
> + &((struct ipv6hdr *)arg2)->saddr :
> + &((struct ipv6hdr *)arg2)->daddr) :
> + "<unknown>";
> + tcps_state = arg6;
> + tcps_iss = T ?
> + T->snd_una - (uint32_t)T->bytes_acked : 0;
> + tcps_suna = T ? T->snd_una : 0;
> + tcps_snxt = T ? T->snd_nxt : 0;
> + tcps_rnxt = T ? T->rcv_nxt : 0;
> + tcps_swnd = T ? T->snd_wnd : 0;
> + tcps_snd_ws = T ? T->rx_opt.snd_wscale : 0;
> + tcps_rwnd = T ? T->rcv_wnd : 0;
> + tcps_rcv_ws = T ? T->rx_opt.rcv_wscale : 0;
> + tcps_cwnd = T ? T->snd_cwnd : 0;
> + tcps_cwnd_ssthresh = T ? T->snd_ssthresh : 0;
> + tcps_sack_snxt = (T && T->sacked_out == 0) ? T->snd_una :
> + (T && T->highest_sack == NULL) ? T->snd_nxt :
> + (T && T->highest_sack != NULL) ?
> + ((struct tcp_skb_cb *)&((T->highest_sack->cb[0])))->seq : 0;
> + tcps_rto = T ? T->inet_conn.icsk_rto : 0;
> + tcps_mss = T ? T->mss_cache : 0;
> + tcps_retransmit = T && arg0 ?
> + (((struct tcp_skb_cb *)&(((struct sk_buff *)arg0)->cb[0]))->end_seq
> + < T->snd_nxt - 1) : 0;
> + tcps_rtt = T ? (T->srtt_us >> 3)/1000 : 0;
> + tcps_rtt_sd = T ? (T->mdev_us >> 2)/1000 : 0;
> + tcps_irs = T && T->bytes_received > 0 ?
> + T->rcv_nxt - (uint32_t)T->bytes_received : 0;
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator tcplsinfo_t < int I > {
> + tcps_state = I;
> +};
> diff --git a/dlibs/x86_64/6.10.0/udp.d b/dlibs/x86_64/6.10.0/udp.d
> new file mode 100644
> index 0000000000000..0e44ed6480415
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/udp.d
> @@ -0,0 +1,71 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2010, 2017, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +#pragma D depends_on module vmlinux
> +#pragma D depends_on library net.d
> +#pragma D depends_on provider udp
> +
> +/*
> + * udpinfo is the UDP header fields.
> + */
> +typedef struct udpinfo {
> + uint16_t udp_sport; /* source port */
> + uint16_t udp_dport; /* destination port */
> + uint16_t udp_length; /* total length */
> + uint16_t udp_checksum; /* headers + data checksum */
> + struct udphdr *udp_hdr; /* raw UDP header */
> +} udpinfo_t;
> +
> +/*
> + * udpsinfo contains stable UDP details from udp_t.
> + */
> +typedef struct udpsinfo {
> + uintptr_t udps_addr;
> + uint16_t udps_lport; /* local port */
> + uint16_t udps_rport; /* remote port */
> + string udps_laddr; /* local address, as a string */
> + string udps_raddr; /* remote address, as a string */
> +} udpsinfo_t;
> +
> +#pragma D binding "1.6.3" translator
> +translator udpinfo_t < struct udphdr *U > {
> + udp_sport = ntohs(U->source);
> + udp_dport = ntohs(U->dest);
> + udp_length = ntohs(U->len);
> + udp_checksum = ntohs(U->check);
> + udp_hdr = U;
> +};
> +
> +#pragma D binding "1.6.3" translator
> +translator udpsinfo_t < struct udp_sock *S > {
> + /*
> + * We source udp info from other args but retain the sock arg here
> + * as it may be used in the future.
> + */
> + udps_addr = (uintptr_t)S;
> + udps_lport = arg4 ?
> + (probename == "send" ? ntohs(((struct udphdr *)arg4)->source) :
> + ntohs(((struct udphdr *)arg4)->dest)) : 0;
> + udps_rport = arg4 ?
> + (probename == "send" ? ntohs(((struct udphdr *)arg4)->dest) :
> + ntohs(((struct udphdr *)arg4)->source)) : 0;
> + udps_laddr = arg2 && *(uint8_t *)arg2 >> 4 == 4 ?
> + inet_ntoa(probename == "send" ? &((struct iphdr *)arg2)->saddr :
> + &((struct iphdr *)arg2)->daddr) :
> + arg2 && *(uint8_t *)arg2 >> 4 == 6 ?
> + inet_ntoa6(probename == "send" ? &((struct ipv6hdr *)arg2)->saddr :
> + &((struct ipv6hdr *)arg2)->daddr) :
> + "<unknown>";
> + udps_raddr =
> + arg2 && *(uint8_t *)arg2 >> 4 == 4 ?
> + inet_ntoa(probename == "send" ? &((struct iphdr *)arg2)->daddr :
> + &((struct iphdr *)arg2)->saddr) :
> + arg2 && *(uint8_t *)arg2 >> 4 == 6 ?
> + inet_ntoa6(probename == "send" ? &((struct ipv6hdr *)arg2)->daddr :
> + &((struct ipv6hdr *)arg2)->saddr) :
> + "<unknown>";
> +};
> diff --git a/dlibs/x86_64/6.10.0/unistd.d b/dlibs/x86_64/6.10.0/unistd.d
> new file mode 100644
> index 0000000000000..c38bbed4bc85e
> --- /dev/null
> +++ b/dlibs/x86_64/6.10.0/unistd.d
> @@ -0,0 +1,36 @@
> +/*
> + * Oracle Linux DTrace.
> + * Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved.
> + * Licensed under the Universal Permissive License v 1.0 as shown at
> + * http://oss.oracle.com/licenses/upl.
> + */
> +
> +inline int DTRACEFLT_UNKNOWN = 0; /* Unknown fault */
> +#pragma D binding "1.0" DTRACEFLT_UNKNOWN
> +
> +inline int DTRACEFLT_BADADDR = 1; /* Bad address */
> +#pragma D binding "1.0" DTRACEFLT_BADADDR
> +
> +inline int DTRACEFLT_BADALIGN = 2; /* Bad alignment */
> +#pragma D binding "1.0" DTRACEFLT_BADALIGN
> +
> +inline int DTRACEFLT_ILLOP = 3; /* Illegal operation */
> +#pragma D binding "1.0" DTRACEFLT_ILLOP
> +
> +inline int DTRACEFLT_DIVZERO = 4; /* Divide-by-zero */
> +#pragma D binding "1.0" DTRACEFLT_DIVZERO
> +
> +inline int DTRACEFLT_NOSCRATCH = 5; /* Out of scratch space */
> +#pragma D binding "1.0" DTRACEFLT_NOSCRATCH
> +
> +inline int DTRACEFLT_KPRIV = 6; /* Illegal kernel access */
> +#pragma D binding "1.0" DTRACEFLT_KPRIV
> +
> +inline int DTRACEFLT_UPRIV = 7; /* Illegal user access */
> +#pragma D binding "1.0" DTRACEFLT_UPRIV
> +
> +inline int DTRACEFLT_TUPOFLOW = 8; /* Tuple stack overflow */
> +#pragma D binding "1.0" DTRACEFLT_TUPOFLOW
> +
> +inline int DTRACEFLT_BADSTACK = 9; /* Bad stack */
> +#pragma D binding "1.4.1" DTRACEFLT_BADSTACK
More information about the DTrace-devel
mailing list