gdb: remove TYPE_CODE macro

[deliverable/binutils-gdb.git] / gdb / p-lang.c

diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 944a077506c45ad02d910a4c1bebb95001aa9d14..19dd850733552e1fc36a8d7b27b40d9553080bcc 100644 (file)
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -100,7 +100,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
                       struct type **char_type,
                       const char **arrayname)
 {
-  if (type != NULL && TYPE_CODE (type) == TYPE_CODE_STRUCT)
+  if (type != NULL && type->code () == TYPE_CODE_STRUCT)
     {
       /* Old Borland type pascal strings from Free Pascal Compiler.  */
       /* Two fields: length and st.  */
@@ -141,7 +141,7 @@ is_pascal_string_type (struct type *type,int *length_pos,
            {
              *char_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 2));
 
-             if (TYPE_CODE (*char_type) == TYPE_CODE_ARRAY)
+             if ((*char_type)->code () == TYPE_CODE_ARRAY)
                *char_type = TYPE_TARGET_TYPE (*char_type);
            }
          if (arrayname)