From df0ca547847b27bc3b2beaa3966d133bcae82d3c Mon Sep 17 00:00:00 2001 From: Wu Zhou Date: Mon, 13 Jun 2005 07:23:15 +0000 Subject: [PATCH] * 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/ChangeLog | 7 +++++++ gdb/eval.c | 18 ++++++++++++++++++ 2 files changed, 25 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index e0a96f8bc3..2e725e83e0 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2005-06-13 Wu Zhou + + * 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. + 2005-06-12 Daniel Jacobowitz Nick Roberts diff --git a/gdb/eval.c b/gdb/eval.c index 0ad71793f6..20df063d64 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: