#!/usr/bin/stap

global profile%[20000], pcount
probe timer.profile {
  pcount <<< 1
  # NB: we resolve to a function name here (rather than recording only
  # the PC), because during a later pc->name lookup, the process context
  # may be different.
  fn = user_mode() ?
      ("u:".umodname(uaddr()).":".usymname(uaddr()))  :
      ("k:".modname(addr()).":".symname(addr()));
  profile[fn] <<< 1
}
probe timer.ms(5000) {
  printf ("\n--- %d samples recorded:\n", @count(pcount))
  foreach (f in profile- limit 20) {
    printf ("%-30s\t%6d\n", f, @count(profile[f]))
  }
  delete profile
  delete pcount
}