projects / deliverable / binutils-gdb.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Add .refsym to msp430 backend
[deliverable/binutils-gdb.git] / gdb / m2-typeprint.c
diff --git a/gdb/m2-typeprint.c b/gdb/m2-typeprint.c
index c0b813844a66de9515b91aa82a921d075082340f..3078dadc564ce1752b2b00e227cc27e3594b9793 100644 (file)
--- a/gdb/m2-typeprint.c
+++ b/gdb/m2-typeprint.c
@@ -1,6 +1,5 @@
 /* Support for printing Modula 2 types for GDB, the GNU debugger.
-   Copyright (C) 1986, 1988, 1989, 1991, 1992, 1995, 2000, 2001, 2002, 2003,
-                 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+   Copyright (C) 1986-2014 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -33,30 +32,37 @@
 #include "typeprint.h"
 #include "cp-abi.h"
 
-#include "gdb_string.h"
+#include <string.h>
 #include <errno.h>
 
 static void m2_print_bounds (struct type *type,
                             struct ui_file *stream, int show, int level,
                             int print_high);
 
-static void m2_typedef (struct type *, struct ui_file *, int, int);
-static void m2_array (struct type *, struct ui_file *, int, int);
-static void m2_pointer (struct type *, struct ui_file *, int, int);
-static void m2_ref (struct type *, struct ui_file *, int, int);
-static void m2_procedure (struct type *, struct ui_file *, int, int);
+static void m2_typedef (struct type *, struct ui_file *, int, int,
+                       const struct type_print_options *);
+static void m2_array (struct type *, struct ui_file *, int, int,
+                     const struct type_print_options *);
+static void m2_pointer (struct type *, struct ui_file *, int, int,
+                       const struct type_print_options *);
+static void m2_ref (struct type *, struct ui_file *, int, int,
+                   const struct type_print_options *);
+static void m2_procedure (struct type *, struct ui_file *, int, int,
+                         const struct type_print_options *);
 static void m2_union (struct type *, struct ui_file *);
 static void m2_enum (struct type *, struct ui_file *, int, int);
-static void m2_range (struct type *, struct ui_file *, int, int);
+static void m2_range (struct type *, struct ui_file *, int, int,
+                     const struct type_print_options *);
 static void m2_type_name (struct type *type, struct ui_file *stream);
 static void m2_short_set (struct type *type, struct ui_file *stream,
                          int show, int level);
 static int m2_long_set (struct type *type, struct ui_file *stream,
-                       int show, int level);
+                       int show, int level, const struct type_print_options *flags);
 static int m2_unbounded_array (struct type *type, struct ui_file *stream,
-                              int show, int level);
+                              int show, int level,
+                              const struct type_print_options *flags);
 static void m2_record_fields (struct type *type, struct ui_file *stream,
-                             int show, int level);
+                             int show, int level, const struct type_print_options *flags);
 static void m2_unknown (const char *s, struct type *type,
                        struct ui_file *stream, int show, int level);
 
@@ -66,12 +72,11 @@ int m2_is_unbounded_array (struct type *type);
 
 
 void
-m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
-              int show, int level)
+m2_print_type (struct type *type, const char *varstring,
+              struct ui_file *stream,
+              int show, int level,
+              const struct type_print_options *flags)
 {
-  enum type_code code;
-  int demangled_args;
-
   CHECK_TYPEDEF (type);
 
   QUIT;
@@ -83,7 +88,6 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
       return;
     }
 
-  code = TYPE_CODE (type);
   switch (TYPE_CODE (type))
     {
     case TYPE_CODE_SET:
@@ -91,26 +95,26 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
       break;
 
     case TYPE_CODE_STRUCT:
-      if (m2_long_set (type, stream, show, level)
-         || m2_unbounded_array (type, stream, show, level))
+      if (m2_long_set (type, stream, show, level, flags)
+         || m2_unbounded_array (type, stream, show, level, flags))
        break;
-      m2_record_fields (type, stream, show, level);
+      m2_record_fields (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_TYPEDEF:
-      m2_typedef (type, stream, show, level);
+      m2_typedef (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_ARRAY:
-      m2_array (type, stream, show, level);
+      m2_array (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_PTR:
-      m2_pointer (type, stream, show, level);
+      m2_pointer (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_REF:
-      m2_ref (type, stream, show, level);
+      m2_ref (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_METHOD:
@@ -118,7 +122,7 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
       break;
 
     case TYPE_CODE_FUNC:
-      m2_procedure (type, stream, show, level);
+      m2_procedure (type, stream, show, level, flags);
       break;
 
     case TYPE_CODE_UNION:
@@ -133,7 +137,7 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
       break;
 
     case TYPE_CODE_UNDEF:
-      /* i18n: Do not translate the "struct" part! */
+      /* i18n: Do not translate the "struct" part!  */
       m2_unknown (_("undef"), type, stream, show, level);
       break;
 
