Home | History | Annotate | Line # | Download | only in gdbscripts 
      1  1.2  mrg #	$NetBSD: devs,v 1.2 2019/05/09 07:59:49 mrg Exp $
      2  1.1  mrg 
      3  1.1  mrg define devs
      4  1.1  mrg 	set $i = 0
      5  1.1  mrg 
      6  1.1  mrg 	while ($i < 2)
      7  1.1  mrg 		if ($i == 0)
      8  1.1  mrg 			set $d = alldevs.tqh_first
      9  1.1  mrg 		end
     10  1.1  mrg 		if ($d)
     11  1.1  mrg 			printf "        device_t            parent           private  dv_xname\n"
     12  1.1  mrg 		end
     13  1.1  mrg 		while ($d)
     14  1.1  mrg 			printf "%16lx  %16lx  %16lx  %s\n", \
     15  1.1  mrg 				$d, $d->dv_parent, $d->dv_private, $d->dv_xname
     16  1.1  mrg 			set $d = $d->dv_list.tqe_next
     17  1.1  mrg 		end
     18  1.1  mrg 		set $i++
     19  1.1  mrg 	end
     20  1.1  mrg end
     21  1.2  mrg document devs
     22  1.2  mrg dump a list of all devices known on the system with their name,
     23  1.2  mrg and these pointers: this device, parent device, device private.
     24  1.2  mrg end
     25