From owner-freebsd-current  Sat Sep 16 17:59:22 2000
Delivered-To: freebsd-current@freebsd.org
Received: from wantadilla.lemis.com (wantadilla.lemis.com [192.109.197.80])
	by hub.freebsd.org (Postfix) with ESMTP
	id 08A0237B422; Sat, 16 Sep 2000 17:58:37 -0700 (PDT)
Received: (from grog@localhost)
	by wantadilla.lemis.com (8.11.0/8.9.3) id e8H0wOI90602;
	Sun, 17 Sep 2000 10:28:24 +0930 (CST)
	(envelope-from grog)
Date: Sun, 17 Sep 2000 10:28:24 +0930
From: Greg Lehey <grog@lemis.com>
To: Michael Reifenberger <root@nihil.plaut.de>
Cc: FreeBSD-Current <current@FreeBSD.ORG>,
	FreeBSD-SMP <freebsd-smp@FreeBSD.ORG>
Subject: Re: Debugging -current SMPNG HANG on heavy disk-io
Message-ID: <20000917102824.C42114@wantadilla.lemis.com>
References: <Pine.BSF.4.21.0009170012060.663-100000@localhost>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="/04w6evG8XlLl3ft"
X-Mailer: Mutt 1.0i
In-Reply-To: <Pine.BSF.4.21.0009170012060.663-100000@localhost>; from root@nihil.plaut.de on Sun, Sep 17, 2000 at 12:32:01AM +0200
Organization: LEMIS, PO Box 460, Echunga SA 5153, Australia
Phone: +61-8-8388-8286
Fax: +61-8-8388-8725
Mobile: +61-418-838-708
WWW-Home-Page: http://www.lemis.com/~grog
X-PGP-Fingerprint: 6B 7B C3 8C 61 CD 54 AF  13 24 52 F8 6D A4 95 EF
Sender: owner-freebsd-current@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.ORG


--/04w6evG8XlLl3ft
Content-Type: text/plain; charset=us-ascii

On Sunday, 17 September 2000 at  0:32:01 +0200, Michael Reifenberger wrote:
> Hi,
> -current hangs reliable (as described in another mail) for me.
> For short:
>   "tar cf /dev/null /usr/ports&; tar cf - /usr/ports | tar tf -"
>   locks the system solid after a few minutes.
>   The first tar itself seems to need some time longer before hang.
>   This is verified to occure with 2 different disks (IDE).

I've seen this on NFS a few weeks back, but I haven't followed
through.  In my case, I couldn't even get to the debugger.

> Now the questions how to debug this:
> - How do I get a backtrace of a specific process from within DDB?
> - How do I determine where the system hangs/loops fromm within DDB?

I can't give you answers for ddb.

> - How do I get the process-list (like ps) from within gdb (postmortem)

I have a macro which does this.  I should commit some of them, but
they're in terrible shape.  I'm attaching them to this message.
You'll have to modify at least .gdbinit.paths.

