gdb/python/py-infevents.c - gdb
Functions defined
Source code
- #include "defs.h"
- #include "py-event.h"
- static PyTypeObject inferior_call_pre_event_object_type
- CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
- static PyTypeObject inferior_call_post_event_object_type
- CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
- static PyTypeObject register_changed_event_object_type
- CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
- static PyTypeObject memory_changed_event_object_type
- CPYCHECKER_TYPE_OBJECT_FOR_TYPEDEF ("event_object");
- static PyObject *
- create_inferior_call_event_object (inferior_call_kind flag, ptid_t ptid,
- CORE_ADDR addr)
- {
- int pid;
- long tid, lwp;
- PyObject *event;
- PyObject *ptid_obj = NULL;
- PyObject *addr_obj = NULL;
- int failed;
- struct cleanup *cleanups;
- struct cleanup *member_cleanups;
- switch (flag)
- {
- case INFERIOR_CALL_PRE:
- event = create_event_object (&inferior_call_pre_event_object_type);
- break;
- case INFERIOR_CALL_POST:
- event = create_event_object (&inferior_call_post_event_object_type);
- break;
- default:
- return NULL;
- }
- cleanups = make_cleanup_py_decref (event);
- ptid_obj = gdbpy_create_ptid_object (ptid);
- if (ptid_obj == NULL)
- goto fail;
- member_cleanups = make_cleanup_py_decref (ptid_obj);
- failed = evpy_add_attribute (event, "ptid", ptid_obj) < 0;
- if (failed)
- goto fail;
- addr_obj = PyLong_FromLongLong (addr);
- if (addr_obj == NULL)
- goto fail;
- make_cleanup_py_decref (addr_obj);
- failed = evpy_add_attribute (event, "address", addr_obj) < 0;
- if (failed)
- goto fail;
- do_cleanups (member_cleanups);
- discard_cleanups (cleanups);
- return event;
- fail:
- do_cleanups (cleanups);
- return NULL;
- }
- static PyObject *
- create_register_changed_event_object (struct frame_info *frame,
- int regnum)
- {
- PyObject *event;
- PyObject *frame_obj = NULL;
- PyObject *regnum_obj = NULL;
- int failed;
- struct cleanup *cleanups;
- struct cleanup *member_cleanups;
- event = create_event_object (®ister_changed_event_object_type);
- if (event == NULL)
- return NULL;
- cleanups = make_cleanup_py_decref (event);
- frame_obj = frame_info_to_frame_object (frame);
- if (frame_obj == NULL)
- goto fail;
- member_cleanups = make_cleanup_py_decref (frame_obj);
- failed = evpy_add_attribute (event, "frame", frame_obj) < 0;
- if (failed)
- goto fail;
- regnum_obj = PyLong_FromLongLong (regnum);
- if (regnum_obj == NULL)
- goto fail;
- make_cleanup_py_decref (regnum_obj);
- failed = evpy_add_attribute (event, "regnum", regnum_obj) < 0;
- if (failed)
- goto fail;
- do_cleanups (member_cleanups);
- discard_cleanups (cleanups);
- return event;
- fail:
- do_cleanups (cleanups);
- return NULL;
- }
- static PyObject *
- create_memory_changed_event_object (CORE_ADDR addr, ssize_t len)
- {
- PyObject *event;
- PyObject *addr_obj = NULL;
- PyObject *len_obj = NULL;
- int failed;
- struct cleanup *cleanups;
- struct cleanup *member_cleanups;
- event = create_event_object (&memory_changed_event_object_type);
- if (event == NULL)
- return NULL;
- cleanups = make_cleanup_py_decref (event);
- addr_obj = PyLong_FromLongLong (addr);
- if (addr_obj == NULL)
- goto fail;
- member_cleanups = make_cleanup_py_decref (addr_obj);
- failed = evpy_add_attribute (event, "address", addr_obj) < 0;
- if (failed)
- goto fail;
- len_obj = PyLong_FromLong (len);
- if (len_obj == NULL)
- goto fail;
- make_cleanup_py_decref (len_obj);
- failed = evpy_add_attribute (event, "length", len_obj) < 0;
- if (failed)
- goto fail;
- do_cleanups (member_cleanups);
- discard_cleanups (cleanups);
- return event;
- fail:
- do_cleanups (cleanups);
- return NULL;
- }
- int
- emit_inferior_call_event (inferior_call_kind flag, ptid_t thread,
- CORE_ADDR addr)
- {
- PyObject *event;
- if (evregpy_no_listeners_p (gdb_py_events.inferior_call))
- return 0;
- event = create_inferior_call_event_object (flag, thread, addr);
- if (event != NULL)
- return evpy_emit_event (event, gdb_py_events.inferior_call);
- return -1;
- }
- int
- emit_memory_changed_event (CORE_ADDR addr, ssize_t len)
- {
- PyObject *event;
- if (evregpy_no_listeners_p (gdb_py_events.memory_changed))
- return 0;
- event = create_memory_changed_event_object (addr, len);
- if (event != NULL)
- return evpy_emit_event (event, gdb_py_events.memory_changed);
- return -1;
- }
- int
- emit_register_changed_event (struct frame_info* frame, int regnum)
- {
- PyObject *event;
- if (evregpy_no_listeners_p (gdb_py_events.register_changed))
- return 0;
- event = create_register_changed_event_object (frame, regnum);
- if (event != NULL)
- return evpy_emit_event (event, gdb_py_events.register_changed);
- return -1;
- }
- GDBPY_NEW_EVENT_TYPE (inferior_call_pre,
- "gdb.InferiorCallPreEvent",
- "InferiorCallPreEvent",
- "GDB inferior function pre-call event object",
- event_object_type,
- static);
- GDBPY_NEW_EVENT_TYPE (inferior_call_post,
- "gdb.InferiorCallPostEvent",
- "InferiorCallPostEvent",
- "GDB inferior function post-call event object",
- event_object_type,
- static);
- GDBPY_NEW_EVENT_TYPE (register_changed,
- "gdb.RegisterChangedEvent",
- "RegisterChangedEvent",
- "GDB register change event object",
- event_object_type,
- static);
- GDBPY_NEW_EVENT_TYPE (memory_changed,
- "gdb.MemoryChangedEvent",
- "MemoryChangedEvent",
- "GDB memory change event object",
- event_object_type,
- static);