Track the last read and last write timestamp at the device level and modify
[dragonfly.git] / test / debug / gdb.kernel
1 # $DragonFly: src/test/debug/gdb.kernel,v 1.2 2004/06/26 13:19:06 hmp Exp $
2 #
3 # Command file for the GNU Debugger, for kernel debugging.
4 #
5 # This file can either be put in your home directory as ~/.gdbinit,
6 # or selected at run time as:
7 #
8 #       'gdb -k -q -x /usr/src/test/debug/gdb.kernel ...'
9 #
10 # Here is a list of macros and short one-line descriptions:
11 #
12 #    kldstat    - kldstat(1) command style output of loaded modules 
13 #    pcomm      - print command name of arg0's (thread's) process pointer
14 #    psx        - process listing with wchan information
15 #    running_threads - the current running thread on each CPU.
16 #
17 set print union
18 set history expansion on
19
20 define pcomm
21         printf "%10s\n",$arg0->td_comm
22 end
23
24 define kldstat
25         set $kld = linker_files.tqh_first
26         printf "Id Refs Address    Size     Name\n"
27         while ($kld != 0)
28                 printf "%2d %4d 0x%08x %-8x %s\n", \
29                 $kld->id, $kld->refs, $kld->address, $kld->size, $kld->filename
30                 set $kld = $kld->link.tqe_next
31         end
32 end
33
34 define psx 
35     set $cpu = 0
36     printf "cpu  pid    thread    flags comm       wchan wmesg\n"
37     while ($cpu < ncpus)
38         set $gd = &((struct privatespace *)&CPU_prvspace)[$cpu].mdglobaldata
39         set $td = $gd->mi.gd_tdallq.tqh_first
40         while ( $td != 0 )
41             if ( $td->td_proc != 0 )
42                 set $pid = $td->td_proc->p_pid
43             else
44                 set $pid = -1
45             end
46             if ( $td->td_wmesg != 0 )
47                 printf "%3d %5d %08x %08x %-10s %08x %s\n",     \
48                     $cpu, $pid, $td, $td->td_flags, $td->td_comm, $td->td_wchan, \
49                     $td->td_wmesg
50             else
51                 printf "%3d %5d %08x %08x %-10s %08x\n",        \
52                     $cpu, $pid, $td, $td->td_flags, $td->td_comm, $td->td_wchan
53             end
54             set $td = $td->td_allq.tqe_next
55         end
56         set $cpu = $cpu + 1
57     end
58 end
59
60
61 define running_threads
62     set $icpu = 0
63         printf "cpu    curthread    wchan\n"
64         while ($icpu < ncpus)
65             set $ipvspace = (struct privatespace *)&CPU_prvspace
66                 set $gd = $ipvspace[$icpu].mdglobaldata.mi
67                 set $td = $gd.gd_curthread
68             printf "%d    %10s    %08x\n", \
69                         $gd.gd_cpuid, $td->td_comm, $td->td_wchan
70             set $icpu = $icpu + 1
71         end
72 end
73
74 # Documentation, usable within GDB using the 'help' command.
75 document kldstat
76 Output list of loaded kernel modules in kldstat(1) style.
77 end
78
79 document pcomm
80 Print command name of the given thread pointer (first argument).
81 end
82
83 document psx
84 Output a list of processes with wait-channel (wchan) informaiton.
85 end
86
87 document running_threads
88 List the threads which are currently running and their CPU number.
89 end