X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Fp-typeprint.c;h=75c1e25f5faa110fb809e40cb38e8922a3409580;hb=60db1b8565060f4bd2287b060ea9724c93289982;hp=70a8308b047e2ef51cc06b808b033cb7310a6254;hpb=ceacbf6edf2c72aaa16280205a9bfc8513e9ed27;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index 70a8308b04..75c1e25f5f 100644
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -327,7 +327,7 @@ pascal_print_func_args (struct type *type, struct ui_file *stream,
          {
          fprintf_filtered (stream, "var ");
          } */
-      pascal_print_type (TYPE_FIELD_TYPE (type, i), ""	/* TYPE_FIELD_NAME
+      pascal_print_type (type->field (i).type (), ""	/* TYPE_FIELD_NAME
 							   seems invalid!  */
 			 ,stream, -1, 0, flags);
     }
@@ -620,7 +620,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
 	      print_spaces_filtered (level + 4, stream);
 	      if (field_is_static (&type->field (i)))
 		fprintf_filtered (stream, "static ");
-	      pascal_print_type (TYPE_FIELD_TYPE (type, i),
+	      pascal_print_type (type->field (i).type (),
 				 TYPE_FIELD_NAME (type, i),
 				 stream, show - 1, level + 4, flags);
 	      if (!field_is_static (&type->field (i))
@@ -805,7 +805,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
 
     case TYPE_CODE_SET:
       fputs_filtered ("set of ", stream);
-      pascal_print_type (TYPE_INDEX_TYPE (type), "", stream,
+      pascal_print_type (type->index_type (), "", stream,
 			 show - 1, level, flags);
       break;