* stabsread.c (define-symbol): Use invisible references

[deliverable/binutils-gdb.git] / gdb / ch-lang.c

diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
index a76ae4642713a3444dbd09416e188e682035e342..9988a3c07a207c50026bf4a0d6791303d584872d 100644 (file)
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -424,6 +424,17 @@ evaluate_subexp_chill (expect_type, exp, pos, noside)
          argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 2));
          argvec[0] = arg1;
          tem = 1;
+         if (type && TYPE_CODE (type) == TYPE_CODE_PTR)
+           type = check_typedef (TYPE_TARGET_TYPE (type));
+         if (type && TYPE_CODE (type) == TYPE_CODE_FUNC)
+           {
+             for (; tem <= nargs && tem <= TYPE_NFIELDS (type); tem++)
+               {
+                 argvec[tem]
+                   = evaluate_subexp_chill (TYPE_FIELD_TYPE (type, tem-1),
+                                            exp, pos, noside);
+               }
+           }
          for (; tem <= nargs; tem++)
            argvec[tem] = evaluate_subexp_with_coercion (exp, pos, noside);
          argvec[tem] = 0; /* signal end of arglist */