1 /* Python interface to inferior function events.
3 Copyright (C) 2013-2016 Free Software Foundation, Inc.
5 This file is part of GDB.
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.
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.
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/>. */
23 extern PyTypeObject inferior_call_pre_event_object_type
24 CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
25 extern PyTypeObject inferior_call_post_event_object_type
26 CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
27 extern PyTypeObject register_changed_event_object_type
28 CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
29 extern PyTypeObject memory_changed_event_object_type
30 CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
32 /* Construct either a gdb.InferiorCallPreEvent or a
33 gdb.InferiorCallPostEvent. */
36 create_inferior_call_event_object (inferior_call_kind flag
, ptid_t ptid
,
42 PyObject
*ptid_obj
= NULL
;
43 PyObject
*addr_obj
= NULL
;
45 struct cleanup
*cleanups
;
46 struct cleanup
*member_cleanups
;
50 case INFERIOR_CALL_PRE
:
51 event
= create_event_object (&inferior_call_pre_event_object_type
);
53 case INFERIOR_CALL_POST
:
54 event
= create_event_object (&inferior_call_post_event_object_type
);
60 cleanups
= make_cleanup_py_decref (event
);
62 ptid_obj
= gdbpy_create_ptid_object (ptid
);
65 member_cleanups
= make_cleanup_py_decref (ptid_obj
);
67 failed
= evpy_add_attribute (event
, "ptid", ptid_obj
) < 0;
71 addr_obj
= PyLong_FromLongLong (addr
);
74 make_cleanup_py_decref (addr_obj
);
76 failed
= evpy_add_attribute (event
, "address", addr_obj
) < 0;
80 do_cleanups (member_cleanups
);
81 discard_cleanups (cleanups
);
85 do_cleanups (cleanups
);
89 /* Construct a gdb.RegisterChangedEvent containing the affected
93 create_register_changed_event_object (struct frame_info
*frame
,
97 PyObject
*frame_obj
= NULL
;
98 PyObject
*regnum_obj
= NULL
;
100 struct cleanup
*cleanups
;
101 struct cleanup
*member_cleanups
;
103 event
= create_event_object (®ister_changed_event_object_type
);
107 cleanups
= make_cleanup_py_decref (event
);
109 frame_obj
= frame_info_to_frame_object (frame
);
110 if (frame_obj
== NULL
)
112 member_cleanups
= make_cleanup_py_decref (frame_obj
);
114 failed
= evpy_add_attribute (event
, "frame", frame_obj
) < 0;
118 regnum_obj
= PyLong_FromLongLong (regnum
);
119 if (regnum_obj
== NULL
)
121 make_cleanup_py_decref (regnum_obj
);
123 failed
= evpy_add_attribute (event
, "regnum", regnum_obj
) < 0;
127 do_cleanups (member_cleanups
);
128 discard_cleanups (cleanups
);
132 do_cleanups (cleanups
);
136 /* Construct a gdb.MemoryChangedEvent describing the extent of the
140 create_memory_changed_event_object (CORE_ADDR addr
, ssize_t len
)
143 PyObject
*addr_obj
= NULL
;
144 PyObject
*len_obj
= NULL
;
146 struct cleanup
*cleanups
;
147 struct cleanup
*member_cleanups
;
149 event
= create_event_object (&memory_changed_event_object_type
);
153 cleanups
= make_cleanup_py_decref (event
);
155 addr_obj
= PyLong_FromLongLong (addr
);
156 if (addr_obj
== NULL
)
158 member_cleanups
= make_cleanup_py_decref (addr_obj
);
160 failed
= evpy_add_attribute (event
, "address", addr_obj
) < 0;
164 len_obj
= PyLong_FromLong (len
);
167 make_cleanup_py_decref (len_obj
);
169 failed
= evpy_add_attribute (event
, "length", len_obj
) < 0;
173 do_cleanups (member_cleanups
);
174 discard_cleanups (cleanups
);
178 do_cleanups (cleanups
);
182 /* Callback function which notifies observers when an event occurs which
183 calls a function in the inferior.
184 This function will create a new Python inferior-call event object.
185 Return -1 if emit fails. */
188 emit_inferior_call_event (inferior_call_kind flag
, ptid_t thread
,
193 if (evregpy_no_listeners_p (gdb_py_events
.inferior_call
))
196 event
= create_inferior_call_event_object (flag
, thread
, addr
);
198 return evpy_emit_event (event
, gdb_py_events
.inferior_call
);
202 /* Callback when memory is modified by the user. This function will
203 create a new Python memory changed event object. */
206 emit_memory_changed_event (CORE_ADDR addr
, ssize_t len
)
210 if (evregpy_no_listeners_p (gdb_py_events
.memory_changed
))
213 event
= create_memory_changed_event_object (addr
, len
);
215 return evpy_emit_event (event
, gdb_py_events
.memory_changed
);
219 /* Callback when a register is modified by the user. This function
220 will create a new Python register changed event object. */
223 emit_register_changed_event (struct frame_info
* frame
, int regnum
)
227 if (evregpy_no_listeners_p (gdb_py_events
.register_changed
))
230 event
= create_register_changed_event_object (frame
, regnum
);
232 return evpy_emit_event (event
, gdb_py_events
.register_changed
);
237 GDBPY_NEW_EVENT_TYPE (inferior_call_pre
,
238 "gdb.InferiorCallPreEvent",
239 "InferiorCallPreEvent",
240 "GDB inferior function pre-call event object",
243 GDBPY_NEW_EVENT_TYPE (inferior_call_post
,
244 "gdb.InferiorCallPostEvent",
245 "InferiorCallPostEvent",
246 "GDB inferior function post-call event object",
249 GDBPY_NEW_EVENT_TYPE (register_changed
,
250 "gdb.RegisterChangedEvent",
251 "RegisterChangedEvent",
252 "GDB register change event object",
255 GDBPY_NEW_EVENT_TYPE (memory_changed
,
256 "gdb.MemoryChangedEvent",
257 "MemoryChangedEvent",
258 "GDB memory change event object",