Merge branch 'vendor/ELFTOOLCHAIN'
[dragonfly.git] / contrib / gdb-7 / gdb / python / py-threadevent.c
1 /* Copyright (C) 2009-2013 Free Software Foundation, Inc.
2
3    This file is part of GDB.
4
5    This program is free software; you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 3 of the License, or
8    (at your option) any later version.
9
10    This program 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
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18 #include "defs.h"
19 #include "py-event.h"
20
21 /* thread events can either be thread specific or process wide.  If gdb is
22    running in non-stop mode then the event is thread specific, otherwise
23    it is process wide.
24    This function returns the currently stopped thread in non-stop mode and
25    Py_None otherwise.  In each case it returns a borrowed reference.  */
26
27 static PyObject *
28 get_event_thread (void)
29 {
30   PyObject *thread = NULL;
31
32   if (non_stop)
33     thread = (PyObject *) find_thread_object (inferior_ptid);
34   else
35     thread = Py_None;
36
37   if (!thread)
38     {
39       PyErr_SetString (PyExc_RuntimeError, "Could not find event thread");
40       return NULL;
41     }
42
43   return thread;
44 }
45
46 PyObject *
47 create_thread_event_object (PyTypeObject *py_type)
48 {
49   PyObject *thread = NULL;
50   PyObject *thread_event_obj = NULL;
51
52   thread_event_obj = create_event_object (py_type);
53   if (!thread_event_obj)
54     goto fail;
55
56   thread = get_event_thread ();
57   if (!thread)
58     goto fail;
59
60   if (evpy_add_attribute (thread_event_obj,
61                           "inferior_thread",
62                           thread) < 0)
63     goto fail;
64
65   return thread_event_obj;
66
67   fail:
68    Py_XDECREF (thread_event_obj);
69    return NULL;
70 }
71
72 GDBPY_NEW_EVENT_TYPE (thread,
73                       "gdb.ThreadEvent",
74                       "ThreadEvent",
75                       "GDB thread event object",
76                       event_object_type,
77                       /*no qual*/);