Commit | Line | Data |
---|---|---|
c17a9e46 HZ |
1 | /* Python interface to inferior breakpoint stop events. |
2 | ||
0b302171 | 3 | Copyright (C) 2009-2012 Free Software Foundation, Inc. |
c17a9e46 HZ |
4 | |
5 | This file is part of GDB. | |
6 | ||
7 | This program is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
9 | the Free Software Foundation; either version 3 of the License, or | |
10 | (at your option) any later version. | |
11 | ||
12 | This program is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |
19 | ||
20 | #include "py-stopevent.h" | |
21 | ||
22 | static PyTypeObject breakpoint_event_object_type; | |
23 | ||
db6573d6 TT |
24 | /* Create and initialize a BreakpointEvent object. This acquires new |
25 | references to BREAKPOINT_LIST and FIRST_BP. */ | |
c17a9e46 HZ |
26 | |
27 | PyObject * | |
6839b47f | 28 | create_breakpoint_event_object (PyObject *breakpoint_list, PyObject *first_bp) |
c17a9e46 HZ |
29 | { |
30 | PyObject *breakpoint_event_obj = | |
31 | create_stop_event_object (&breakpoint_event_object_type); | |
32 | ||
33 | if (!breakpoint_event_obj) | |
34 | goto fail; | |
35 | ||
36 | if (evpy_add_attribute (breakpoint_event_obj, | |
37 | "breakpoint", | |
6839b47f KP |
38 | first_bp) < 0) |
39 | goto fail; | |
40 | if (evpy_add_attribute (breakpoint_event_obj, | |
41 | "breakpoints", | |
42 | breakpoint_list) < 0) | |
c17a9e46 HZ |
43 | goto fail; |
44 | ||
45 | return breakpoint_event_obj; | |
46 | ||
47 | fail: | |
48 | Py_XDECREF (breakpoint_event_obj); | |
49 | return NULL; | |
50 | } | |
51 | ||
52 | GDBPY_NEW_EVENT_TYPE (breakpoint, | |
53 | "gdb.BreakpointEvent", | |
54 | "BreakpointEvent", | |
55 | "GDB breakpoint stop event object", | |
56 | stop_event_object_type, | |
57 | static); |