[Bug backtrace/26390] gdb.fortran/mixed-lang-stack.exp: error reading variable in backtrace

["vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=26390

Tom de Vries <vries at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |10.1

--- Comment #10 from Tom de Vries <vries at gcc dot gnu.org> ---
(In reply to Tom de Vries from comment #3)
> I tried to use recursive_dump_type to print the type, but ran into an
> assert, because recursive_dump_type tries to print the high bound as
> PROP_CONST, while it's a PROP_LOCEXPR.  Tentative patch:
> ...
> diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
> index da1c58c65c..d3f460779a 100644
> --- a/gdb/gdbtypes.c
> +++ b/gdb/gdbtypes.c
> @@ -4856,6 +4856,27 @@ print_gnat_stuff (struct type *type, int spaces)
>  
>  static struct obstack dont_print_type_obstack;
>  
> +static void
> +dump_dynamic_prop (dynamic_prop &prop)
> +{
> +  switch (prop.kind ())
> +    {
> +    case PROP_CONST:
> +      printfi_filtered (0, "%s", plongest (prop.const_val ()));
> +      break;
> +    case PROP_UNDEFINED:
> +      printfi_filtered (0, "(undefined)");
> +      break;
> +    case PROP_LOCEXPR:
> +    case PROP_LOCLIST:
> +      printfi_filtered (0, "(dynamic)");
> +      break;
> +    default:
> +      gdb_assert (false);
> +      break;
> +    }
> +}
> +
>  void
>  recursive_dump_type (struct type *type, int spaces)
>  {
> @@ -5115,13 +5136,11 @@ recursive_dump_type (struct type *type, int spaces)
>      }
>    if (type->code () == TYPE_CODE_RANGE)
>      {
> -      printfi_filtered (spaces, "low %s%s  high %s%s\n",
> -                       plongest (type->bounds ()->low.const_val ()),
> -                       (type->bounds ()->low.kind () == PROP_UNDEFINED
> -                        ? " (undefined)" : ""),
> -                       plongest (type->bounds ()->high.const_val ()),
> -                       (type->bounds ()->high.kind () == PROP_UNDEFINED
> -                        ? " (undefined)" : ""));
> +      printfi_filtered (spaces, "low ");
> +      dump_dynamic_prop (type->bounds ()->low);
> +      printfi_filtered (0, "  high ");
> +      dump_dynamic_prop (type->bounds ()->high);
> +      printfi_filtered (0, "\n");
>      }
>  
>    switch (TYPE_SPECIFIC_FIELD (type))
> ...

Filed as PR26393.

-- 
You are receiving this mail because:
You are on the CC list for the bug.