1define modules 2 set $h = module_list 3 set $e = $h->tqh_first 4 while ($e != 0) 5 if ($e->mod_kobj != 0) 6 printf "module %s\t0x%016x-0x%016x\n", \ 7 $e->mod_info.mi_name, \ 8 $e->mod_kobj->ko_address, \ 9 $e->mod_kobj->ko_address + $e->mod_kobj->ko_size 10 else 11 printf "module %s\n", \ 12 $e->mod_info.mi_name 13 end 14 set $e = $e->mod_chain.tqe_next 15 end 16end 17