Gecko [ casapremiada.novaexata.com.br ]

Name	Size	Permission
glibc-malloc.meta	381 B	-rw-r--r--
glibc-malloc.stp	2.43 KB	-rw-r--r--
hugepage_clear_delays.meta	946 B	-rw-r--r--
hugepage_clear_delays.stp	483 B	-rwxr-xr-x
hugepage_collapse.meta	718 B	-rw-r--r--
hugepage_collapse.stp	159 B	-rwxr-xr-x
hugepage_cow_delays.meta	1.08 KB	-rw-r--r--
hugepage_cow_delays.stp	475 B	-rwxr-xr-x
hugepage_split.meta	756 B	-rw-r--r--
hugepage_split.stp	153 B	-rwxr-xr-x
hw_watch_addr.meta	787 B	-rw-r--r--
hw_watch_addr.stp	167 B	-rwxr-xr-x
hw_watch_addr.tcl	97 B	-rw-r--r--
hw_watch_sym.meta	715 B	-rw-r--r--
hw_watch_sym.stp	167 B	-rwxr-xr-x
hw_watch_sym.tcl	97 B	-rw-r--r--
kmalloc-top	3.8 KB	-rwxr-xr-x
kmalloc-top.meta	695 B	-rw-r--r--
last_100_frees.meta	420 B	-rw-r--r--
last_100_frees.stp	803 B	-rwxr-xr-x
last_100_frees.tcl	79 B	-rw-r--r--
last_100_frees.txt	774 B	-rw-r--r--
mmanonpage.meta	1.2 KB	-rw-r--r--
mmanonpage.stp	1.77 KB	-rwxr-xr-x
mmfilepage.meta	929 B	-rw-r--r--
mmfilepage.stp	3.47 KB	-rwxr-xr-x
mmreclaim.meta	606 B	-rw-r--r--
mmreclaim.stp	5.11 KB	-rwxr-xr-x
mmwriteback.meta	1008 B	-rw-r--r--
mmwriteback.stp	1.92 KB	-rwxr-xr-x
numa_faults.meta	702 B	-rw-r--r--
numa_faults.stp	973 B	-rwxr-xr-x
numa_faults.txt	1.67 KB	-rw-r--r--
overcommit.meta	484 B	-rw-r--r--
overcommit.stp	217 B	-rwxr-xr-x
pfaults.meta	744 B	-rw-r--r--
pfaults.stp	875 B	-rwxr-xr-x
pfaults.txt	558 B	-rw-r--r--
vm.tracepoints.meta	608 B	-rw-r--r--
vm.tracepoints.stp	414 B	-rwxr-xr-x
vm.tracepoints.txt	557 B	-rw-r--r--

Code Editor : glibc-malloc.stp

#!/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)
}

${this.title}

Code Editor : glibc-malloc.stp