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