* rs6000-tdep.c (push_arguments): Remove unused variable "pc".

[binutils.git] / gdb / c-typeprint.c

diff --git a/gdb/c-typeprint.c b/gdb/c-typeprint.c
index 9654c479503c440be9dbb297a0f50a834978a2d7..a7a5341c177264d7e8e6d9c20d483b9504cbe51f 100644 (file)
--- a/gdb/c-typeprint.c
+++ b/gdb/c-typeprint.c
@@ -1,5 +1,6 @@
 /* Support for printing C and C++ types for GDB, the GNU debugger.
 /* Support for printing C and C++ types for GDB, the GNU debugger.

-   Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc.
+   Copyright 1986, 1988, 1989, 1991, 1993, 1994, 1995, 1996
+   Free Software Foundation, Inc.

 
 This file is part of GDB.
 
 
 This file is part of GDB.
 


@@ -15,7 +16,7 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software

-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

 
 #include "defs.h"
 #include "obstack.h"
 
 #include "defs.h"
 #include "obstack.h"


@@ -33,10 +34,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "c-lang.h"
 #include "typeprint.h"
 
 #include "c-lang.h"
 #include "typeprint.h"
 

-#include <string.h>
+#include "gdb_string.h"

 #include <errno.h>
 #include <errno.h>

-
-extern int demangle;   /* whether to print C++ syms raw or source-form */
+#include <ctype.h>

 
 static void
 c_type_print_args PARAMS ((struct type *, GDB_FILE *));
 
 static void
 c_type_print_args PARAMS ((struct type *, GDB_FILE *));


@@ -50,9 +50,6 @@ cp_type_print_derivation_info PARAMS ((GDB_FILE *, struct type *));
 void
 c_type_print_varspec_prefix PARAMS ((struct type *, GDB_FILE *, int, int));
 
 void
 c_type_print_varspec_prefix PARAMS ((struct type *, GDB_FILE *, int, int));
 

-void
-c_type_print_base PARAMS ((struct type *, GDB_FILE *, int, int));
-

 \f
 /* Print a description of a type in the format of a 
    typedef for the current language.
 \f
 /* Print a description of a type in the format of a 
    typedef for the current language.


@@ -64,6 +61,7 @@ c_typedef_print (type, new, stream)
    struct symbol *new;
    GDB_FILE *stream;
 {
    struct symbol *new;
    GDB_FILE *stream;
 {

+  CHECK_TYPEDEF (type);

    switch (current_language->la_language)
    {
 #ifdef _LANG_c
    switch (current_language->la_language)
    {
 #ifdef _LANG_c


@@ -89,7 +87,14 @@ c_typedef_print (type, new, stream)
 #endif
 #ifdef _LANG_chill
    case language_chill:
 #endif
 #ifdef _LANG_chill
    case language_chill:

-      error ("Missing Chill support in function c_typedef_print."); /*FIXME*/
+      fprintf_filtered(stream, "SYNMODE ");
+      if(!TYPE_NAME(SYMBOL_TYPE(new)) ||
+        !STREQ (TYPE_NAME(SYMBOL_TYPE(new)), SYMBOL_NAME(new)))
+       fprintf_filtered(stream, "%s = ", SYMBOL_SOURCE_NAME(new));
+      else
+        fprintf_filtered(stream, "<builtin> = ");
+      type_print(type,"",stream,0);
+      break;

 #endif
    default:
       error("Language not supported.");
 #endif
    default:
       error("Language not supported.");


@@ -111,6 +116,9 @@ c_print_type (type, varstring, stream, show, level)
   register enum type_code code;
   int demangled_args;
 
   register enum type_code code;
   int demangled_args;
 

+  if (show > 0)
+    CHECK_TYPEDEF (type);
+

   c_type_print_base (type, stream, show, level);
   code = TYPE_CODE (type);
   if ((varstring != NULL && *varstring != '\0')
   c_type_print_base (type, stream, show, level);
   code = TYPE_CODE (type);
   if ((varstring != NULL && *varstring != '\0')


@@ -132,7 +140,7 @@ c_print_type (type, varstring, stream, show, level)
   /* For demangled function names, we have the arglist as part of the name,
      so don't print an additional pair of ()'s */
 
   /* For demangled function names, we have the arglist as part of the name,
      so don't print an additional pair of ()'s */
 

-  demangled_args = varstring[strlen(varstring) - 1] == ')';
+  demangled_args = strchr(varstring, '(') != NULL;

   c_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
 
 }
   c_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
 
 }


@@ -307,6 +315,8 @@ c_type_print_varspec_prefix (type, stream, show, passed_a_ptr)
     case TYPE_CODE_RANGE:
     case TYPE_CODE_STRING:
     case TYPE_CODE_BITSTRING:
     case TYPE_CODE_RANGE:
     case TYPE_CODE_STRING:
     case TYPE_CODE_BITSTRING:

+    case TYPE_CODE_COMPLEX:
+    case TYPE_CODE_TYPEDEF:

       /* These types need no prefix.  They are listed here so that
         gcc -Wall will reveal any types that haven't been handled.  */
       break;
       /* These types need no prefix.  They are listed here so that
         gcc -Wall will reveal any types that haven't been handled.  */
       break;


@@ -378,7 +388,8 @@ c_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args)
        fprintf_filtered (stream, ")");
       
       fprintf_filtered (stream, "[");
        fprintf_filtered (stream, ")");
       
       fprintf_filtered (stream, "[");

