summaryrefslogtreecommitdiffstats
path: root/testsuite/semok/seven.stp
blob: f0b248bd2bba84317f5b2b130ecd18ae30f84323 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#! stap -p2

global ar1, ar2

function string:string (v:long) { } # to become a built-in
function printk (s:string) { return 0 } # to become a built-in

function search (key) 
{
  if (key in ar1)
    { ar1[key] ++; return ar2[ar1[key]] }
  else
    return "no can do"  # implies ar2[]: string
}

probe begin /* syscall("zamboni") */
{
  tgid=0
  pid=0
  tid=0
  ar2[tid] = string (tgid);
  search (pid)
}

probe end
{
  # for (key in ar2)
  if (key in ar2)
    printk ("this: " . string (key) . " was " . ar2[key])
}