[Bug symtab/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
----------------------------------------------------------------------------
                 CC|                            |simark at simark dot ca

--- Comment #3 from Tom de Vries <vries at gcc dot gnu.org> ---
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))
...

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