X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Fp-valprint.c;h=064e81905d0ddc035a03d2875902be145e9c3255;hb=3d967001ecd3b325fc39d7f53ebf7054d1ecd503;hp=cf902ac7fbe1758ae2442887ae69e11f7625ca75;hpb=262abc0d67af006a709d0935940f9c9f5f7c5ee5;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index cf902ac7fb..064e81905d 100644
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -330,7 +330,7 @@ pascal_value_print_inner (struct value *val, struct ui_file *stream,
       break;
 
     case TYPE_CODE_SET:
-      elttype = TYPE_INDEX_TYPE (type);
+      elttype = type->index_type ();
       elttype = check_typedef (elttype);
       if (TYPE_STUB (elttype))
 	{