FreeBSD/Linux Kernel Cross Reference
sys/gdbscripts/msgbuf
1 # $NetBSD: msgbuf,v 1.5 2008/04/30 13:10:59 martin Exp $
2 #
3 # Copyright (c) 2000 The NetBSD Foundation, Inc.
4 # All rights reserved.
5 #
6 # This code is derived from software contributed to The NetBSD Foundation
7 # by John A. Hawkinson
8 #
9 # Redistribution and use in source and binary forms, with or without
10 # modification, are permitted provided that the following conditions
11 # are met:
12 # 1. Redistributions of source code must retain the above copyright
13 # notice, this list of conditions and the following disclaimer.
14 # 2. Redistributions in binary form must reproduce the above copyright
15 # notice, this list of conditions and the following disclaimer in the
16 # documentation and/or other materials provided with the distribution.
17 #
18 # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
19 # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
20 # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21 # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
22 # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 # POSSIBILITY OF SUCH DAMAGE.
29 #
30
31 define msgbuf
32 set $bufx=*(long*)((char *)msgbufp+1*sizeof(long))
33 set $bufr=*(long*)((char *)msgbufp+2*sizeof(long))
34 set $bufs=*(long*)((char *)msgbufp+3*sizeof(long))
35
36 printf "msgbufp %#x: bufx %d bufr %d bufs %d\n", msgbufp, $bufx, $bufr, $bufs
37
38 # Dump the unread section
39 # set $l = $bufx - $bufr
40 # if ($l < 0)
41 # set $l = $bufs - $bufr
42 # end
43 # set $p = (long)msgbufp+4*sizeof(long)+$bufr
44 # set print elements $l
45 # x/s $p
46
47 # Dump the whole thing
48 # Presume each section is null-terminated. Possibly bad presumption?
49 set $p = (long)msgbufp+4*sizeof(long)+$bufx
50 set $l = $bufs - $bufx
51 set print elements $l
52 printf "Dumping %#x length %d\n", $p, $l
53 # XXX (unsupported by gdb): printf "%.*s\n", $l, $p
54 printf "%s\n", $p
55 set $p = (long)msgbufp+4*sizeof(long)
56 set $l = $bufx
57 set print elements $l
58 printf "Dumping %#x length %d\n", $p, $l
59 # XXX (unsupported by gdb): printf "%.*s\n\n", $l, $p
60 printf "%s\n\n", $p
61 end
62
63 document msgbuf
64 Dump the kernel message buffer.
65 end
Cache object: 91e0602c66a561d1d9e6e684ebdf31ee
|