@@ -142,10 +146,7 @@ m2_print_type (struct type *type, char *varstring, struct ui_file *stream,
       break;
 
     case TYPE_CODE_RANGE:
-      m2_range (type, stream, show, level);
-      break;
-
-    case TYPE_CODE_TEMPLATE:
+      m2_range (type, stream, show, level, flags);
       break;
 
     default:
@@ -187,10 +188,11 @@ m2_type_name (struct type *type, struct ui_file *stream)
 
 void
 m2_range (struct type *type, struct ui_file *stream, int show,
-         int level)
+         int level, const struct type_print_options *flags)
 {
   if (TYPE_HIGH_BOUND (type) == TYPE_LOW_BOUND (type))
-    m2_print_type (TYPE_DOMAIN_TYPE (type), "", stream, show, level);
+    m2_print_type (TYPE_DOMAIN_TYPE (type), "", stream, show, level,
+                  flags);
   else
     {
       struct type *target = TYPE_TARGET_TYPE (type);
@@ -205,20 +207,20 @@ m2_range (struct type *type, struct ui_file *stream, int show,
 
 static void
 m2_typedef (struct type *type, struct ui_file *stream, int show,
-           int level)
+           int level, const struct type_print_options *flags)
 {
   if (TYPE_NAME (type) != NULL)
     {
       fputs_filtered (TYPE_NAME (type), stream);
       fputs_filtered (" = ", stream);
     }
-  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level);
+  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level, flags);
 }
 
 /* m2_array - prints out a Modula-2 ARRAY ... OF type.  */
 
 static void m2_array (struct type *type, struct ui_file *stream,
-                     int show, int level)
+                     int show, int level, const struct type_print_options *flags)
 {
   fprintf_filtered (stream, "ARRAY [");
   if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
@@ -236,27 +238,27 @@ static void m2_array (struct type *type, struct ui_file *stream,
                           / TYPE_LENGTH (TYPE_TARGET_TYPE (type))));
     }
   fprintf_filtered (stream, "] OF ");
-  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level);
+  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level, flags);
 }
 
 static void
 m2_pointer (struct type *type, struct ui_file *stream, int show,
-           int level)
+           int level, const struct type_print_options *flags)
 {
   if (TYPE_CONST (type))
     fprintf_filtered (stream, "[...] : ");
   else
     fprintf_filtered (stream, "POINTER TO ");
 
-  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level);
+  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level, flags);
 }
 
 static void
 m2_ref (struct type *type, struct ui_file *stream, int show,
-       int level)
+       int level, const struct type_print_options *flags)
 {
   fprintf_filtered (stream, "VAR");
-  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level);
+  m2_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level, flags);
 }
 
 static void
@@ -273,7 +275,7 @@ static void m2_union (struct type *type, struct ui_file *stream)
 
 static void
 m2_procedure (struct type *type, struct ui_file *stream,
-             int show, int level)
+             int show, int level, const struct type_print_options *flags)
 {
   fprintf_filtered (stream, "PROCEDURE ");
   m2_type_name (type, stream);
@@ -289,12 +291,12 @@ m2_procedure (struct type *type, struct ui_file *stream,
              fputs_filtered (", ", stream);
              wrap_here ("    ");
            }
-         m2_print_type (TYPE_FIELD_TYPE (type, i), "", stream, -1, 0);
+         m2_print_type (TYPE_FIELD_TYPE (type, i), "", stream, -1, 0, flags);
        }
       if (TYPE_TARGET_TYPE (type) != NULL)
        {
          fprintf_filtered (stream, " : ");
-         m2_print_type (TYPE_TARGET_TYPE (type), "", stream, 0, 0);
+         m2_print_type (TYPE_TARGET_TYPE (type), "", stream, 0, 0, flags);
        }
     }
 }
