2003-08-22 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / nptl_db / td_ta_set_event.c
1 /* Globally enable events.
2    Copyright (C) 1999,2001,2002,2003 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4    Contributed by Ulrich Drepper <drepper@redhat.com>, 1999.
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Lesser General Public
8    License as published by the Free Software Foundation; either
9    version 2.1 of the License, or (at your option) any later version.
10
11    The GNU C Library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15
16    You should have received a copy of the GNU Lesser General Public
17    License along with the GNU C Library; if not, write to the Free
18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19    02111-1307 USA.  */
20
21 #include "thread_dbP.h"
22
23
24 td_err_e
25 td_ta_set_event (ta_arg, event)
26      const td_thragent_t *ta_arg;
27      td_thr_events_t *event;
28 {
29   td_thragent_t *const ta = (td_thragent_t *) ta_arg;
30   td_err_e err;
31   psaddr_t eventmask;
32   void *copy;
33
34   LOG ("td_ta_set_event");
35
36   /* Test whether the TA parameter is ok.  */
37   if (! ta_ok (ta))
38     return TD_BADTA;
39
40   /* Fetch the old event mask from the inferior and modify it in place.  */
41   err = DB_GET_SYMBOL (eventmask, ta, __nptl_threads_events);
42   if (err == TD_OK)
43     err = DB_GET_STRUCT (copy, ta, eventmask, td_thr_events_t);
44   if (err == TD_OK)
45     {
46       uint32_t idx;
47       for (idx = 0; idx < TD_EVENTSIZE; ++idx)
48         {
49           psaddr_t word;
50           uint32_t mask;
51           err = DB_GET_FIELD_LOCAL (word, ta, copy,
52                                     td_thr_events_t, event_bits, idx);
53           if (err != TD_OK)
54             break;
55           mask = (uintptr_t) word;
56           mask |= event->event_bits[idx];
57           word = (psaddr_t) (uintptr_t) mask;
58           err = DB_PUT_FIELD_LOCAL (ta, copy,
59                                     td_thr_events_t, event_bits, idx, word);
60           if (err != TD_OK)
61             break;
62         }
63       if (err == TD_NOAPLIC)
64         {
65           err = TD_OK;
66           while (idx < TD_EVENTSIZE)
67             if (event->event_bits[idx++] != 0)
68               {
69                 err = TD_NOEVENT;
70                 break;
71               }
72         }
73       if (err == TD_OK)
74         /* Now write it back to the inferior.  */
75         err = DB_PUT_STRUCT (ta, eventmask, td_thr_events_t, copy);
76     }
77
78   return err;
79 }