install_gdb_sigint_handler (struct signal_handler *previous)
{
/* Save here to simplify comparison. */
- RETSIGTYPE (*handle_sigint_for_compare) () = handle_sigint;
+ sighandler_t handle_sigint_for_compare = handle_sigint;
previous->handler = signal (SIGINT, handle_sigint);
if (previous->handler != handle_sigint_for_compare)
return type_array;
}
+/* Return the type of the result of the xmethod encapsulated in WORKER.
+ OBJECT, ARGS, NARGS are the same as for invoke_xmethod. */
+
+struct type *
+get_xmethod_result_type (struct xmethod_worker *worker,
+ struct value *object, struct value **args, int nargs)
+{
+ enum ext_lang_rc rc;
+ struct type *result_type;
+ const struct extension_language_defn *extlang = worker->extlang;
+
+ gdb_assert (extlang->ops->get_xmethod_arg_types != NULL);
+
+ rc = extlang->ops->get_xmethod_result_type (extlang, worker,
+ object, args, nargs,
+ &result_type);
+ if (rc == EXT_LANG_RC_ERROR)
+ {
+ error (_("Error while fetching result type of an xmethod worker "
+ "defined in %s."), extlang->capitalized_name);
+ }
+
+ return result_type;
+}
+
/* Invokes the xmethod encapsulated in WORKER and returns the result.
The method is invoked on OBJ with arguments in the ARGS array. NARGS is
the length of the this array. */