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 | ||
d071a26b | 20 | #include "defs.h" |
c17a9e46 HZ |
21 | #include "py-stopevent.h" |
22 | ||
23 | static PyTypeObject breakpoint_event_object_type; | |
24 | ||
db6573d6 TT |
25 | /* Create and initialize a BreakpointEvent object. This acquires new |
26 | references to BREAKPOINT_LIST and FIRST_BP. */ | |
c17a9e46 HZ |
27 | |
28 | PyObject * | |
6839b47f | 29 | create_breakpoint_event_object (PyObject *breakpoint_list, PyObject *first_bp) |
c17a9e46 HZ |
30 | { |
31 | PyObject *breakpoint_event_obj = | |
32 | create_stop_event_object (&breakpoint_event_object_type); | |
33 | ||
34 | if (!breakpoint_event_obj) | |
35 | goto fail; | |
36 | ||
37 | if (evpy_add_attribute (breakpoint_event_obj, | |
38 | "breakpoint", | |
6839b47f KP |
39 | first_bp) < 0) |
40 | goto fail; | |
41 | if (evpy_add_attribute (breakpoint_event_obj, | |
42 | "breakpoints", | |
43 | breakpoint_list) < 0) | |
c17a9e46 HZ |
44 | goto fail; |
45 | ||
46 | return breakpoint_event_obj; | |
47 | ||
48 | fail: | |
49 | Py_XDECREF (breakpoint_event_obj); | |
50 | return NULL; | |
51 | } | |
52 | ||
53 | GDBPY_NEW_EVENT_TYPE (breakpoint, | |
54 | "gdb.BreakpointEvent", | |
55 | "BreakpointEvent", | |
56 | "GDB breakpoint stop event object", | |
57 | stop_event_object_type, | |
58 | static); |