-      if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
+      if (TYPE_LENGTH (type) >= 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
+         && TYPE_ARRAY_UPPER_BOUND_TYPE(type) != BOUND_CANNOT_BE_DETERMINED)

        fprintf_filtered (stream, "%d",
                          (TYPE_LENGTH (type)
                           / TYPE_LENGTH (TYPE_TARGET_TYPE (type))));
        fprintf_filtered (stream, "%d",
                          (TYPE_LENGTH (type)
                           / TYPE_LENGTH (TYPE_TARGET_TYPE (type))));


@@ -412,7 +423,19 @@ c_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args)
       if (passed_a_ptr)
        fprintf_filtered (stream, ")");
       if (!demangled_args)
       if (passed_a_ptr)
        fprintf_filtered (stream, ")");
       if (!demangled_args)

-       fprintf_filtered (stream, "()");
+       { int i, len = TYPE_NFIELDS (type);
+         fprintf_filtered (stream, "(");
+         for (i = 0; i < len; i++)
+           {
+             if (i > 0)
+               {
+                 fputs_filtered (", ", stream);
+                 wrap_here ("    ");
+               }
+             c_print_type (TYPE_FIELD_TYPE (type, i), "", stream, -1, 0);
+           }
+         fprintf_filtered (stream, ")");
+       }

       c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
                                   passed_a_ptr, 0);
       break;
       c_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
                                   passed_a_ptr, 0);
       break;


@@ -431,6 +454,8 @@ c_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args)
     case TYPE_CODE_RANGE:
     case TYPE_CODE_STRING:
     case TYPE_CODE_BITSTRING:
     case TYPE_CODE_RANGE:
     case TYPE_CODE_STRING:
     case TYPE_CODE_BITSTRING:

+    case TYPE_CODE_COMPLEX:
+    case TYPE_CODE_TYPEDEF:

       /* These types do not need a suffix.  They are listed so that
         gcc -Wall will report types that may not have been considered.  */
       break;
       /* These types do not need a suffix.  They are listed so that
         gcc -Wall will report types that may not have been considered.  */
       break;


@@ -488,10 +513,11 @@ c_type_print_base (type, stream, show, level)
       return;
     }
 
       return;
     }
 

-  check_stub_type (type);
+  CHECK_TYPEDEF (type);

          
   switch (TYPE_CODE (type))
     {
          
   switch (TYPE_CODE (type))
     {

+    case TYPE_CODE_TYPEDEF:

     case TYPE_CODE_ARRAY:
     case TYPE_CODE_PTR:
     case TYPE_CODE_MEMBER:
     case TYPE_CODE_ARRAY:
     case TYPE_CODE_PTR:
     case TYPE_CODE_MEMBER:


@@ -556,8 +582,8 @@ c_type_print_base (type, stream, show, level)
            {
              QUIT;
              /* Don't print out virtual function table.  */
            {
              QUIT;
              /* Don't print out virtual function table.  */

-             if ((TYPE_FIELD_NAME (type, i))[5] == CPLUS_MARKER &&
-                 !strncmp (TYPE_FIELD_NAME (type, i), "_vptr", 5))
+             if (STREQN (TYPE_FIELD_NAME (type, i), "_vptr", 5)
+                 && is_cplus_marker ((TYPE_FIELD_NAME (type, i))[5]))

                continue;
 
              /* If this is a C++ class we can print the various C++ section
                continue;
 
              /* If this is a C++ class we can print the various C++ section


@@ -630,6 +656,14 @@ c_type_print_base (type, stream, show, level)
              int is_constructor = name && STREQ(method_name, name);
              for (j = 0; j < len2; j++)
                {
              int is_constructor = name && STREQ(method_name, name);
              for (j = 0; j < len2; j++)
                {

+                 char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);
+                 int is_full_physname_constructor = 
+                   ((physname[0]=='_' && physname[1]=='_' && 
+                     (isdigit(physname[2])
+                      || physname[2]=='Q'
+                      || physname[2]=='t'))
+                    || (strncmp(physname, "__ct__", 6) == 0));
+

                  QUIT;
                  if (TYPE_FN_FIELD_PROTECTED (f, j))
                    {
                  QUIT;
                  if (TYPE_FN_FIELD_PROTECTED (f, j))
                    {


@@ -669,10 +703,10 @@ c_type_print_base (type, stream, show, level)
                               TYPE_FN_FIELD_PHYSNAME (f, j));
                      break;
                    }
                               TYPE_FN_FIELD_PHYSNAME (f, j));
                      break;
                    }

-                 else if (!is_constructor)
+                 else if (!is_constructor && !is_full_physname_constructor)

                    {
                      type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)),
                    {
                      type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f, j)),

-                                 "", stream, 0);
+                                 "", stream, -1);

                      fputs_filtered (" ", stream);
                    }
                  if (TYPE_FN_FIELD_STUB (f, j))
                      fputs_filtered (" ", stream);
                    }
                  if (TYPE_FN_FIELD_STUB (f, j))


@@ -703,7 +737,7 @@ c_type_print_base (type, stream, show, level)
                      free (mangled_name);
                    }
                  else if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_'
                      free (mangled_name);
                    }
                  else if (TYPE_FN_FIELD_PHYSNAME (f, j)[0] == '_'

-                       && TYPE_FN_FIELD_PHYSNAME (f, j)[1] == CPLUS_MARKER)
+                         && is_cplus_marker (TYPE_FN_FIELD_PHYSNAME (f, j)[1]))

                    cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j) + 1,
                                               "~", method_name, 0, stream);
                  else
                    cp_type_print_method_args (TYPE_FN_FIELD_ARGS (f, j) + 1,
                                               "~", method_name, 0, stream);
                  else