gdb.kernel - Add commands for tokens

* Add lstok and infotok commands to list some information about the
  global mpsafe-ing tokens and show information about any token.

diff --git a/test/debug/gdb.kernel b/test/debug/gdb.kernel
index e0d500a..f58bf7b 100644 (file)
--- a/test/debug/gdb.kernel
+++ b/test/debug/gdb.kernel
@@ -111,6 +111,37 @@ define psax
     end
 end
 
+define _infotok
+       set $token = ($arg0)
+       set $tokref = $token->t_ref
+       if ($tokref != 0)
+               printf "%-15s 0x%08x %10d 0x%08x 0x%08x\n", $token->t_desc, \
+                       $token->t_flags, $token->t_collisions, $tokref->tr_owner, \
+                       $tokref->tr_stallpc
+       else
+               printf "%-15s 0x%08x %10d not held\n", $token->t_desc, \
+                       $token->t_flags, $token->t_collisions
+       end
+end
+
+define infotok
+       printf "\nToken           flags      collisions owner      stallpc\n"
+       _infotok ($arg0)
+end
+
+define lstok
+       printf "\nToken           flags      collisions owner      stallpc\n"
+       _infotok &pmap_token
+       _infotok &dev_token
+       _infotok &vm_token
+       _infotok &vmspace_token
+       _infotok &kvm_token
+       _infotok &proc_token
+       _infotok &tty_token
+       _infotok &vnode_token
+       _infotok &vmobj_token
+end
+
 # Documentation, usable within GDB using the 'help' command.
 document lsvfs
 Output list of loaded file systems, refcount, similar to the
@@ -146,3 +177,12 @@ end
 document psax
 Output a list of processes.
 end
+
+document lstok
+Display all known global tokens and some information about them.
+end
+
+document infotok
+Takes one argument, a struct lwkt_token * (pointer) and prints some
+information about that token.
+end
\ No newline at end of file