]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gdb/p-typeprint.c
Convert static_kind into loc_kind enum.
[thirdparty/binutils-gdb.git] / gdb / p-typeprint.c
index 5c482e6a5fec8b4404f24dc748818ad4b535a278..328ac8446416b9599d8755adc77a0c4e2f9189bd 100644 (file)
@@ -590,14 +590,12 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
                }
 
              print_spaces_filtered (level + 4, stream);
-             if (TYPE_FIELD_STATIC (type, i))
-               {
-                 fprintf_filtered (stream, "static ");
-               }
+             if (field_is_static (&TYPE_FIELD (type, i)))
+               fprintf_filtered (stream, "static ");
              pascal_print_type (TYPE_FIELD_TYPE (type, i),
                                 TYPE_FIELD_NAME (type, i),
                                 stream, show - 1, level + 4);
-             if (!TYPE_FIELD_STATIC (type, i)
+             if (!field_is_static (&TYPE_FIELD (type, i))
                  && TYPE_FIELD_PACKED (type, i))
                {
                  /* It is a bitfield.  This code does not attempt