@@ -306,9 +308,6 @@ m2_print_bounds (struct type *type,
 {
   struct type *target = TYPE_TARGET_TYPE (type);
 
-  if (target == NULL)
-    target = builtin_type_int32;
-
   if (TYPE_NFIELDS(type) == 0)
     return;
 
@@ -334,8 +333,8 @@ m2_short_set (struct type *type, struct ui_file *stream, int show, int level)
 int
 m2_is_long_set (struct type *type)
 {
-  LONGEST previous_high = 0;  /* unnecessary initialization
-                                keeps gcc -Wall happy */
+  LONGEST previous_high = 0;  /* Unnecessary initialization
+                                keeps gcc -Wall happy.  */
   int len, i;
   struct type *range;
 
@@ -370,7 +369,7 @@ m2_is_long_set (struct type *type)
                             This should be integrated into gdbtypes.c
                             inside get_discrete_bounds.  */
 
-int
+static int
 m2_get_discrete_bounds (struct type *type, LONGEST *lowp, LONGEST *highp)
 {
   CHECK_TYPEDEF (type);
@@ -413,8 +412,6 @@ m2_is_long_set_of_type (struct type *type, struct type **of_type)
        return 0;
       range = TYPE_INDEX_TYPE (TYPE_FIELD_TYPE (type, i));
       target = TYPE_TARGET_TYPE (range);
-      if (target == NULL)
-       target = builtin_type_int32;
 
       l1 = TYPE_LOW_BOUND (TYPE_INDEX_TYPE (TYPE_FIELD_TYPE (type, i)));
       h1 = TYPE_HIGH_BOUND (TYPE_INDEX_TYPE (TYPE_FIELD_TYPE (type, len-1)));
@@ -429,10 +426,9 @@ m2_is_long_set_of_type (struct type *type, struct type **of_type)
 }
 
 static int
-m2_long_set (struct type *type, struct ui_file *stream, int show, int level)
+m2_long_set (struct type *type, struct ui_file *stream, int show, int level,
+            const struct type_print_options *flags)
 {
-  struct type *index_type;
-  struct type *range_type;
   struct type *of_type;
   int i;
   int len = TYPE_NFIELDS (type);
@@ -462,7 +458,7 @@ m2_long_set (struct type *type, struct ui_file *stream, int show, int level)
          fprintf_filtered(stream, "SET OF ");
          i = TYPE_N_BASECLASSES (type);
          if (m2_is_long_set_of_type (type, &of_type))
-           m2_print_type (of_type, "", stream, show - 1, level);
+           m2_print_type (of_type, "", stream, show - 1, level, flags);
          else
            {
              fprintf_filtered(stream, "[");
@@ -477,7 +473,7 @@ m2_long_set (struct type *type, struct ui_file *stream, int show, int level)
            }
        }
       else
-       /* i18n: Do not translate the "SET OF" part! */
+       /* i18n: Do not translate the "SET OF" part!  */
        fprintf_filtered(stream, _("SET OF <unknown>"));
 
       return 1;
@@ -519,7 +515,7 @@ m2_is_unbounded_array (struct type *type)
 
 static int
 m2_unbounded_array (struct type *type, struct ui_file *stream, int show,
-                   int level)
+                   int level, const struct type_print_options *flags)
 {
   if (m2_is_unbounded_array (type))
     {
@@ -527,7 +523,7 @@ m2_unbounded_array (struct type *type, struct ui_file *stream, int show,
        {
          fputs_filtered ("ARRAY OF ", stream);
          m2_print_type (TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (type, 0)),
-                        "", stream, 0, level);
+                        "", stream, 0, level, flags);
        }
       return 1;
     }
@@ -536,7 +532,7 @@ m2_unbounded_array (struct type *type, struct ui_file *stream, int show,
 
 void
 m2_record_fields (struct type *type, struct ui_file *stream, int show,
-                 int level)
+                 int level, const struct type_print_options *flags)
 {
   /* Print the tag if it exists.  */
   if (TYPE_TAG_NAME (type) != NULL)
@@ -551,9 +547,9 @@ m2_record_fields (struct type *type, struct ui_file *stream, int show,
   wrap_here ("    ");
   if (show < 0)
     {
-      if (TYPE_CODE (type) == DECLARED_TYPE_STRUCT)
+      if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
        fprintf_filtered (stream, "RECORD ... END ");
-      else if (TYPE_DECLARED_TYPE (type) == DECLARED_TYPE_UNION)
+      else if (TYPE_CODE (type) == TYPE_CODE_UNION)
        fprintf_filtered (stream, "CASE ... END ");
     }
   else if (show > 0)
@@ -564,7 +560,7 @@ m2_record_fields (struct type *type, struct ui_file *stream, int show,
       if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
        fprintf_filtered (stream, "RECORD\n");
       else if (TYPE_CODE (type) == TYPE_CODE_UNION)
-       /* i18n: Do not translate "CASE" and "OF" */
+       /* i18n: Do not translate "CASE" and "OF".  */
        fprintf_filtered (stream, _("CASE <variant> OF\n"));
 
       for (i = TYPE_N_BASECLASSES (type); i < len; i++)
@@ -576,7 +572,7 @@ m2_record_fields (struct type *type, struct ui_file *stream, int show,
          fputs_filtered (" : ", stream);
          m2_print_type (TYPE_FIELD_TYPE (type, i),
                         "",
-                        stream, 0, level + 4);
+                        stream, 0, level + 4, flags);
          if (TYPE_FIELD_PACKED (type, i))
            {
              /* It is a bitfield.  This code does not attempt
@@ -597,7 +593,8 @@ m2_record_fields (struct type *type, struct ui_file *stream, int show,
 void
 m2_enum (struct type *type, struct ui_file *stream, int show, int level)
 {
-  int lastval, i, len;
+  LONGEST lastval;
+  int i, len;
 
   if (show < 0)
     {
@@ -617,10 +614,11 @@ m2_enum (struct type *type, struct ui_file *stream, int show, int level)
            fprintf_filtered (stream, ", ");
          wrap_here ("    ");
          fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
-         if (lastval != TYPE_FIELD_BITPOS (type, i))
+         if (lastval != TYPE_FIELD_ENUMVAL (type, i))
            {
-             fprintf_filtered (stream, " = %d", TYPE_FIELD_BITPOS (type, i));
-             lastval = TYPE_FIELD_BITPOS (type, i);
+             fprintf_filtered (stream, " = %s",
+                               plongest (TYPE_FIELD_ENUMVAL (type, i)));
+             lastval = TYPE_FIELD_ENUMVAL (type, i);
            }
          lastval++;
        }
GDB Binutils - Deliverables
This page took 0.028937 seconds and 4 git commands to generate.