FM / memory

/usr/share/systemtap/examples/memory

Name	Size	Mode	Actions
cachestat.meta	545	0644	edit dl rm
cachestat.stp	1318	0755	edit dl rm
glibc-malloc.meta	381	0644	edit dl rm
glibc-malloc.stp	2486	0755	edit dl rm
hugepage_clear_delays.meta	946	0644	edit dl rm
hugepage_clear_delays.stp	483	0755	edit dl rm
hugepage_collapse.meta	718	0644	edit dl rm
hugepage_collapse.stp	159	0755	edit dl rm
hugepage_cow_delays.meta	1106	0644	edit dl rm
hugepage_cow_delays.stp	475	0755	edit dl rm
hugepage_split.meta	756	0644	edit dl rm
hugepage_split.stp	153	0755	edit dl rm
hw_watch_addr.meta	787	0644	edit dl rm
hw_watch_addr.stp	167	0755	edit dl rm
hw_watch_addr.tcl	97	0644	edit dl rm
hw_watch_sym.meta	715	0644	edit dl rm
hw_watch_sym.stp	167	0755	edit dl rm
hw_watch_sym.tcl	97	0644	edit dl rm
kmalloc-top	3888	0755	edit dl rm
kmalloc-top.meta	695	0644	edit dl rm
last_100_frees.meta	420	0644	edit dl rm
last_100_frees.stp	803	0755	edit dl rm
last_100_frees.tcl	79	0644	edit dl rm
last_100_frees.txt	774	0644	edit dl rm
mmanonpage.meta	1225	0644	edit dl rm
mmanonpage.stp	1816	0755	edit dl rm
mmfilepage.meta	1033	0644	edit dl rm
mmfilepage.stp	3537	0755	edit dl rm
mmreclaim.meta	606	0644	edit dl rm
mmreclaim.stp	5232	0755	edit dl rm
mmwriteback.meta	1114	0644	edit dl rm
mmwriteback.stp	1900	0755	edit dl rm
numa_faults.meta	702	0644	edit dl rm
numa_faults.stp	973	0755	edit dl rm
numa_faults.txt	1710	0644	edit dl rm
overcommit.meta	584	0644	edit dl rm
overcommit.stp	217	0755	edit dl rm
pfaults.meta	744	0644	edit dl rm
pfaults.stp	875	0755	edit dl rm
pfaults.txt	558	0644	edit dl rm
vm.tracepoints.meta	608	0644	edit dl rm
vm.tracepoints.stp	414	0755	edit dl rm
vm.tracepoints.txt	557	0644	edit dl rm

Edit: /usr/share/systemtap/examples/memory/glibc-malloc.stp (2486B)

#!/usr/bin/stap

# http://developerblog.redhat.com/2015/01/06/malloc-systemtap-probes-an-example/

global sbrk, waits, arenalist, mmap_threshold = 131072, heaplist
  
  
# sbrk accounting
  
probe process("/lib*/libc.so.6").mark("memory_sbrk_more")
{
  sbrk += $arg2
}
  
probe process("/lib*/libc.so.6").mark("memory_sbrk_less")
{
  sbrk -= $arg2
}

# threshold tracking

probe process("/lib*/libc.so.6").mark("memory_mallopt_free_dyn_thresholds")
{
  printf("%d: New thresholds: mmap: %ld bytes, trim: %ld bytes\n", tid(), $arg1,
         $arg2)
  mmap_threshold = $arg1
}

# arena accounting

probe process("/lib*/libc.so.6").mark("memory_arena_new")
{
  printf ("%d: Created new arena\n", tid())
  arenalist[$arg1, tid()] = 1
}

probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse_wait")
{
  waits[tid()]++
}

probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse")
{
  if ($arg2 != 0)
    {
      printf ("%d: failed to allocate on own arena, trying another\n", tid())
      arenalist[$arg1, tid()] = 1
    }
}

probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse_free_list")
{
  arenalist[$arg1, tid()] = 1
}

probe process.thread.end
{
  /* Find the thread and mark its arena as unused.  */
  %( systemtap_v >= "2.6"
  %?
    delete arenalist[*, tid()]
  %:
    foreach ([a, t] in arenalist)
      if (t == tid())
        break
    delete arenalist[a, t]
  %)
}