> Below is a first try to debug postmortem with gdb
> Does this look reasonable? Something else to look?
> <snip>
> #0  dumpsys () at /usr/src/sys/kern/kern_shutdown.c:475
> 475		dumppcb.pcb_cr3 = rcr3();
> (kgdb) bt
> #0  dumpsys () at /usr/src/sys/kern/kern_shutdown.c:475
> #1  0xc017aeb3 in boot (howto=256) at /usr/src/sys/kern/kern_shutdown.c:316
> #2  0xc017b255 in panic (fmt=0xc02802b4 "from debugger")
>     at /usr/src/sys/kern/kern_shutdown.c:568
> #3  0xc013b2c9 in db_panic (addr=-1071295444, have_addr=0, count=-1,
>     modif=0xc788bd88 "") at /usr/src/sys/ddb/db_command.c:433
> #4  0xc013b269 in db_command (last_cmdp=0xc02bf5b4, cmd_table=0xc02bf414,
>     aux_cmd_tablep=0xc03002fc) at /usr/src/sys/ddb/db_command.c:333
> #5  0xc013b32e in db_command_loop () at /usr/src/sys/ddb/db_command.c:455
> #6  0xc013d4eb in db_trap (type=3, code=0) at /usr/src/sys/ddb/db_trap.c:71
> #7  0xc02551ca in kdb_trap (type=3, code=0, regs=0xc788beac)
>     at /usr/src/sys/i386/i386/db_interface.c:163
> #8  0xc0260fdc in trap (frame={tf_fs = 16, tf_es = 16, tf_ds = -1070530544,
>       tf_edi = -1070468928, tf_esi = -1070491744, tf_ebp = -947339528,
>       tf_isp = -947339560, tf_ebx = 582, tf_edx = -1072984320, tf_ecx = 32,
>       tf_eax = 38, tf_trapno = 3, tf_err = 0, tf_eip = -1071295444, tf_cs = 8,
>       tf_eflags = 70, tf_esp = -1070930945, tf_ss = -1070944311})
>     at /usr/src/sys/i386/i386/trap.c:584
> #9  0xc025542c in Debugger (msg=0xc02aafc9 "manual escape to debugger")
>     at machine/cpufunc.h:64

