From df0ca547847b27bc3b2beaa3966d133bcae82d3c Mon Sep 17 00:00:00 2001 From: Wu Zhou Date: Mon, 13 Jun 2005 07:23:15 +0000 Subject: * eval.c (evaluate_subexp_standard): Add code to check the target type of a TYPE_CODE_PTR value when we encounter a f77 undetermined arglist. If it is array, string or function, work on the target value instead. --- gdb/eval.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'gdb/eval.c') diff --git a/gdb/eval.c b/gdb/eval.c index 0ad7179..20df063 100644 --- a/gdb/eval.c +++ b/gdb/eval.c @@ -1246,6 +1246,24 @@ evaluate_subexp_standard (struct type *expect_type, type = check_typedef (value_type (arg1)); code = TYPE_CODE (type); + if (code == TYPE_CODE_PTR) + { + /* Fortran always passes variable to subroutines as pointer. + So we need to look into its target type to see if it is + array, string or function. If it is, we need to switch + to the target value the original one points to. */ + struct type *target_type = check_typedef (TYPE_TARGET_TYPE (type)); + + if (TYPE_CODE (target_type) == TYPE_CODE_ARRAY + || TYPE_CODE (target_type) == TYPE_CODE_STRING + || TYPE_CODE (target_type) == TYPE_CODE_FUNC) + { + arg1 = value_ind (arg1); + type = check_typedef (value_type (arg1)); + code = TYPE_CODE (type); + } + } + switch (code) { case TYPE_CODE_ARRAY: -- cgit v1.1