1 /* Low level interface for debugging UnixWare user-mode threads for
4 Copyright 1999, 2000, 2001 Free Software Foundation, Inc.
5 Written by Nick Duffek <nsd@cygnus.com>.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
25 /* Like many systems, UnixWare implements two classes of threads:
26 kernel-mode threads, which are scheduled by the kernel; and
27 user-mode threads, which are scheduled by a library. UnixWare
28 calls these two classes lightweight processes (LWPs) and threads,
31 This module deals with user-mode threads. It calls procfs_ops
32 functions to deal with LWPs and processes and core_ops functions to
35 As of this writing, the user-mode thread debugging interface is not
36 documented beyond the comments in <thread.h>. The following
37 description has been gleaned from experience and from information
40 libthread.so, against which all UnixWare user-mode thread programs
41 link, provides a global thread_debug structure named _thr_debug.
44 (1) thr_map is a pointer to a pointer to an element of a
45 thread_map ring. A thread_map contains a single thread's id
46 number, state, LWP pointer, recent register state, and other
49 (2) thr_brk is a pointer to a stub function that libthread.so
50 calls when it changes a thread's state, e.g. by creating it,
51 switching it to an LWP, or causing it to exit.
53 (3) thr_debug_on controls whether libthread.so calls thr_brk().
55 Debuggers are able to track thread activity by setting a private
56 breakpoint on thr_brk() and setting thr_debug_on to 1.
58 thr_brk() receives two arguments:
60 (1) a pointer to a thread_map describing the thread being
63 (2) an enum thread_change specifying one of the following
67 thread_create thread has just been created
68 thread_exit thread has just exited
69 switch_begin thread will be switched to an LWP
70 switch_complete thread has been switched to an LWP
71 cancel_complete thread wasn't switched to an LWP
72 thread_suspend thread has been thr_suspend()ed
73 thread_suspend_pending thread will be thr_suspend()ed
74 thread_continue thread has been thr_continue()d
76 The thread_map argument to thr_brk() is NULL under the following
79 - The main thread is being acted upon. The main thread always
80 has id 1, so its thread_map is easy to find by scanning through
83 - A "switch_complete" change is occurring, which means that the
84 thread specified in the most recent "switch_begin" change has
87 - A "cancel_complete" change is occurring, which means that the
88 thread specified in the most recent "switch_begin" change has
89 not moved to an LWP after all.
91 - A spurious "switch_begin" change is occurring after a
94 Between switch_begin and switch_complete or cancel_complete, the
95 affected thread's LWP pointer is not reliable. It is possible that
96 other parts of the thread's thread_map are also unreliable during
101 #include "gdbthread.h"
103 #include "inferior.h"
104 #include "regcache.h"
107 /* <thread.h> includes <sys/priocntl.h>, which requires boolean_t from
108 <sys/types.h>, which doesn't typedef boolean_t with gcc. */
110 #define boolean_t int
114 #include <synch.h> /* for UnixWare 2.x */
116 /* Prototypes for supply_gregset etc. */
119 /* Offset from SP to first arg on stack at first instruction of a
120 function. We provide a default here that's right for most, if not
121 all, targets that use this file. */
124 #define SP_ARG0 (1 * 4)
127 /* Whether to emit debugging output. */
131 /* Default debugging output file, overridden by envvar UWTHR_DEBUG. */
133 #define DEBUG_FILE "/dev/tty"
135 /* #if DEBUG, write string S to the debugging output channel. */
138 # define DBG(fmt_and_args)
139 # define DBG2(fmt_and_args)
141 # define DBG(fmt_and_args) dbg fmt_and_args
142 # define DBG2(fmt_and_args)
145 /* Back end to CALL_BASE() and TRY_BASE(): evaluate CALL, then convert
146 inferior_ptid to a composite thread/process id. */
148 #define CALL_BASE_1(call) \
150 DBG2(("CALL_BASE(" #call ")")); \
152 do_cleanups (infpid_cleanup); \
155 /* If inferior_ptid can be converted to a composite lwp/process id, do so,
156 evaluate base_ops function CALL, and then convert inferior_ptid back to a
157 composite thread/process id.
159 Otherwise, issue an error message and return nonlocally. */
161 #define CALL_BASE(call) \
163 if (!lwp_infpid ()) \
164 error ("uw-thread: no lwp"); \
165 CALL_BASE_1 (call); \
168 /* Like CALL_BASE(), but instead of returning nonlocally on error, set
169 *CALLED to whether the inferior_ptid conversion was successful. */
171 #define TRY_BASE(call, called) \
173 if ((*(called) = lwp_infpid ())) \
174 CALL_BASE_1 (call); \
177 /* Information passed by thread_iter() to its callback parameter. */
180 struct thread_map map
;
185 /* Private thread data for the thread_info struct. */
187 struct private_thread_info
{
188 int stable
; /* 0 if libthread.so is modifying thread map */
189 int thrid
; /* thread id assigned by libthread.so */
190 int lwpid
; /* thread's lwp if .stable, 0 means no lwp */
191 CORE_ADDR mapp
; /* address of thread's map structure */
195 /* procfs.c's target-specific operations. */
196 extern struct target_ops procfs_ops
;
198 /* Flag to prevent procfs.c from starting inferior processes. */
199 extern int procfs_suppress_run
;
201 /* This module's target-specific operations. */
202 static struct target_ops uw_thread_ops
;
204 /* Copy of the target over which uw_thread_ops is pushed. This is
205 more convenient than a pointer to procfs_ops or core_ops, because
206 they lack current_target's default callbacks. */
207 static struct target_ops base_ops
;
209 /* Saved pointer to previous owner of
210 deprecated_target_new_objfile_hook. */
211 static void (*target_new_objfile_chain
)(struct objfile
*);
213 /* Whether we are debugging a user-space thread program. This isn't
214 set until after libthread.so is loaded by the program being
217 Except for module one-time intialization and where otherwise
218 documented, no functions in this module get called when
219 !uw_thread_active. */
220 static int uw_thread_active
;
222 /* For efficiency, cache the addresses of libthread.so's _thr_debug
223 structure, its thr_brk stub function, and the main thread's map. */
224 static CORE_ADDR thr_debug_addr
;
225 static CORE_ADDR thr_brk_addr
;
226 static CORE_ADDR thr_map_main
;
228 /* Remember the thread most recently marked as switching. Necessary because
229 libthread.so passes null map when calling stub with tc_*_complete. */
230 static struct thread_info
*switchto_thread
;
232 /* Cleanup chain for safely restoring inferior_ptid after CALL_BASE. */
233 static struct cleanup
*infpid_cleanup
;
237 /* Helper function for DBG() macro: if printf-style FMT is non-null, format it
238 with args and display the result on the debugging output channel. */
243 static int fd
= -1, len
;
253 path
= getenv ("UWTHR_DEBUG");
256 if ((fd
= open (path
, O_WRONLY
| O_CREAT
| O_TRUNC
, 0664)) < 0)
257 error ("can't open %s\n", path
);
260 va_start (args
, fmt
);
261 vsprintf (buf
, fmt
, args
);
266 (void)write (fd
, buf
, len
+ 1);
270 /* Return a string representing composite PID's components. */
275 static char *buf
, buf1
[80], buf2
[80];
276 if (!buf
|| buf
== buf2
)
281 if (PIDGET (ptid
) <= 0)
282 sprintf (buf
, "%d", PIDGET (ptid
));
284 sprintf (buf
, "%s %ld/%d", ISTID (pid
) ? "thr" : "lwp",
285 TIDGET (pid
), PIDGET (pid
));
290 /* Return a string representing thread state CHANGE. */
293 dbgchange (enum thread_change change
)
296 case tc_invalid
: return "invalid";
297 case tc_thread_create
: return "thread_create";
298 case tc_thread_exit
: return "thread_exit";
299 case tc_switch_begin
: return "switch_begin";
300 case tc_switch_complete
: return "switch_complete";
301 case tc_cancel_complete
: return "cancel_complete";
302 case tc_thread_suspend
: return "thread_suspend";
303 case tc_thread_suspend_pending
: return "thread_suspend_pending";
304 case tc_thread_continue
: return "thread_continue";
305 default: return "unknown";
309 /* Return a string representing thread STATE. */
315 case TS_ONPROC
: return "running";
316 case TS_SLEEP
: return "sleeping";
317 case TS_RUNNABLE
: return "runnable";
318 case TS_ZOMBIE
: return "zombie";
319 case TS_SUSPENDED
: return "suspended";
321 case TS_FORK
: return "forking";
323 default: return "confused";
330 /* Read the contents of _thr_debug into *DEBUGP. Return success. */
333 read_thr_debug (struct thread_debug
*debugp
)
335 return base_ops
.to_xfer_memory (thr_debug_addr
, (char *)debugp
,
336 sizeof (*debugp
), 0, NULL
, &base_ops
);
339 /* Read into MAP the contents of the thread map at inferior process address
340 MAPP. Return success. */
343 read_map (CORE_ADDR mapp
, struct thread_map
*map
)
345 return base_ops
.to_xfer_memory ((CORE_ADDR
)THR_MAP (mapp
), (char *)map
,
346 sizeof (*map
), 0, NULL
, &base_ops
);
349 /* Read into LWP the contents of the lwp decriptor at inferior process address
350 LWPP. Return success. */
353 read_lwp (CORE_ADDR lwpp
, __lwp_desc_t
*lwp
)
355 return base_ops
.to_xfer_memory (lwpp
, (char *)lwp
,
356 sizeof (*lwp
), 0, NULL
, &base_ops
);
359 /* Iterate through all user threads, applying FUNC(<map>, <lwp>, DATA) until
360 (a) FUNC returns nonzero,
361 (b) FUNC has been applied to all threads, or
363 where <map> is the thread's struct thread_map and <lwp> if non-null is the
364 thread's current __lwp_desc_t.
366 If a call to FUNC returns nonzero, return that value; otherwise, return 0. */
369 thread_iter (int (*func
)(iter_t
*, void *), void *data
)
371 struct thread_debug debug
;
372 CORE_ADDR first
, mapp
;
376 if (!read_thr_debug (&debug
))
378 if (!base_ops
.to_xfer_memory ((CORE_ADDR
)debug
.thr_map
, (char *)&mapp
,
379 sizeof (mapp
), 0, NULL
, &base_ops
))
386 if (!read_map (mapp
, &iter
.map
))
389 if (iter
.map
.thr_lwpp
)
390 if (!read_lwp ((CORE_ADDR
)iter
.map
.thr_lwpp
, &iter
.lwp
))
394 if ((ret
= func (&iter
, data
)))
397 mapp
= (CORE_ADDR
)iter
.map
.thr_next
;
403 /* Deactivate user-mode thread support. */
406 deactivate_uw_thread (void)
408 remove_thread_event_breakpoints ();
409 uw_thread_active
= 0;
410 unpush_target (&uw_thread_ops
);
413 /* Return the composite lwp/process id corresponding to composite
414 id PID. If PID is a thread with no lwp, return 0. */
417 thr_to_lwp (ptid_t ptid
)
419 struct thread_info
*info
;
424 else if (!(info
= find_thread_pid (ptid
)))
426 else if (!info
->private->lwpid
)
429 lid
= MKLID (PIDGET (ptid
), info
->private->lwpid
);
431 DBG2((" thr_to_lwp(%s) = %s", dbgpid (pid
), dbgpid (lid
)));
435 /* find_thread_lwp() callback: return whether TP describes a thread
436 associated with lwp id DATA. */
439 find_thread_lwp_callback (struct thread_info
*tp
, void *data
)
441 int lwpid
= (int)data
;
443 if (!ISTID (tp
->ptid
))
445 if (!tp
->private->stable
)
447 if (lwpid
!= tp
->private->lwpid
)
454 /* If a thread is associated with lwp id LWPID, return the corresponding
455 member of the global thread list; otherwise, return null. */
457 static struct thread_info
*
458 find_thread_lwp (int lwpid
)
460 return iterate_over_threads (find_thread_lwp_callback
, (void *)lwpid
);
463 /* Return the composite thread/process id corresponding to composite
464 id PID. If PID is an lwp with no thread, return PID. */
467 lwp_to_thr (ptid_t ptid
)
469 struct thread_info
*info
;
475 if (!(lwpid
= LIDGET (ptid
)))
477 if (!(info
= find_thread_lwp (lwpid
)))
479 tid
= MKTID (PIDGET (ptid
), info
->private->thrid
);
482 DBG2((ISTID (tid
) ? NULL
: "lwp_to_thr: no thr for %s", dbgpid (ptid
)));
486 /* do_cleanups() callback: convert inferior_ptid to a composite
487 thread/process id after having made a procfs call. */
490 thr_infpid (void *unused
)
492 ptid_t ptid
= lwp_to_thr (inferior_ptid
);
493 DBG2((" inferior_ptid from procfs: %s => %s",
494 dbgpid (inferior_ptid
), dbgpid (ptid
)));
495 inferior_ptid
= ptid
;
498 /* If possible, convert inferior_ptid to a composite lwp/process id in
499 preparation for making a procfs call. Return success. */
504 ptid_t ptid
= thr_to_lwp (inferior_ptid
);
505 DBG2((" inferior_ptid to procfs: %s => %s",
506 dbgpid (inferior_ptid
), dbgpid (ptid
)));
508 if (ptid_equal (ptid
, null_ptid
))
511 inferior_ptid
= ptid
;
512 infpid_cleanup
= make_cleanup (thr_infpid
, NULL
);
516 /* Add to the global thread list a new user-mode thread with system id THRID,
517 lwp id LWPID, map address MAPP, and composite thread/process PID. */
520 add_thread_uw (int thrid
, int lwpid
, CORE_ADDR mapp
, ptid_t ptid
)
522 struct thread_info
*newthread
;
524 if ((newthread
= add_thread (ptid
)) == NULL
)
525 error ("failed to create new thread structure");
527 newthread
->private = xmalloc (sizeof (struct private_thread_info
));
528 newthread
->private->stable
= 1;
529 newthread
->private->thrid
= thrid
;
530 newthread
->private->lwpid
= lwpid
;
531 newthread
->private->mapp
= mapp
;
533 if (target_has_execution
)
534 printf_unfiltered ("[New %s]\n", target_pid_to_str (ptid
));
537 /* notice_threads() and find_main() callback: if the thread list doesn't
538 already contain the thread described by ITER, add it if it's the main
539 thread or if !DATA. */
542 notice_thread (iter_t
*iter
, void *data
)
544 int thrid
= iter
->map
.thr_tid
;
545 int lwpid
= !iter
->map
.thr_lwpp
? 0 : iter
->lwp
.lwp_id
;
546 ptid_t ptid
= MKTID (PIDGET (inferior_ptid
), thrid
);
548 if (!find_thread_pid (ptid
) && (!data
|| thrid
== 1))
549 add_thread_uw (thrid
, lwpid
, iter
->mapp
, ptid
);
554 /* Add to the thread list any threads it doesn't already contain. */
557 notice_threads (void)
559 thread_iter (notice_thread
, NULL
);
562 /* Return the address of the main thread's map. On error, return 0. */
569 struct thread_info
*info
;
570 thread_iter (notice_thread
, (void *)1);
571 if ((info
= find_thread_pid (MKTID (PIDGET (inferior_ptid
), 1))))
572 thr_map_main
= info
->private->mapp
;
577 /* Attach to process specified by ARGS, then initialize for debugging it
578 and wait for the trace-trap that results from attaching.
580 This function only gets called with uw_thread_active == 0. */
583 uw_thread_attach (char *args
, int from_tty
)
585 procfs_ops
.to_attach (args
, from_tty
);
586 if (uw_thread_active
)
590 /* Detach from the process attached to by uw_thread_attach(). */
593 uw_thread_detach (char *args
, int from_tty
)
595 deactivate_uw_thread ();
596 base_ops
.to_detach (args
, from_tty
);
599 /* Tell the inferior process to continue running thread PID if >= 0
600 and all threads otherwise. */
603 uw_thread_resume (ptid_t ptid
, int step
, enum target_signal signo
)
605 if (PIDGET (ptid
) > 0)
607 ptid
= thr_to_lwp (ptid
);
608 if (ptid_equal (ptid
, null_ptid
))
609 ptid
= pid_to_ptid (-1);
612 CALL_BASE (base_ops
.to_resume (ptid
, step
, signo
));
615 /* If the trap we just received from lwp PID was due to a breakpoint
616 on the libthread.so debugging stub, update this module's state
620 libthread_stub (ptid_t ptid
)
622 CORE_ADDR sp
, mapp
, mapp_main
;
623 enum thread_change change
;
624 struct thread_map map
;
627 ptid_t tid
= null_ptid
;
628 struct thread_info
*info
;
630 /* Check for stub breakpoint. */
631 if (read_pc_pid (ptid
) - DECR_PC_AFTER_BREAK
!= thr_brk_addr
)
634 /* Retrieve stub args. */
635 sp
= read_register_pid (SP_REGNUM
, ptid
);
636 if (!base_ops
.to_xfer_memory (sp
+ SP_ARG0
, (char *)&mapp
,
637 sizeof (mapp
), 0, NULL
, &base_ops
))
639 if (!base_ops
.to_xfer_memory (sp
+ SP_ARG0
+ sizeof (mapp
), (char *)&change
,
640 sizeof (change
), 0, NULL
, &base_ops
))
643 /* create_inferior() may not have finished yet, so notice the main
644 thread to ensure that it's displayed first by add_thread(). */
645 mapp_main
= find_main ();
647 /* Notice thread creation, deletion, or stability change. */
649 case tc_switch_begin
:
650 if (!mapp
) /* usually means main thread */
654 case tc_thread_create
:
658 if (!read_map (mapp
, &map
))
660 tid
= MKTID (PIDGET (ptid
), map
.thr_tid
);
663 case tc_thread_create
: /* new thread */
666 else if (!read_lwp ((CORE_ADDR
)map
.thr_lwpp
, &lwp
))
670 add_thread_uw (map
.thr_tid
, lwpid
, mapp
, tid
);
673 case tc_thread_exit
: /* thread has exited */
674 printf_unfiltered ("[Exited %s]\n", target_pid_to_str (tid
));
676 if (ptid_equal (tid
, inferior_ptid
))
677 inferior_ptid
= ptid
;
680 case tc_switch_begin
: /* lwp is switching threads */
683 if (!(switchto_thread
= find_thread_pid (tid
)))
685 switchto_thread
->private->stable
= 0;
693 case tc_switch_complete
: /* lwp has switched threads */
694 case tc_cancel_complete
: /* lwp didn't switch threads */
695 if (!switchto_thread
)
698 if (change
== tc_switch_complete
)
700 /* If switchto_thread is the main thread, then (a) the corresponding
701 tc_switch_begin probably received a null map argument and therefore
702 (b) it may have been a spurious switch following a tc_thread_exit.
704 Therefore, explicitly query the thread's lwp before caching it in
705 its thread list entry. */
707 if (!read_map (switchto_thread
->private->mapp
, &map
))
711 if (!read_lwp ((CORE_ADDR
)map
.thr_lwpp
, &lwp
))
713 if ((info
= find_thread_lwp (lwp
.lwp_id
)))
714 info
->private->lwpid
= 0;
715 switchto_thread
->private->lwpid
= lwp
.lwp_id
;
719 switchto_thread
->private->stable
= 1;
720 switchto_thread
= NULL
;
724 case tc_thread_suspend
:
725 case tc_thread_suspend_pending
:
726 case tc_thread_continue
:
728 DBG(("unexpected condition in libthread_stub()"));
732 DBG2(("libthread_stub(%s): %s %s %s", dbgpid (pid
), dbgpid (tid
),
733 dbgchange (change
), tid
? dbgstate (map
.thr_state
) : ""));
736 /* Wait for thread/lwp/process ID if >= 0 or for any thread otherwise. */
739 uw_thread_wait (ptid_t ptid
, struct target_waitstatus
*status
)
741 if (PIDGET (ptid
) > 0)
742 ptid
= thr_to_lwp (ptid
);
743 if (PIDGET (ptid
) <= 0)
744 ptid
= pid_to_ptid (-1);
746 CALL_BASE (ptid
= base_ops
.to_wait (ptid
, status
));
748 if (status
->kind
== TARGET_WAITKIND_STOPPED
&&
749 status
->value
.sig
== TARGET_SIGNAL_TRAP
)
750 libthread_stub (ptid
);
752 return lwp_to_thr (ptid
);
755 /* Tell gdb about the registers in the thread/lwp/process specified by
759 uw_thread_fetch_registers (int regno
)
762 struct thread_info
*info
;
763 struct thread_map map
;
765 TRY_BASE (base_ops
.to_fetch_registers (regno
), &called
);
769 if (!(info
= find_thread_pid (inferior_ptid
)))
771 if (!read_map (info
->private->mapp
, &map
))
774 supply_gregset (&map
.thr_ucontext
.uc_mcontext
.gregs
);
775 supply_fpregset (&map
.thr_ucontext
.uc_mcontext
.fpregs
);
778 /* Store gdb's current view of the register set into the thread/lwp/process
779 specified by inferior_ptid. */
782 uw_thread_store_registers (int regno
)
784 CALL_BASE (base_ops
.to_store_registers (regno
));
787 /* Prepare to modify the registers array. */
790 uw_thread_prepare_to_store (void)
792 CALL_BASE (base_ops
.to_prepare_to_store ());
795 /* Fork an inferior process and start debugging it.
797 This function only gets called with uw_thread_active == 0. */
800 uw_thread_create_inferior (char *exec_file
, char *allargs
, char **env
,
803 if (uw_thread_active
)
804 deactivate_uw_thread ();
806 procfs_ops
.to_create_inferior (exec_file
, allargs
, env
, from_tty
);
807 if (uw_thread_active
)
814 /* Kill and forget about the inferior process. */
817 uw_thread_kill (void)
822 /* Clean up after the inferior exits. */
825 uw_thread_mourn_inferior (void)
827 deactivate_uw_thread ();
828 base_ops
.to_mourn_inferior ();
831 /* Return whether this module can attach to and run processes.
833 This function only gets called with uw_thread_active == 0. */
836 uw_thread_can_run (void)
838 return procfs_suppress_run
;
841 /* Return whether thread PID is still valid. */
844 uw_thread_alive (ptid_t ptid
)
847 return base_ops
.to_thread_alive (ptid
);
849 /* If it's in the thread list, it's valid, because otherwise
850 libthread_stub() would have deleted it. */
851 return in_thread_list (ptid
);
854 /* Add to the thread list any threads and lwps it doesn't already contain. */
857 uw_thread_find_new_threads (void)
859 CALL_BASE (if (base_ops
.to_find_new_threads
)
860 base_ops
.to_find_new_threads ());
864 /* Return a string for pretty-printing PID in "info threads" output.
865 This may be called by either procfs.c or by generic gdb. */
868 uw_thread_pid_to_str (ptid_t ptid
)
870 #define FMT "Thread %ld"
871 static char buf
[sizeof (FMT
) + 3 * sizeof (long)];
874 /* core_ops says "process foo", so call procfs_ops explicitly. */
875 return procfs_ops
.to_pid_to_str (ptid
);
877 sprintf (buf
, FMT
, TIDGET (ptid
));
882 /* Return a string displaying INFO state information in "info threads"
886 uw_extra_thread_info (struct thread_info
*info
)
889 struct thread_map map
;
894 if (!ISTID (info
->ptid
))
897 if (!info
->private->stable
)
900 if (!read_map (info
->private->mapp
, &map
))
903 if (!map
.thr_lwpp
|| !read_lwp ((CORE_ADDR
)map
.thr_lwpp
, &lwp
))
908 switch (map
.thr_state
) {
909 case TS_ONPROC
: name
= "running"; break;
910 case TS_SLEEP
: name
= "sleeping"; break;
911 case TS_RUNNABLE
: name
= "runnable"; break;
912 case TS_ZOMBIE
: name
= "zombie"; break;
913 case TS_SUSPENDED
: name
= "suspended"; break;
915 case TS_FORK
: name
= "forking"; break;
917 default: name
= "confused"; break;
923 sprintf (buf
, "%s, LWP %d", name
, lwpid
);
927 /* Check whether libthread.so has just been loaded, and if so, try to
928 initialize user-space thread debugging support.
930 libthread.so loading happens while (a) an inferior process is being
931 started by procfs and (b) a core image is being loaded.
933 This function often gets called with uw_thread_active == 0. */
936 libthread_init (void)
938 struct minimal_symbol
*ms
;
939 struct thread_debug debug
;
941 struct breakpoint
*b
;
944 /* Don't initialize twice. */
945 if (uw_thread_active
)
948 /* Check whether libthread.so has been loaded. */
949 if (!(ms
= lookup_minimal_symbol ("_thr_debug", NULL
, NULL
)))
952 /* Cache _thr_debug's address. */
953 if (!(thr_debug_addr
= SYMBOL_VALUE_ADDRESS (ms
)))
956 /* Initialize base_ops.to_xfer_memory(). */
957 base_ops
= current_target
;
959 /* Load _thr_debug's current contents. */
960 if (!read_thr_debug (&debug
))
963 /* User code (e.g. my test programs) may dereference _thr_debug,
964 making it availble to GDB before shared libs are loaded. */
968 /* libthread.so has been loaded, and the current_target should now
969 reflect core_ops or procfs_ops. */
970 push_target (&uw_thread_ops
); /* must precede notice_threads() */
971 uw_thread_active
= 1;
973 if (!target_has_execution
)
975 /* Locate threads in core file. */
980 /* Set a breakpoint on the stub function provided by libthread.so. */
981 thr_brk_addr
= (CORE_ADDR
)debug
.thr_brk
;
982 if (!(b
= create_thread_event_breakpoint (thr_brk_addr
)))
985 /* Activate the stub function. */
986 onp
= (CORE_ADDR
)&((struct thread_debug
*)thr_debug_addr
)->thr_debug_on
;
987 if (!base_ops
.to_xfer_memory ((CORE_ADDR
)onp
, (char *)&one
,
988 sizeof (one
), 1, NULL
, &base_ops
))
990 delete_breakpoint (b
);
994 /* Prepare for finding the main thread, which doesn't yet exist. */
1001 warning ("uw-thread: unable to initialize user-mode thread debugging\n");
1002 deactivate_uw_thread ();
1005 /* deprecated_target_new_objfile_hook callback.
1007 If OBJFILE is non-null, check whether libthread.so was just loaded,
1008 and if so, prepare for user-mode thread debugging.
1010 If OBJFILE is null, libthread.so has gone away, so stop debugging
1013 This function often gets called with uw_thread_active == 0. */
1016 uw_thread_new_objfile (struct objfile
*objfile
)
1021 else if (uw_thread_active
)
1022 deactivate_uw_thread ();
1024 if (target_new_objfile_chain
)
1025 target_new_objfile_chain (objfile
);
1028 /* Initialize uw_thread_ops. */
1031 init_uw_thread_ops (void)
1033 uw_thread_ops
.to_shortname
= "unixware-threads";
1034 uw_thread_ops
.to_longname
= "UnixWare threads and pthread.";
1035 uw_thread_ops
.to_doc
= "UnixWare threads and pthread support.";
1036 uw_thread_ops
.to_attach
= uw_thread_attach
;
1037 uw_thread_ops
.to_detach
= uw_thread_detach
;
1038 uw_thread_ops
.to_resume
= uw_thread_resume
;
1039 uw_thread_ops
.to_wait
= uw_thread_wait
;
1040 uw_thread_ops
.to_fetch_registers
= uw_thread_fetch_registers
;
1041 uw_thread_ops
.to_store_registers
= uw_thread_store_registers
;
1042 uw_thread_ops
.to_prepare_to_store
= uw_thread_prepare_to_store
;
1043 uw_thread_ops
.to_create_inferior
= uw_thread_create_inferior
;
1044 uw_thread_ops
.to_kill
= uw_thread_kill
;
1045 uw_thread_ops
.to_mourn_inferior
= uw_thread_mourn_inferior
;
1046 uw_thread_ops
.to_can_run
= uw_thread_can_run
;
1047 uw_thread_ops
.to_thread_alive
= uw_thread_alive
;
1048 uw_thread_ops
.to_find_new_threads
= uw_thread_find_new_threads
;
1049 uw_thread_ops
.to_pid_to_str
= uw_thread_pid_to_str
;
1050 uw_thread_ops
.to_extra_thread_info
= uw_extra_thread_info
;
1051 uw_thread_ops
.to_stratum
= thread_stratum
;
1052 uw_thread_ops
.to_magic
= OPS_MAGIC
;
1055 /* Module startup initialization function, automagically called by
1059 _initialize_uw_thread (void)
1061 init_uw_thread_ops ();
1062 add_target (&uw_thread_ops
);
1064 procfs_suppress_run
= 1;
1066 /* Notice when libthread.so gets loaded. */
1067 target_new_objfile_chain
= deprecated_target_new_objfile_hook
;
1068 deprecated_target_new_objfile_hook
= uw_thread_new_objfile
;