One Hat Cyber Team

Your IP : 216.73.216.80

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

View File Name : last_100_frees.stp

#!/usr/bin/stap

global bt%[100]

probe process("/lib*/libc.so.*").function("free") {
  // we use @defined($mem) here because on 64 bit systems, the
  // wildcard search takes us through both 64 bit and 32 bit
  // libc (which doesn't have debuginfo), this means the probe
  // point resolved from the 32 bit library has no context info
  if (@defined($mem)) {
    bt[execname(),tid(),$mem,sprint_ubacktrace()]
      <<< local_clock_ns()
  }
  // Any monotonically increasing expression would do.
  // With some arbitrary expression or constant instead,
  // at worst we get the last 100ish results out of order.
}

probe end,error {
  foreach ([e,t,p,b] in bt @max+) // iterate in increasing index order
     printf("free #%d: %s[%d], pointer %p:\n%s\n\n",
            @max(bt[e,t,p,b]), e, t, p, b)
}