# heap accounting

probe process("/usr/lib*/libc.so.6").mark("memory_heap_new")
{
  printf("%d: New heap\n", tid());
  heaplist[$arg1] = $arg2
}

probe process("/usr/lib*/libc.so.6").mark("memory_heap_more")
{
  heaplist[$arg1] = $arg2
}

probe process("/usr/lib*/libc.so.6").mark("memory_heap_less")
{
  heaplist[$arg1] = $arg2
}

probe process("/usr/lib*/libc.so.6").mark("memory_heap_free")
{
  delete heaplist[$arg1]
}

# reporting

probe begin
{
  if (target() == 0) error ("please specify target process with -c / -x")
}

probe end
{
  printf ("malloc information for pid %d\n", target())
  printf ("Contention: \n")
  foreach (t in waits)
  printf ("\t%d: %d waits\n", t, waits[t])
  
  print("Active arenas:\n")
  foreach ([a, t] in arenalist)
  {
    if (arenalist[a, t])
      printf ("\t%d -> %p\n", t, a)
  }
  
  print ("Allocated heaps:\n")
  foreach (h in heaplist)
  {
    if (heaplist[h])
      printf ("\t%p -> %ld bytes\n", h, heaplist[h])
  }
  
  printf ("Total sbrk: %ld bytes\n", sbrk)
  printf ("Mmap threshold in the end: %ld kb\n", mmap_threshold / 1024)
}

#!/usr/bin/stap # http://developerblog.redhat.com/2015/01/06/malloc-systemtap-probes-an-example/ global sbrk, waits, arenalist, mmap_threshold = 131072, heaplist # sbrk accounting probe process("/lib*/libc.so.6").mark("memory_sbrk_more") { sbrk += $arg2 } probe process("/lib*/libc.so.6").mark("memory_sbrk_less") { sbrk -= $arg2 } # threshold tracking probe process("/lib*/libc.so.6").mark("memory_mallopt_free_dyn_thresholds") { printf("%d: New thresholds: mmap: %ld bytes, trim: %ld bytes\n", tid(), $arg1, $arg2) mmap_threshold = $arg1 } # arena accounting probe process("/lib*/libc.so.6").mark("memory_arena_new") { printf ("%d: Created new arena\n", tid()) arenalist[$arg1, tid()] = 1 } probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse_wait") { waits[tid()]++ } probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse") { if ($arg2 != 0) { printf ("%d: failed to allocate on own arena, trying another\n", tid()) arenalist[$arg1, tid()] = 1 } } probe process("/usr/lib*/libc.so.6").mark("memory_arena_reuse_free_list") { arenalist[$arg1, tid()] = 1 } probe process.thread.end { /* Find the thread and mark its arena as unused. */ %( systemtap_v >= "2.6" %? delete arenalist[*, tid()] %: foreach ([a, t] in arenalist) if (t == tid()) break delete arenalist[a, t] %) } # heap accounting probe process("/usr/lib*/libc.so.6").mark("memory_heap_new") { printf("%d: New heap\n", tid()); heaplist[$arg1] = $arg2 } probe process("/usr/lib*/libc.so.6").mark("memory_heap_more") { heaplist[$arg1] = $arg2 } probe process("/usr/lib*/libc.so.6").mark("memory_heap_less") { heaplist[$arg1] = $arg2 } probe process("/usr/lib*/libc.so.6").mark("memory_heap_free") { delete heaplist[$arg1] } # reporting probe begin { if (target() == 0) error ("please specify target process with -c / -x") } probe end { printf ("malloc information for pid %d\n", target()) printf ("Contention: \n") foreach (t in waits) printf ("\t%d: %d waits\n", t, waits[t]) print("Active arenas:\n") foreach ([a, t] in arenalist) { if (arenalist[a, t]) printf ("\t%d -> %p\n", t, a) } print ("Allocated heaps:\n") foreach (h in heaplist) { if (heaplist[h]) printf ("\t%p -> %ld bytes\n", h, heaplist[h]) } printf ("Total sbrk: %ld bytes\n", sbrk) printf ("Mmap threshold in the end: %ld kb\n", mmap_threshold / 1024) }