-/* Longjump free calls to gdb internal routines.
- Copyright 1999, 2000 Free Software Foundation, Inc.
+/* Longjump free calls to GDB internal routines.
+
+ Copyright (C) 1999, 2000, 2005, 2007, 2008, 2009, 2010, 2011
+ Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
+ the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330,
- Boston, MA 02111-1307, USA. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
#include "value.h"
#include "exceptions.h"
#include "wrapper.h"
-
-/* Use this struct to pass arguments to wrapper routines. We assume
- (arbitrarily) that no gdb function takes more than ten arguments. */
-struct gdb_wrapper_arguments
- {
-
- /* Pointer to some result from the gdb function call, if any */
- union wrapper_results
- {
- int integer;
- void *pointer;
- } result;
-
-
- /* The list of arguments. */
- union wrapper_args
- {
- int integer;
- void *pointer;
- } args[10];
- };
-
-struct captured_value_struct_elt_args
-{
- struct value **argp;
- struct value **args;
- char *name;
- int *static_memfuncp;
- char *err;
- struct value **result_ptr;
-};
-
-static int wrap_parse_exp_1 (char *);
-
-static int wrap_evaluate_expression (char *);
-
-static int wrap_value_fetch_lazy (char *);
-
-static int wrap_value_equal (char *);
-
-static int wrap_value_assign (char *);
-
-static int wrap_value_subscript (char *);
-
-static int wrap_value_ind (char *opaque_arg);
-
-static int do_captured_value_struct_elt (struct ui_out *uiout, void *data);
-
-static int wrap_parse_and_eval_type (char *);
+#include "ui-out.h"
+#include "target.h"
int
gdb_parse_exp_1 (char **stringptr, struct block *block, int comma,
struct expression **expression)
{
- struct gdb_wrapper_arguments args;
- args.args[0].pointer = stringptr;
- args.args[1].pointer = block;
- args.args[2].integer = comma;
+ volatile struct gdb_exception except;
- if (!catch_errors ((catch_errors_ftype *) wrap_parse_exp_1, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *expression = parse_exp_1 (stringptr, block, comma);
}
- *expression = (struct expression *) args.result.pointer;
- return 1;
-
-}
-
-static int
-wrap_parse_exp_1 (char *argptr)
-{
- struct gdb_wrapper_arguments *args
- = (struct gdb_wrapper_arguments *) argptr;
- args->result.pointer = parse_exp_1((char **) args->args[0].pointer,
- (struct block *) args->args[1].pointer,
- args->args[2].integer);
+ if (except.reason < 0)
+ return 0;
return 1;
}
int
gdb_evaluate_expression (struct expression *exp, struct value **value)
{
- struct gdb_wrapper_arguments args;
- args.args[0].pointer = exp;
+ volatile struct gdb_exception except;
- if (!catch_errors ((catch_errors_ftype *) wrap_evaluate_expression, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *value = evaluate_expression(exp);
}
- *value = (struct value *) args.result.pointer;
- return 1;
-}
-
-static int
-wrap_evaluate_expression (char *a)
-{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
-
- (args)->result.pointer =
- (char *) evaluate_expression ((struct expression *) args->args[0].pointer);
+ if (except.reason < 0)
+ return 0;
return 1;
}
int
-gdb_value_fetch_lazy (struct value *value)
+gdb_value_fetch_lazy (struct value *val)
{
- struct gdb_wrapper_arguments args;
-
- args.args[0].pointer = value;
- return catch_errors ((catch_errors_ftype *) wrap_value_fetch_lazy, &args,
- "", RETURN_MASK_ERROR);
-}
+ volatile struct gdb_exception except;
-static int
-wrap_value_fetch_lazy (char *a)
-{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
+ TRY_CATCH (except, RETURN_MASK_ERROR)
+ {
+ value_fetch_lazy (val);
+ }
- value_fetch_lazy ((struct value *) (args)->args[0].pointer);
+ if (except.reason < 0)
+ return 0;
return 1;
}
int
gdb_value_equal (struct value *val1, struct value *val2, int *result)
{
- struct gdb_wrapper_arguments args;
+ volatile struct gdb_exception except;
- args.args[0].pointer = val1;
- args.args[1].pointer = val2;
-
- if (!catch_errors ((catch_errors_ftype *) wrap_value_equal, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *result = value_equal (val1, val2);
}
- *result = args.result.integer;
- return 1;
-}
-
-static int
-wrap_value_equal (char *a)
-{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
- struct value *val1;
- struct value *val2;
-
- val1 = (struct value *) (args)->args[0].pointer;
- val2 = (struct value *) (args)->args[1].pointer;
-
- (args)->result.integer = value_equal (val1, val2);
+ if (except.reason < 0)
+ return 0;
return 1;
}
int
-gdb_value_assign (struct value *val1, struct value *val2, struct value **result)
+gdb_value_assign (struct value *val1, struct value *val2,
+ struct value **result)
{
- struct gdb_wrapper_arguments args;
-
- args.args[0].pointer = val1;
- args.args[1].pointer = val2;
+ volatile struct gdb_exception except;
- if (!catch_errors ((catch_errors_ftype *) wrap_value_assign, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *result = value_assign (val1, val2);
}
- *result = (struct value *) args.result.pointer;
+ if (except.reason < 0)
+ return 0;
return 1;
}
-static int
-wrap_value_assign (char *a)
+int
+gdb_value_subscript (struct value *val, LONGEST index,
+ struct value **result)
{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
- struct value *val1;
- struct value *val2;
+ volatile struct gdb_exception except;
- val1 = (struct value *) (args)->args[0].pointer;
- val2 = (struct value *) (args)->args[1].pointer;
+ TRY_CATCH (except, RETURN_MASK_ERROR)
+ {
+ *result = value_subscript (val, index);
+ }
- (args)->result.pointer = value_assign (val1, val2);
+ if (except.reason < 0)
+ return 0;
return 1;
}
int
-gdb_value_subscript (struct value *val1, struct value *val2, struct value **rval)
+gdb_value_ind (struct value *val, struct value **result)
{
- struct gdb_wrapper_arguments args;
-
- args.args[0].pointer = val1;
- args.args[1].pointer = val2;
+ volatile struct gdb_exception except;
- if (!catch_errors ((catch_errors_ftype *) wrap_value_subscript, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *result = value_ind (val);
}
- *rval = (struct value *) args.result.pointer;
+ if (except.reason < 0)
+ return 0;
return 1;
}
-static int
-wrap_value_subscript (char *a)
+int
+gdb_parse_and_eval_type (char *p, int length, struct type **type)
{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
- struct value *val1;
- struct value *val2;
+ volatile struct gdb_exception except;
- val1 = (struct value *) (args)->args[0].pointer;
- val2 = (struct value *) (args)->args[1].pointer;
+ TRY_CATCH (except, RETURN_MASK_ERROR)
+ {
+ *type = parse_and_eval_type (p, length);
+ }
- (args)->result.pointer = value_subscript (val1, val2);
+ if (except.reason < 0)
+ return 0;
return 1;
}
-int
-gdb_value_ind (struct value *val, struct value **rval)
+enum gdb_rc
+gdb_value_struct_elt (struct ui_out *uiout, struct value **result,
+ struct value **argp, struct value **args, char *name,
+ int *static_memfuncp, char *err)
{
- struct gdb_wrapper_arguments args;
+ volatile struct gdb_exception except;
- args.args[0].pointer = val;
-
- if (!catch_errors ((catch_errors_ftype *) wrap_value_ind, &args,
- "", RETURN_MASK_ERROR))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ *result = value_struct_elt (argp, args, name, static_memfuncp, err);
}
- *rval = (struct value *) args.result.pointer;
- return 1;
+ if (except.reason < 0)
+ return GDB_RC_FAIL;
+ return GDB_RC_OK;
}
-static int
-wrap_value_ind (char *opaque_arg)
-{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) opaque_arg;
- struct value *val;
-
- val = (struct value *) (args)->args[0].pointer;
- (args)->result.pointer = value_ind (val);
- return 1;
-}
+/* Call target_find_new_threads without throwing exception. Exception is
+ printed if it got thrown. */
int
-gdb_parse_and_eval_type (char *p, int length, struct type **type)
+gdb_target_find_new_threads (void)
{
- struct gdb_wrapper_arguments args;
- args.args[0].pointer = p;
- args.args[1].integer = length;
+ volatile struct gdb_exception except;
- if (!catch_errors ((catch_errors_ftype *) wrap_parse_and_eval_type, &args,
- "", RETURN_MASK_ALL))
+ TRY_CATCH (except, RETURN_MASK_ERROR)
{
- /* An error occurred */
- return 0;
+ target_find_new_threads ();
}
- *type = (struct type *) args.result.pointer;
- return 1;
-}
-
-static int
-wrap_parse_and_eval_type (char *a)
-{
- struct gdb_wrapper_arguments *args = (struct gdb_wrapper_arguments *) a;
-
- char *p = (char *) args->args[0].pointer;
- int length = args->args[1].integer;
-
- args->result.pointer = (char *) parse_and_eval_type (p, length);
-
+ if (except.reason < 0)
+ {
+ exception_print (gdb_stderr, except);
+ return 0;
+ }
return 1;
}
-
-enum gdb_rc
-gdb_value_struct_elt (struct ui_out *uiout, struct value **result, struct value **argp,
- struct value **args, char *name, int *static_memfuncp,
- char *err)
-{
- struct captured_value_struct_elt_args cargs;
- cargs.argp = argp;
- cargs.args = args;
- cargs.name = name;
- cargs.static_memfuncp = static_memfuncp;
- cargs.err = err;
- cargs.result_ptr = result;
- return catch_exceptions (uiout, do_captured_value_struct_elt, &cargs,
- RETURN_MASK_ALL);
-}
-
-static int
-do_captured_value_struct_elt (struct ui_out *uiout, void *data)
-{
- struct captured_value_struct_elt_args *cargs = data;
- *cargs->result_ptr = value_struct_elt (cargs->argp, cargs->args, cargs->name,
- cargs->static_memfuncp, cargs->err);
- return GDB_RC_OK;
-}
-
projects / deliverable / binutils-gdb.git / blobdiff