The frames above are what the system went to as the result of your
debugger request.  I'd also be interested to see the output of the
'icnt' macro (if this is UP machine) or 'icnt1' (if it's SMP), and
'ps' (the macro I promised above).

> #10 0xc0251f36 in scgetc (sc=0xc031f0c0, flags=2)
>     at /usr/src/sys/dev/syscons/syscons.c:3133
> #11 0xc024ef59 in sckbdevent (thiskbd=0xc0317f60, event=0, arg=0xc031f0c0)
>     at /usr/src/sys/dev/syscons/syscons.c:634
> #12 0xc0246eae in atkbd_intr (kbd=0xc0317f60, arg=0x0)
>     at /usr/src/sys/dev/kbd/atkbd.c:462
> #13 0xc026c45c in atkbd_isa_intr (arg=0xc0317f60)
>     at /usr/src/sys/isa/atkbd_isa.c:125

The ones above are the keyboard interrupt handler.

> #14 0xc02681a4 in ithd_loop (dummy=0x0) at /usr/src/sys/i386/isa/ithread.c:239

This is the interesting one.  We appear to be looping in an interrupt
handler.  At this point, it would be very interesting to see the value
of p->p_comm, which is the process name at the end of the ps listing.

> (kgdb) proc 35

Why are you interested in this process?

Greg
--
Finger grog@lemis.com for PGP public key
See complete headers for address and phone numbers

--/04w6evG8XlLl3ft
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=".gdbinit"

source .gdbinit.kernel
source .gdbinit.paths
tr

--/04w6evG8XlLl3ft
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=".gdbinit.paths"

# GRRR
# set remotebaud 115200
set remotebaud 9600
set remotetimeout 1
set complaints 1
set print pretty
# dir /src/ZAPHOD/src/sys/modules/vinum
# dir /src/ZAPHOD/src/sys/i386/conf
# dir /src/ZAPHOD/src/sys
dir src/sys/i386/conf
dir src/sys
file src/sys/compile/ZAPHODng/kernel.ko.debug
define asf
   set $file = linker_files.tqh_first
   set $found = 0
   while ($found == 0)
     if (*$file->filename == 'v')
	set $found = 1
     else
       set $file = $file->link.tqe_next
     end
   end
   shell /usr/bin/objdump --section-headers sys/modules/vinum/vinum.ko | grep ' .text' | awk '{print "add-symbol-file sys/modules/vinum/vinum.ko \$file->address+0x" $4}' > .asf
   source .asf
end
document asf
Find the load address of Vinum in the kernel and add the symbols at this address
end

--/04w6evG8XlLl3ft
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=".gdbinit.kernel"

define xi
x/10i $eip
end
define xs
x/12x $esp
end
define xb
x/12x $ebp
end
define z
ni
x/1i $eip
end
define zs
si
x/1i $eip
end
define xp
printf "      esp: " 
output/x $esp
echo  (
output (((int)$ebp)-(int)$esp)/4-4
printf " words on stack)\n      ebp: " 
output/x $ebp
printf "\n      eip: " 
x/1i $eip
printf "Saved ebp: " 
output/x *(int*)$ebp
printf " (maximum of "  
output ((*(int*)$ebp)-(int)$ebp)/4-4
printf " parameters possible)\nSaved eip: " 
x/1i *(int*)($ebp+4)
printf "\nParm 1 at " 
output/x (int) ($ebp+8)
printf ":    " 
output (char*) *(int*)($ebp+8)
printf "\nParm 2 at " 
output/x (int) ($ebp+12)
printf ":    " 
output (char*) *(int*)($ebp+12)
printf "\nParm 3 at " 
output/x (int) ($ebp+16)
printf ":    " 
output (char*) *(int*)($ebp+16)
printf "\nParm 4 at " 
output/x (int) ($ebp+20)
printf ":    " 
output (char*) *(int*)($ebp+20)
echo \n
end
document xp
Show the register contents and the first four parameter
words of the current frame.
end
define xxp
printf "      esp: " 
output/x $esp
printf "\n      ebp: " 
output/x $ebp
printf "\n      eip: " 
x/1i $eip
printf "Saved ebp: " 
output/x *(int*)$ebp
printf " (maximum of "  
output ((*(int*)$ebp)-(int)$ebp)/4-4
printf " parameters possible)\nSaved eip: " 
x/1i *(int*)($ebp+4)
printf "\nParm  1 at " 
output/x (int) ($ebp+8)
printf ":    " 
output (char*) *(int*)($ebp+8)
printf "\nParm  2 at " 
output/x (int) ($ebp+12)
printf ":    " 
output (char*) *(int*)($ebp+12)
printf "\nParm  3 at " 
output/x (int) ($ebp+16)
printf ":    " 
output (char*) *(int*)($ebp+16)
printf "\nParm  4 at " 
output/x (int) ($ebp+20)
printf ":    " 
output (char*) *(int*)($ebp+20)
printf "\nParm  5 at " 
output/x (int) ($ebp+24)
printf ":    " 
output (char*) *(int*)($ebp+24)
printf "\nParm  6 at " 
output/x (int) ($ebp+28)
printf ":    " 
output (char*) *(int*)($ebp+28)
printf "\nParm  7 at " 
output/x (int) ($ebp+32)
printf ":    " 
output (char*) *(int*)($ebp+32)
printf "\nParm  8 at " 
output/x (int) ($ebp+36)
printf ":    " 
output (char*) *(int*)($ebp+36)
printf "\nParm  9 at " 
output/x (int) ($ebp+40)
printf ":    " 
output (char*) *(int*)($ebp+40)
printf "\nParm 10 at " 
output/x (int) ($ebp+44)
printf ":    " 
output (char*) *(int*)($ebp+44)
echo \n
end
document xxp
Show the register contents and the first ten parameter
words of the current frame.
end
define xp0
x/12x *(int*)$esp
p *(int*)$esp
p (char*)*$esp
end
define xp1
x/12x *(int*)($ebp+4)
p *(int*)($ebp+4)
p (char**)($ebp+4)
end
define xp2
x/12x *(int*)($ebp+8)
p *(int*)($ebp+8)
p *(char**)($ebp+8)
end
define xp3
x/12x *(int*)($ebp+12)
p *(int*)($ebp+12)
p (char**)($ebp+12)
end
define xp4
x/12x *(int*)($ebp+16)
p *(int*)($ebp+16)
p (char**)($ebp+16)
end
document xp0
Show the first parameter of current stack frame in various formats
end
document xp1
Show the second parameter of current stack frame in various formats
end
document xp2
Show the third parameter of current stack frame in various formats
end
document xp3
Show the fourth parameter of current stack frame in various formats
end
document xp4
Show the fifth parameter of current stack frame in various formats
end
define f0
f 0
xp
end
define f1
f 1
xp
end
define f2
f 2
xp
end
define f3
f 3
xp
end
define f4
f 4
xp
end
define f5
f 5
xp
end
document f0
Select stack frame 0 and show assembler-level details
end
document f1
Select stack frame 1 and show assembler-level details
end
document f2
Select stack frame 2 and show assembler-level details
end
document f3
Select stack frame 3 and show assembler-level details
end
document f4
Select stack frame 4 and show assembler-level details
end
document f5
Select stack frame 5 and show assembler-level details
end
document z
Single step 1 instruction (over calls) and show next instruction.
end
document zs
Single step 1 instruction (through calls) and show next instruction.
end
document xi
List the next 10 instructions from the current IP value
end
document xs
Show the last 12 words on stack in hex
end
document xb
Show 12 words starting at current BP value in hex
end
define tr
target remote /dev/cuaa0
end
document tr
Attach to a remote kernel via /dev/cuaa0
end
set output-radix 16
define pname
p (char *)curproc->p_comm
end 
document pname
Print the command name of the current process
end
define bpp
set $bp = (struct buf *) $arg0
    if $bp->b_io.bio_dev
      printf "  Buffer at 0x%x: dev 0x%x  data 0x%x  bcount 0x%x  blkno 0x%x resid 0x%x\n", \
        $bp, \
        $bp->b_io.bio_dev->si_udev, \
        $bp->b_io.bio_data, \
        $bp->b_io.bio_bcount, \
        $bp->b_io.bio_blkno, \
        $bp->b_io.bio_resid
    else
      printf "  Buffer at 0x%x: dev (none) data 0x%x  bcount 0x%x  blkno 0x%x resid 0x%x\n", \
        $bp, \
        $bp->b_io.bio_data, \
        $bp->b_io.bio_bcount, \
        $bp->b_io.bio_blkno, \
        $bp->b_io.bio_resid
    end
    printf "    Command: "
    if $bp->b_io->bio_cmd == 1
      printf "Read, "
    end
    if $bp->b_io->bio_cmd == 2
      printf "Write, "
    end
    if $bp->b_io->bio_cmd == 4
      printf "Delete, "
    end
    if $bp->b_io->bio_cmd == 8
      printf "Format, "
    end
    printf "flags 0x%x: ", $bp->b_flags
    if $bp->b_flags & 0x200
      printf "done "
    end
    if $bp->b_flags & 0x800
      printf "error "
    end
    if $bp->b_flags & 0x40000
      printf "phys "
    end
    printf "\n"
end
define bpl
set $bp = (struct buf *) $arg0
printf "b_proc: "
output $bp->b_proc
printf "\nb_flags:      "
output $bp->b_flags
printf "\nb_qindex:     "
output $bp->b_qindex
printf "\nb_usecount:   "
output $bp->b_usecount
printf "\nb_error:      "
output $bp->b_error
printf "\nb_bufsize:    "
output $bp->b_bufsize
printf "\nb_io.bio_bcount:     "
output $bp->b_io.bio_bcount
printf "\nb_io.bio_resid:      "
output $bp->b_io.bio_resid
printf "\nb_io.bio_dev:        "
output $bp->b_io.bio_dev
printf "\nb_io.bio_data:       "
output $bp->b_io.bio_data
printf "\nb_kvasize:    "
output $bp->b_kvasize
printf "\nb_lblkno:     "
output $bp->b_lblkno
printf "\nb_io.bio_blkno:      "
output $bp->b_io.bio_blkno
printf "\nb_iodone:     "
output $bp->b_iodone
printf "\nb_vp: "
output $bp->b_vp
printf "\nb_dirtyoff:   "
output $bp->b_dirtyoff
printf "\nb_dirtyend:   "
output $bp->b_dirtyend
printf "\nb_generation: "
output $bp->b_generation
printf "\nb_rcred:      "
output $bp->b_rcred
printf "\nb_wcred:      "
output $bp->b_wcred
printf "\nb_validoff:   "
output $bp->b_validoff
printf "\nb_validend:   "
output $bp->b_validend
printf "\nb_pblkno:     "
output $bp->b_pblkno
printf "\nb_saveaddr:   "
output $bp->b_saveaddr
printf "\nb_savekva:    "
output $bp->b_savekva
printf "\nb_driver1:    "
output $bp->b_driver1
printf "\nb_driver2:    "
output $bp->b_driver2
printf "\nb_spc:        "
output $bp->b_spc
printf "\nb_npages:     "
output $bp->b_npages
printf "\n"
end
define bp
bpp bp
end
define bpd
    printf "Buffer data:\n%s", (char *) bp->b_io.bio_data
end
document bpd
Show the contents (char*) of bp->data in the current frame.
end
document bp
Show information about the buffer header pointed to by the
variable bp in the current frame.
end
document bpp
Show summary information about the buffer header (struct bp) pointed
at by the parameter.
end
document bpl
Show detailled information about the buffer header (struct bp) pointed
at by the parameter.
end
document bpl
Show detailled information about the buffer header (struct bp) pointed
at by the local variable bp.
end
define bx
printf "\n b_vnbufs " 
output/x bp->b_vnbufs
printf "\n b_freelist " 
output/x bp->b_freelist
printf "\n b_act " 
output/x bp->b_act
printf "\n b_flags " 
output/x bp->b_flags
printf "\n b_qindex " 
output/x bp->b_qindex
printf "\n b_usecount " 
output/x bp->b_usecount
printf "\n b_error " 
output/x bp->b_error
printf "\n b_bufsize " 
output/x bp->b_bufsize
printf "\n b_io.bio_bcount " 
output/x bp->b_io.bio_bcount
printf "\n b_io.bio_resid " 
output/x bp->b_io.bio_resid
printf "\n b_io.bio_dev " 
output/x bp->b_io.bio_dev
printf "\n b_io.bio_data " 
output/x bp->b_io.bio_data
printf "\n b_kvasize " 
output/x bp->b_kvasize
printf "\n b_io.bio_blkno " 
output/x bp->b_io.bio_blkno
printf "\n b_iodone_chain " 
output/x bp->b_iodone_chain
printf "\n b_vp " 
output/x bp->b_vp
printf "\n b_dirtyoff " 
output/x bp->b_dirtyoff
printf "\n b_validoff " 
output/x bp->b_validoff
echo \n
end
define ddb
set boothowto=0x80000000
s
end
document ddb
Switch back to ddb.
end
define ps
    set $nproc = nprocs
    set $aproc = allproc.lh_first
    set $proc = allproc.lh_first
    printf "  pid    proc    addr    uid  pri ppid  pgrp   flag stat comm         wchan\n"
    while (--$nproc >= 0)
        set $pptr = $proc.p_pptr
        if ($pptr == 0)
           set $pptr = $proc
        end
        if ($proc.p_stat)
            printf "%5d %08x %08x %4d ", \
                   $proc.p_pid, $aproc, \
                   $proc.p_addr, $proc.p_cred->p_ruid
	    if ($proc.p_rtprio.type == 3)
                printf "%3d ", $pptr->p_priority
            else
                printf "%3d*", $proc.p_rtprio.prio
	    end
            printf "%5d %5d  %06x  %d  %-10s   ", \
		   $pptr->p_pid, $proc.p_pgrp->pg_id, $proc.p_flag, $proc.p_stat, \
                   &$proc.p_comm[0]
            if ($proc.p_wchan)
                if ($proc.p_wmesg)
                    printf "%s ", $proc.p_wmesg
                end
                printf "%x", $proc.p_wchan
            end
            printf "\n"
        end
        set $aproc = $proc.p_list.le_next
        if ($aproc == 0 && $nproc > 0)
            set $aproc = zombproc
        end
        set $proc = $aproc
    end
end
document ps
"ps" -- when kernel debugging, type out a ps-like listing of active processes.
end
define pregs
    set $nproc = nprocs
    set $aproc = allproc.lh_first
    set $proc = allproc.lh_first
    while (--$nproc >= 0)
        set $pptr = $proc.p_pptr
        if ($proc->p_pid == $arg0)
	   set $pcba = $pptr->p_addr->u_pcb
	   printf "eax\t%d\t%x", $pcba->pcb_eax, $pcba->pcb_eax
	   printf "ecx\t%d\t%x", $pcba->pcb_ecx, $pcba->pcb_ecx
	   printf "edx\t%d\t%x", $pcba->pcb_edx, $pcba->pcb_edx
	   printf "ebx\t%d\t%x", $pcba->pcb_ebx, $pcba->pcb_ebx
	   printf "esp\t%d\t%x", $pcba->pcb_esp, $pcba->pcb_esp
	   printf "ebp\t%d\t%x", $pcba->pcb_ebp, $pcba->pcb_ebp
	   printf "esi\t%d\t%x", $pcba->pcb_esi, $pcba->pcb_esi
	   printf "edi\t%d\t%x", $pcba->pcb_edi, $pcba->pcb_edi
	   printf "eip\t%d\t%x", $pcba->pcb_eip, $pcba->pcb_eip
	   printf "eflags\t%d\t%x", $pcba->pcb_eflags, $pcba->pcb_eflags
	   printf "cs\t%d\t%x", $pcba->pcb_cs, $pcba->pcb_cs
	   printf "ss\t%d\t%x", $pcba->pcb_ss, $pcba->pcb_ss
	   printf "ds\t%d\t%x", $pcba->pcb_ds, $pcba->pcb_ds
	   printf "es\t%d\t%x", $pcba->pcb_es, $pcba->pcb_es
	   printf "fs\t%d\t%x", $pcba->pcb_fs, $pcba->pcb_fs
	   printf "gs\t%d\t%x", $pcba->pcb_gs, $pcba->pcb_gs
	   x/1i $pcba->pcb_eip
	   set $nproc = 0
        end
        set $aproc = $proc.p_list.le_next
        if ($aproc == 0 && $nproc > 0)
            set $aproc = zombproc
        end
        set $proc = $aproc
    end
end
document pregs
Show some pcb contents of process whose pid is specified.
end
define btr
set $frame = $arg0
set $fno = 0
while (*(int *) $frame > 0xc0000000)
  set $myebp = *(int *) $frame
  set $myeip = *(int *) ($frame + 4)
  printf " frame %d at %p: ebp %8x, eip ", $fno, $frame, $myebp
  x/1i $myeip
  set $frame = $myebp
  set $fno = $fno + 1
end
end
document btr
Show a backtrace from the ebp address specified.  This can be used to
get a backtrace from any stack resident in memory.
end
define btp
    set $nproc = nprocs
    set $aproc = allproc.lh_first
    set $proc = allproc.lh_first
    while (--$nproc >= 0)
        if ($proc->p_pid == $arg0)
	   btr $proc->p_addr->u_pcb->pcb_ebp
	   set $nproc = 0
	else
           set $aproc = $proc.p_list.le_next
           if ($aproc == 0 && $nproc > 0)
              set $aproc = zombproc
           end
           set $proc = $aproc
        end
   end
end
document btp
Show a backtrace for the process whose pid is specified as a parameter.
end
define btpa
    set $nproc = nprocs
    set $aproc = allproc.lh_first
    set $proc = allproc.lh_first
    printf "  pid    proc    addr   uid  ppid  pgrp   flag stat comm         wchan\n"
    while (--$nproc >= 0)
        set $pptr = $proc.p_pptr
        if ($pptr == 0)
           set $pptr = $proc
        end
        if ($proc.p_stat)
            printf "%5d %08x %08x %4d %5d %5d  %06x %d  %-10s   ", \
                   $proc.p_pid, $aproc, \
                   $proc.p_addr, $proc.p_cred->p_ruid, $pptr->p_pid, \
                   $proc.p_pgrp->pg_id, $proc.p_flag, $proc.p_stat, \
                   &$proc.p_comm[0]
            if ($proc.p_wchan)
                if ($proc.p_wmesg)
                    printf "%s ", $proc.p_wmesg
                end
                printf "%x", $proc.p_wchan
            end
            printf "\n"
	   if ($proc->p_flag & 4)
	      btr $proc->p_addr->u_pcb->pcb_ebp
	   else
              echo (not loaded)\n
	   end
        end
        set $aproc = $proc.p_list.le_next
        if ($aproc == 0 && $nproc > 0)
            set $aproc = zombproc
        end
        set $proc = $aproc
    end
end
document btpa
Show backtraces for all processes in the system.
end
define btpp
  if ($myvectorproc->p_flag & 4)
    btr $myvectorproc->p_addr->u_pcb->pcb_ebp
  else
    echo (not loaded)\n
  end
end
document btpp
Show a backtrace for the process previously selected with 'defproc'.
end
define defproc
    set $nproc = nprocs
    set $aproc = allproc.lh_first
    set $proc = allproc.lh_first
    while (--$nproc >= 0)
        if ($proc->p_pid == $arg0)
	   set $pptr = $proc.p_pptr
           if ($pptr == 0)
              set $pptr = $proc
           end
	   set $myvectorproc = $proc
           if ($proc.p_stat)
               printf "%5d %08x %08x %4d %5d %5d  %06x %d  %-10s   ", \
                      $proc.p_pid, $aproc, \
                      $proc.p_addr, $proc.p_cred->p_ruid, $pptr->p_pid, \
                     $proc.p_pgrp->pg_id, $proc.p_flag, $proc.p_stat, \
                     &$proc.p_comm[0]
               if ($proc.p_wchan)
                   if ($proc.p_wmesg)
                       printf "%s ", $proc.p_wmesg
                  end
                  printf "%x", $proc.p_wchan
               end
               printf "\n"
	      end
	   btpp
	   set $nproc = 0
	else
           set $proc = $proc.p_list.le_next
        end
   end
end
document defproc
Specify a process for btpp and fr commands.
end
define fr
set $fno = 0
set $searching = 1
if ($myvectorproc->p_flag & 4)
  set $frame = $myvectorproc->p_addr->u_pcb->pcb_ebp
  while (($searching == 1) && (*(int *) $frame > 0xc0000000))
    set $myebp = *(int *) $frame
    set $myeip = *(int *) ($frame + 4)
    if ($fno == $arg0)
      printf " frame %d at %p: ebp %8x, eip ", $fno, $frame, $myebp
      x/1i $myeip
      printf "Called from %8x, stack frame at %8x\n", *(int *) ($myebp+4), *(int *) $myebp
      printf "last 20 local variables:\n"
      x/20x ($myebp-80)
      printf "call parameters:\n"
      x/8x ($myebp+8)
      set $searching = 0
    else
      set $frame = $myebp
      set $fno = $fno + 1
    end
  end
  if ($searching == 1)
    echo frame not found\n
  end
else
  printf "process %d is not loaded in memory\n", $myvectorproc->p_pid
end
end
document fr
Show the frame of the stack of the process previously selected with 'defproc'.
end
set height 70
set width 120
define vdev
if (vp->v_type == VBLK)
  p *vp->v_un.vu_spec.vu_specinfo
  printf "numoutput: %d\n", vp->v_numoutput
else
  echo "Not a block device"
end
end
document vdev
Show some information of the vnode pointed to by the local variable vp.
end
define y
echo Check your .gdbinit, it contains a y command\n
end
define kldstat
   set $file = linker_files.tqh_first
   printf "Id Refs Address    Size     Name\n"
   while ($file != 0)
     printf "%2d %4d 0x%8x %8x %s\n",   \
	$file->id, 			\
	$file->refs,			\
	$file->address,			\
	$file->size,			\
	$file->filename
     set $file = $file->link.tqe_next
   end
end
document kldstat
Equivalent of the kldstat(9) command, without options.
end
define msgbuf
printf "%s", msgbufp->msg_ptr
end
document msgbuf
Print the system message buffer (dmesg).  This can take a long time due to the time it takes to transmit the data across a serial line.
end
define icnt
set $irq = 0
set $mask = imen
while ($irq < 23)
  if ($mask & 1)
    printf "%d*\t", *intr_countp [$irq]
  else
    printf "%d\t", *intr_countp [$irq]
  end
  if (($irq & 7) == 7)
    printf "\n"
  end
  set $irq = $irq + 1
  set $mask = $mask >> 1
  end
printf "\nimen: %x\n", imen
end
document icnt
Print the interrupt counts for the first 16 interrupts
end
set $last=75
set $seg=43
 
# kmem_hdr
define kmemhdr
        printf "\tINUSE\tCALLS\tMEMUSED\tLIMBLK\tMAPBLK\tMAXUSED\t\tLIMIT\n"
end
 
# pkmem <ptr>
define pkmem
        set $kp=(struct kmemstats *)$arg0
        set $n = (struct kmemstats *)$kp - (struct kmemstats *)kmemstats
        printf "%d:\t%d\t%d", $n, $kp->ks_inuse, $kp->ks_calls
        printf "\t0x%x\t%d", $kp->ks_memuse, $kp->ks_limblocks
        printf "\t%d\t0x%x\t\t%d\n", $kp->ks_mapblocks, $kp->ks_maxused, $kp->ks_limit
end
 
define kmemdump
        set $kp=(struct kmemstats *)(kmemstats + $arg0)
        kmemhdr
        pkmem $kp
end

define kdumpall
        set $i=0

        kmemhdr
        set $kp = (struct kmemstats *)kmemstats
        while ($i < $last)
                pkmem $kp
                set $kp++
                set $i++
        end
end
define ktr
        set $idx = ktr_idx - 1
        set $last = ktr_idx
        if ($idx == -1)
                set $idx = ktr_entries - 1
        end
	if (($idx != 0) || (ktr_buf [0].ktr_tv.tv_nsec != 0))
	        while ($idx != $last)
	                set $kent = &ktr_buf[$idx]
	                set $time = $kent->ktr_tv.tv_nsec
	                set $ts = $kent->ktr_tv.tv_sec
	                set $desc = $kent->ktr_desc
	                printf "%3d %d:%9.9d ", $idx, $ts, $time
	#               printf $desc, $kent->ktr_parm1, $kent->ktr_parm2, $kent->ktr_parm3, $kent->ktr_parm4, $kent->ktr_parm5
	                if (ktr_extend)
	                        printf "cpu%d %s.%d\t%s\n", $kent->ktr_cpu, $kent->ktr_filename, $kent->ktr_line, $kent->ktr_desc
	                else
	                        printf "%s %p %p %p %p %p\n", $desc, $kent->ktr_parm1, $kent->ktr_parm2, $kent->ktr_parm3, $kent->ktr_parm4, $kent->ktr_parm5
	                end
	                set $idx = $idx - 1
	                if ($idx == -1)
	                	set $idx = ktr_entries - 1
	                end
	        end
        end
end
define icnt1
set $irq = 0
set $mask = apic_imen
while ($irq < 31)
  if ($mask & 1)
    printf "%d*\t", *intr_countp [$irq]
  else
    printf "%d\t", *intr_countp [$irq]
  end
  if (($irq & 7) == 7)
    printf "\n"
  end
  set $irq = $irq + 1
  set $mask = $mask >> 1
  end
printf "\napic_imen: %x\n", apic_imen
end
document icnt1
Print the interrupt counts for the first 24 interrupts on an SMP machine.

end

--/04w6evG8XlLl3ft--


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-current" in the body of the message