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 31define 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 61end 62 63document msgbuf 64 Dump the kernel message buffer. 65end 66