1 /* Support for debug methods in Python.
3 Copyright (C) 2013-2018 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/>. */
21 #include "arch-utils.h"
22 #include "extension-priv.h"
28 #include "python-internal.h"
31 static const char enabled_field_name
[] = "enabled";
32 static const char match_method_name
[] = "match";
33 static const char get_arg_types_method_name
[] = "get_arg_types";
34 static const char get_result_type_method_name
[] = "get_result_type";
35 static const char matchers_attr_str
[] = "xmethods";
37 static PyObject
*py_match_method_name
= NULL
;
38 static PyObject
*py_get_arg_types_method_name
= NULL
;
40 struct python_xmethod_worker
: xmethod_worker
42 python_xmethod_worker (PyObject
*worker
, PyObject
*this_type
);
43 ~python_xmethod_worker ();
45 DISABLE_COPY_AND_ASSIGN (python_xmethod_worker
);
47 /* Implementation of xmethod_worker::invoke for Python. */
49 value
*invoke (value
*obj
, value
**args
, int nargs
) override
;
51 /* Implementation of xmethod_worker::do_get_arg_types for Python. */
53 ext_lang_rc
do_get_arg_types (int *nargs
, type
***arg_types
) override
;
55 /* Implementation of xmethod_worker::do_get_result_type for Python.
57 For backward compatibility with 7.9, which did not support getting the
58 result type, if the get_result_type operation is not provided by WORKER
59 then EXT_LANG_RC_OK is returned and NULL is returned in *RESULT_TYPE. */
61 ext_lang_rc
do_get_result_type (value
*obj
, value
**args
, int nargs
,
62 type
**result_type_ptr
) override
;
66 PyObject
*m_py_worker
;
67 PyObject
*m_this_type
;
70 python_xmethod_worker::~python_xmethod_worker ()
72 /* We don't do much here, but we still need the GIL. */
73 gdbpy_enter
enter_py (get_current_arch (), current_language
);
75 Py_DECREF (m_py_worker
);
76 Py_DECREF (m_this_type
);
79 /* Invoke the "match" method of the MATCHER and return a new reference
80 to the result. Returns NULL on error. */
83 invoke_match_method (PyObject
*matcher
, PyObject
*py_obj_type
,
84 const char *xmethod_name
)
88 gdbpy_ref
<> enabled_field (PyObject_GetAttrString (matcher
,
90 if (enabled_field
== NULL
)
93 enabled
= PyObject_IsTrue (enabled_field
.get ());
98 /* Return 'None' if the matcher is not enabled. */
102 gdbpy_ref
<> match_method (PyObject_GetAttrString (matcher
,
104 if (match_method
== NULL
)
107 gdbpy_ref
<> py_xmethod_name (PyString_FromString (xmethod_name
));
108 if (py_xmethod_name
== NULL
)
111 return PyObject_CallMethodObjArgs (matcher
, py_match_method_name
,
112 py_obj_type
, py_xmethod_name
.get (),
116 /* Implementation of get_matching_xmethod_workers for Python. */
119 gdbpy_get_matching_xmethod_workers
120 (const struct extension_language_defn
*extlang
,
121 struct type
*obj_type
, const char *method_name
,
122 std::vector
<xmethod_worker_up
> *dm_vec
)
124 struct objfile
*objfile
;
126 gdb_assert (obj_type
!= NULL
&& method_name
!= NULL
);
128 gdbpy_enter
enter_py (get_current_arch (), current_language
);
130 gdbpy_ref
<> py_type (type_to_type_object (obj_type
));
133 gdbpy_print_stack ();
134 return EXT_LANG_RC_ERROR
;
137 /* Create an empty list of debug methods. */
138 gdbpy_ref
<> py_xmethod_matcher_list (PyList_New (0));
139 if (py_xmethod_matcher_list
== NULL
)
141 gdbpy_print_stack ();
142 return EXT_LANG_RC_ERROR
;
145 /* Gather debug method matchers registered with the object files.
146 This could be done differently by iterating over each objfile's matcher
147 list individually, but there's no data yet to show it's needed. */
148 ALL_OBJFILES (objfile
)
150 gdbpy_ref
<> py_objfile
= objfile_to_objfile_object (objfile
);
152 if (py_objfile
== NULL
)
154 gdbpy_print_stack ();
155 return EXT_LANG_RC_ERROR
;
158 gdbpy_ref
<> objfile_matchers (objfpy_get_xmethods (py_objfile
.get (),
160 gdbpy_ref
<> temp (PySequence_Concat (py_xmethod_matcher_list
.get (),
161 objfile_matchers
.get ()));
164 gdbpy_print_stack ();
165 return EXT_LANG_RC_ERROR
;
168 py_xmethod_matcher_list
= std::move (temp
);
171 /* Gather debug methods matchers registered with the current program
173 gdbpy_ref
<> py_progspace
= pspace_to_pspace_object (current_program_space
);
174 if (py_progspace
!= NULL
)
176 gdbpy_ref
<> pspace_matchers (pspy_get_xmethods (py_progspace
.get (),
179 gdbpy_ref
<> temp (PySequence_Concat (py_xmethod_matcher_list
.get (),
180 pspace_matchers
.get ()));
183 gdbpy_print_stack ();
184 return EXT_LANG_RC_ERROR
;
187 py_xmethod_matcher_list
= std::move (temp
);
191 gdbpy_print_stack ();
192 return EXT_LANG_RC_ERROR
;
195 /* Gather debug method matchers registered globally. */
196 if (gdb_python_module
!= NULL
197 && PyObject_HasAttrString (gdb_python_module
, matchers_attr_str
))
199 gdbpy_ref
<> gdb_matchers (PyObject_GetAttrString (gdb_python_module
,
201 if (gdb_matchers
!= NULL
)
203 gdbpy_ref
<> temp (PySequence_Concat (py_xmethod_matcher_list
.get (),
204 gdb_matchers
.get ()));
207 gdbpy_print_stack ();
208 return EXT_LANG_RC_ERROR
;
211 py_xmethod_matcher_list
= std::move (temp
);
215 gdbpy_print_stack ();
216 return EXT_LANG_RC_ERROR
;
220 gdbpy_ref
<> list_iter (PyObject_GetIter (py_xmethod_matcher_list
.get ()));
221 if (list_iter
== NULL
)
223 gdbpy_print_stack ();
224 return EXT_LANG_RC_ERROR
;
228 gdbpy_ref
<> matcher (PyIter_Next (list_iter
.get ()));
231 if (PyErr_Occurred ())
233 gdbpy_print_stack ();
234 return EXT_LANG_RC_ERROR
;
239 gdbpy_ref
<> match_result (invoke_match_method (matcher
.get (),
243 if (match_result
== NULL
)
245 gdbpy_print_stack ();
246 return EXT_LANG_RC_ERROR
;
248 if (match_result
== Py_None
)
249 ; /* This means there was no match. */
250 else if (PySequence_Check (match_result
.get ()))
252 gdbpy_ref
<> iter (PyObject_GetIter (match_result
.get ()));
256 gdbpy_print_stack ();
257 return EXT_LANG_RC_ERROR
;
261 struct xmethod_worker
*worker
;
263 gdbpy_ref
<> py_worker (PyIter_Next (iter
.get ()));
264 if (py_worker
== NULL
)
266 if (PyErr_Occurred ())
268 gdbpy_print_stack ();
269 return EXT_LANG_RC_ERROR
;
274 worker
= new python_xmethod_worker (py_worker
.get (),
277 dm_vec
->emplace_back (worker
);
282 struct xmethod_worker
*worker
;
284 worker
= new python_xmethod_worker (match_result
.get (),
286 dm_vec
->emplace_back (worker
);
290 return EXT_LANG_RC_OK
;
293 /* See declaration. */
296 python_xmethod_worker::do_get_arg_types (int *nargs
, type
***arg_types
)
298 /* The gdbpy_enter object needs to be placed first, so that it's the last to
300 gdbpy_enter
enter_py (get_current_arch (), current_language
);
301 struct type
*obj_type
;
302 int i
= 1, arg_count
;
303 gdbpy_ref
<> list_iter
;
305 /* Set nargs to -1 so that any premature return from this function returns
306 an invalid/unusable number of arg types. */
309 gdbpy_ref
<> get_arg_types_method
310 (PyObject_GetAttrString (m_py_worker
, get_arg_types_method_name
));
311 if (get_arg_types_method
== NULL
)
313 gdbpy_print_stack ();
314 return EXT_LANG_RC_ERROR
;
317 gdbpy_ref
<> py_argtype_list
318 (PyObject_CallMethodObjArgs (m_py_worker
, py_get_arg_types_method_name
,
320 if (py_argtype_list
== NULL
)
322 gdbpy_print_stack ();
323 return EXT_LANG_RC_ERROR
;
326 if (py_argtype_list
== Py_None
)
328 else if (PySequence_Check (py_argtype_list
.get ()))
330 arg_count
= PySequence_Size (py_argtype_list
.get ());
333 gdbpy_print_stack ();
334 return EXT_LANG_RC_ERROR
;
337 list_iter
.reset (PyObject_GetIter (py_argtype_list
.get ()));
338 if (list_iter
== NULL
)
340 gdbpy_print_stack ();
341 return EXT_LANG_RC_ERROR
;
347 /* Include the 'this' argument in the size. */
348 gdb::unique_xmalloc_ptr
<struct type
*> type_array
349 (XCNEWVEC (struct type
*, arg_count
+ 1));
351 if (list_iter
!= NULL
)
355 gdbpy_ref
<> item (PyIter_Next (list_iter
.get ()));
358 if (PyErr_Occurred ())
360 gdbpy_print_stack ();
361 return EXT_LANG_RC_ERROR
;
366 struct type
*arg_type
= type_object_to_type (item
.get ());
367 if (arg_type
== NULL
)
369 PyErr_SetString (PyExc_TypeError
,
370 _("Arg type returned by the get_arg_types "
371 "method of a debug method worker object is "
372 "not a gdb.Type object."));
373 return EXT_LANG_RC_ERROR
;
376 (type_array
.get ())[i
] = arg_type
;
380 else if (arg_count
== 1)
382 /* py_argtype_list is not actually a list but a single gdb.Type
384 struct type
*arg_type
= type_object_to_type (py_argtype_list
.get ());
386 if (arg_type
== NULL
)
388 PyErr_SetString (PyExc_TypeError
,
389 _("Arg type returned by the get_arg_types method "
390 "of an xmethod worker object is not a gdb.Type "
392 return EXT_LANG_RC_ERROR
;
396 (type_array
.get ())[i
] = arg_type
;
401 /* Add the type of 'this' as the first argument. The 'this' pointer should
402 be a 'const' value. Hence, create a 'const' variant of the 'this' pointer
404 obj_type
= type_object_to_type (m_this_type
);
405 (type_array
.get ())[0] = make_cv_type (1, 0, lookup_pointer_type (obj_type
),
408 *arg_types
= type_array
.release ();
410 return EXT_LANG_RC_OK
;
413 /* See declaration. */
416 python_xmethod_worker::do_get_result_type (value
*obj
, value
**args
, int nargs
,
417 type
**result_type_ptr
)
419 struct type
*obj_type
, *this_type
;
422 gdbpy_enter
enter_py (get_current_arch (), current_language
);
424 /* First see if there is a get_result_type method.
425 If not this could be an old xmethod (pre 7.9.1). */
426 gdbpy_ref
<> get_result_type_method
427 (PyObject_GetAttrString (m_py_worker
, get_result_type_method_name
));
428 if (get_result_type_method
== NULL
)
431 *result_type_ptr
= NULL
;
432 return EXT_LANG_RC_OK
;
435 obj_type
= check_typedef (value_type (obj
));
436 this_type
= check_typedef (type_object_to_type (m_this_type
));
437 if (TYPE_CODE (obj_type
) == TYPE_CODE_PTR
)
439 struct type
*this_ptr
= lookup_pointer_type (this_type
);
441 if (!types_equal (obj_type
, this_ptr
))
442 obj
= value_cast (this_ptr
, obj
);
444 else if (TYPE_IS_REFERENCE (obj_type
))
446 struct type
*this_ref
447 = lookup_reference_type (this_type
, TYPE_CODE (obj_type
));
449 if (!types_equal (obj_type
, this_ref
))
450 obj
= value_cast (this_ref
, obj
);
454 if (!types_equal (obj_type
, this_type
))
455 obj
= value_cast (this_type
, obj
);
457 gdbpy_ref
<> py_value_obj (value_to_value_object (obj
));
458 if (py_value_obj
== NULL
)
460 gdbpy_print_stack ();
461 return EXT_LANG_RC_ERROR
;
464 gdbpy_ref
<> py_arg_tuple (PyTuple_New (nargs
+ 1));
465 if (py_arg_tuple
== NULL
)
467 gdbpy_print_stack ();
468 return EXT_LANG_RC_ERROR
;
471 /* PyTuple_SET_ITEM steals the reference of the element, hence the
473 PyTuple_SET_ITEM (py_arg_tuple
.get (), 0, py_value_obj
.release ());
475 for (i
= 0; i
< nargs
; i
++)
477 PyObject
*py_value_arg
= value_to_value_object (args
[i
]);
479 if (py_value_arg
== NULL
)
481 gdbpy_print_stack ();
482 return EXT_LANG_RC_ERROR
;
484 PyTuple_SET_ITEM (py_arg_tuple
.get (), i
+ 1, py_value_arg
);
487 gdbpy_ref
<> py_result_type
488 (PyObject_CallObject (get_result_type_method
.get (), py_arg_tuple
.get ()));
489 if (py_result_type
== NULL
)
491 gdbpy_print_stack ();
492 return EXT_LANG_RC_ERROR
;
495 *result_type_ptr
= type_object_to_type (py_result_type
.get ());
496 if (*result_type_ptr
== NULL
)
498 PyErr_SetString (PyExc_TypeError
,
499 _("Type returned by the get_result_type method of an"
500 " xmethod worker object is not a gdb.Type object."));
501 gdbpy_print_stack ();
502 return EXT_LANG_RC_ERROR
;
505 return EXT_LANG_RC_OK
;
508 /* See declaration. */
511 python_xmethod_worker::invoke (struct value
*obj
, struct value
**args
,
514 gdbpy_enter
enter_py (get_current_arch (), current_language
);
517 struct type
*obj_type
, *this_type
;
518 struct value
*res
= NULL
;
520 obj_type
= check_typedef (value_type (obj
));
521 this_type
= check_typedef (type_object_to_type (m_this_type
));
522 if (TYPE_CODE (obj_type
) == TYPE_CODE_PTR
)
524 struct type
*this_ptr
= lookup_pointer_type (this_type
);
526 if (!types_equal (obj_type
, this_ptr
))
527 obj
= value_cast (this_ptr
, obj
);
529 else if (TYPE_IS_REFERENCE (obj_type
))
531 struct type
*this_ref
532 = lookup_reference_type (this_type
, TYPE_CODE (obj_type
));
534 if (!types_equal (obj_type
, this_ref
))
535 obj
= value_cast (this_ref
, obj
);
539 if (!types_equal (obj_type
, this_type
))
540 obj
= value_cast (this_type
, obj
);
542 gdbpy_ref
<> py_value_obj (value_to_value_object (obj
));
543 if (py_value_obj
== NULL
)
545 gdbpy_print_stack ();
546 error (_("Error while executing Python code."));
549 gdbpy_ref
<> py_arg_tuple (PyTuple_New (nargs
+ 1));
550 if (py_arg_tuple
== NULL
)
552 gdbpy_print_stack ();
553 error (_("Error while executing Python code."));
556 /* PyTuple_SET_ITEM steals the reference of the element, hence the
558 PyTuple_SET_ITEM (py_arg_tuple
.get (), 0, py_value_obj
.release ());
560 for (i
= 0; i
< nargs
; i
++)
562 PyObject
*py_value_arg
= value_to_value_object (args
[i
]);
564 if (py_value_arg
== NULL
)
566 gdbpy_print_stack ();
567 error (_("Error while executing Python code."));
570 PyTuple_SET_ITEM (py_arg_tuple
.get (), i
+ 1, py_value_arg
);
573 gdbpy_ref
<> py_result (PyObject_CallObject (m_py_worker
,
574 py_arg_tuple
.get ()));
575 if (py_result
== NULL
)
577 gdbpy_print_stack ();
578 error (_("Error while executing Python code."));
581 if (py_result
!= Py_None
)
583 res
= convert_value_from_python (py_result
.get ());
586 gdbpy_print_stack ();
587 error (_("Error while executing Python code."));
592 res
= allocate_value (lookup_typename (python_language
, python_gdbarch
,
599 python_xmethod_worker::python_xmethod_worker (PyObject
*py_worker
,
601 : xmethod_worker (&extension_language_python
),
602 m_py_worker (py_worker
), m_this_type (this_type
)
604 gdb_assert (m_py_worker
!= NULL
&& m_this_type
!= NULL
);
606 Py_INCREF (py_worker
);
607 Py_INCREF (this_type
);
611 gdbpy_initialize_xmethods (void)
613 py_match_method_name
= PyString_FromString (match_method_name
);
614 if (py_match_method_name
== NULL
)
617 py_get_arg_types_method_name
618 = PyString_FromString (get_arg_types_method_name
);
619 if (py_get_arg_types_method_name
== NULL
)