| @@ -1,14 +1,14 @@ | | | @@ -1,14 +1,14 @@ |
| 1 | # $NetBSD: vchain,v 1.9 2017/04/13 09:52:18 hannken Exp $ | | 1 | # $NetBSD: vchain,v 1.10 2019/12/06 01:01:02 mrg Exp $ |
| 2 | | | 2 | |
| 3 | # @(#)vchain 8.1 (Berkeley) 6/10/93 | | 3 | # @(#)vchain 8.1 (Berkeley) 6/10/93 |
| 4 | # | | 4 | # |
| 5 | | | 5 | |
| 6 | define vchain | | 6 | define vchain |
| 7 | set $num = 0 | | 7 | set $num = 0 |
| 8 | | | 8 | |
| 9 | set $vp=(struct vnode *)$arg0 | | 9 | set $vp=(struct vnode *)$arg0 |
| 10 | set $vi=(struct vnode_impl *)$arg0 | | 10 | set $vi=(struct vnode_impl *)$arg0 |
| 11 | while ($vp) | | 11 | while ($vp) |
| 12 | printf "vp: 0x%lx lrulist_next: 0x%lx usecount: %d flags: i:0x%x v:0x%x u:0x%x\n",\ | | 12 | printf "vp: 0x%lx lrulist_next: 0x%lx usecount: %d flags: i:0x%x v:0x%x u:0x%x\n",\ |
| 13 | $vp, $vi->vi_lrulist.tqe_next, $vp->v_uobj.uo_refs, \ | | 13 | $vp, $vi->vi_lrulist.tqe_next, $vp->v_uobj.uo_refs, \ |
| 14 | $vp->v_iflag, $vp->v_vflag, $vp->v_uflag | | 14 | $vp->v_iflag, $vp->v_vflag, $vp->v_uflag |
| @@ -43,28 +43,28 @@ define vall | | | @@ -43,28 +43,28 @@ define vall |
| 43 | set $mp=$mp->mnt_list.tqe_next | | 43 | set $mp=$mp->mnt_list.tqe_next |
| 44 | | | 44 | |
| 45 | # "break" | | 45 | # "break" |
| 46 | if ((const void *)$mp == (const void *)&mountlist) | | 46 | if ((const void *)$mp == (const void *)&mountlist) |
| 47 | set $mp = 0 | | 47 | set $mp = 0 |
| 48 | end | | 48 | end |
| 49 | end | | 49 | end |
| 50 | end | | 50 | end |
| 51 | document vall | | 51 | document vall |
| 52 | print vnode chains for all mount points | | 52 | print vnode chains for all mount points |
| 53 | end | | 53 | end |
| 54 | | | 54 | |
| 55 | define mountdump | | 55 | define mountdump |
| 56 | set $me=mount_list.tqh_first | | 56 | set $me=mountlist.tqh_first |
| 57 | while ($me) | | 57 | while ($me) |
| 58 | if ($me->me_type == ME_MOUNT) | | 58 | if ($me->me_type == ME_MOUNT) |
| 59 | set $mp = $me->me_mount | | 59 | set $mp = $me->me_mount |
| 60 | printf "%s on %s type %s, (mp 0x%x, privdata 0x%x)\n", \ | | 60 | printf "%s on %s type %s, (mp 0x%x, privdata 0x%x)\n", \ |
| 61 | $mp->mnt_stat->f_mntfromname, \ | | 61 | $mp->mnt_stat->f_mntfromname, \ |
| 62 | $mp->mnt_stat->f_mntonname, \ | | 62 | $mp->mnt_stat->f_mntonname, \ |
| 63 | $mp->mnt_op->vfs_name, $mp, $mp->mnt_data | | 63 | $mp->mnt_op->vfs_name, $mp, $mp->mnt_data |
| 64 | end | | 64 | end |
| 65 | set $me=$me->me_list.tqe_next | | 65 | set $me=$me->me_list.tqe_next |
| 66 | if ((const void *)$me == (const void *)&mount_list) | | 66 | if ((const void *)$me == (const void *)&mountlist) |
| 67 | set $me = 0 | | 67 | set $me = 0 |
| 68 | end | | 68 | end |
| 69 | end | | 69 | end |
| 70 | end | | 70 | end |