FreeBSD/Linux Kernel Cross Reference
sys/gdbscripts/lwps

     #       $NetBSD: lwps,v 1.6 2019/07/17 09:14:24 skrll Exp $
     
     define lwps
             set $i = 0
     
             while ($i < 2)
                     if ($i == 0)
                             set $p = allproc.lh_first
                     end
                    if ($p)
                            printf "\t       lwp   pid   lid     flag              wchan\n"
                    end
                    while ($p)
                            set $l = $p->p_lwps.lh_first
                            set $j = 0
                            while ($j < $p->p_nlwps)
                                    printf "0x%016lx %5d %5d %8x 0x%016lx", \
                                            $l, $p->p_pid, $l->l_lid, $l->l_flag, $l->l_wchan
                                    if ($l->l_wmesg)
                                            printf " (%s)", (char *)$l->l_wmesg
    # If the preceding command cannot dereference the pointer, use this instead:
    #                                       printf " (%lx)", $l->l_wmesg
                                    end
                                    set $l = $l->l_sibling.le_next
                                    printf "\n"
                                    set $j++
                            end
                            set $p = $p->p_list.le_next
                    end
                    set $i++
            end
    end
    document lwps
    ps for lwps
    end
    
    define threadinfo
            set $l = (struct lwp *)$arg0
            set $pid = $arg1
    
            set $j = 0
            set $n = $l->l_name
            #if ($n == 0)
            #       set $n = (char *)""
            #end
            printf "           laddr   pid   lid     flag                 wchan\n"                       
            printf "%16lx %5d %5d %8x      %16lx", \
                    $l, $pid, $l->l_lid, $l->l_flag, $l->l_wchan
            if ($n != 0)
                    printf "  %16s", $n
            end
            printf "\n\n"
            kvm proc $l
            where
            printf "\n"
    end
    document threadinfo
    Print out the stack and other data of a single thread.
    end
    
    define procthreadsaddr
            set $p = (struct proc *)$arg0
            set $l = $p->p_lwps.lh_first
            set $nlwps = $p->p_nlwps
            set $pid = $p->p_pid
    
            printf "           paddr   pid     flag  stat    n         firstlwp          command\n"                       
            printf "%16lx %5d %8x %4x %5d %16lx %16s\n\n", \
                    $p, $pid, $p->p_flag, $p->p_stat, \
                    $nlwps, $p->p_lwps.lh_first, \
                    (char *) $p->p_comm
            while ($l)
                    threadinfo $l $pid
                    set $l = $l->l_sibling.le_next
                    set $j++
            end
    end
    document procthreadsaddr
    Print out the stack of all threads in a particular process,
    found via struct proc * address.
    end
    
    define procthreadspid
            set $pid = (unsigned)$arg0
            set $p = allproc.lh_first
            while ($p)
                    if ($pid == $p->p_pid)
                            procthreadsaddr $p
                            loop_break
                    end
                    set $p = $p->p_list.le_next
            end
    end
    document procthreadspid
    Print out the stack of all threads in a particular process,
    found via PID.
    end
    
    define threadlist
           set $p = allproc.lh_first
           while ($p)
                   procthreadsaddr $p
                   set $p = $p->p_list.le_next
           end
   end
   document threadlist
   Print out the stack of all threads in the system.
   end
   
   define lock
           set $ld = (struct lockdebug *)ld_rb_tree
           set $a = $ld->ld_lock
           set $b = (volatile void *)$arg0
   
           while ($ld && $a != $b)
                   if ($a < $b) 
                           set $ld = (struct lockdebug *)$ld->ld_rb_node.rb_nodes[1]
                   end
                   if ($a > $b) 
                           set $ld = (struct lockdebug *)$ld->ld_rb_node.rb_nodes[0]
                   end
                   if ($ld == 0)
                           loop_break
                   end
                   set $a = $ld->ld_lock
   # printf "a=%lx b=%lx ld=%lx a<b %d a>b %d\n", $a, $b, $ld,  ($a < $b), ($a > $b)
           end
           if ($ld)
                   printf "lock address : %#018lx type     : ", \
                           (long)$ld->ld_lock
                   if ($ld->ld_flags & 0x2)
                           printf "sleep/adaptive\n"
                   else
                           printf "spin\n"
                   end
                   printf "initialized  : %#018lx", \
                           (long)$ld->ld_initaddr
                   if ($ld->ld_lockops->lo_type == 0x2)
                           printf " interlock: %#018lx\n", $ld->ld_locked
                   else
                           printf "\n"
                           printf "shared holds : %18u exclusive: ", \
                                   $ld->ld_shares
                           if (($ld->ld_flags & 0x1) != 0)
                                   printf "1\n"
                           else
                                   printf "0\n"
                           end
                           printf "shares wanted: %18u exclusive: %18u\n", \
                                   (unsigned)$ld->ld_shwant, (unsigned)$ld->ld_exwant
                           printf "cpu last held: %18u\n", \
                                   (unsigned)$ld->ld_cpu
                           printf "current lwp  : %#018lx last held: %#018lx\n", \
                                   (long)0, (long)$ld->ld_lwp
                           printf "last locked  : %#018lx unlocked : %#018lx\n", \
                                   (long)$ld->ld_locked, (long)$ld->ld_unlocked
                   end
           end
   end
   document lock
   Print out lockdebug info like ddb does.
   end

Cache object: 7da4b6b37019f3cc02511f3c903f317a