Add code to handle TAG_pointer_type DIE's (DWARF Information Entries)

that are produced by the i486/SVR4 MetaWare compiler, but not by the
AT&T or GCC compilers.

2 files changed, 54 insertions, 0 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fe70698..ee80854 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 Mon Feb 17 07:13:27 1992  Fred Fish  (fnf at cygnus.com)
 
+	* dwarfread.c (process_dies):  Add case to handle TAG_pointer_type
+	DIE's.  Add new function read_tag_pointer_type() to read them.
+
 	* dwarfread.c (dwarf_read_array_type, read_subroutine_type):
 	When creating a new user defined type, check to see if a partial
 	type already exists, and if so, bash it to fit.
diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c
index 68b479d..a5496fc 100644
--- a/gdb/dwarfread.c
+++ b/gdb/dwarfread.c
@@ -331,6 +331,9 @@ static void
 EXFUN(dwarf_read_array_type, (struct dieinfo *dip));
 
 static void
+EXFUN(read_tag_pointer_type, (struct dieinfo *dip));
+
+static void
 EXFUN(read_subroutine_type,
      (struct dieinfo *dip AND char *thisdie AND char *enddie));
 
@@ -1209,6 +1212,51 @@ DEFUN(dwarf_read_array_type, (dip), struct dieinfo *dip)
 
 LOCAL FUNCTION
 
+	read_tag_pointer_type -- read TAG_pointer_type DIE
+
+SYNOPSIS
+
+	static void read_tag_pointer_type (struct dieinfo *dip)
+
+DESCRIPTION
+
+	Extract all information from a TAG_pointer_type DIE and add to
+	the user defined type vector.
+ */
+
+static void
+DEFUN(read_tag_pointer_type, (dip), struct dieinfo *dip)
+{
+  struct type *type;
+  struct type *utype;
+  char *sub;
+  char *subend;
+  short temp;
+  
+  type = decode_die_type (dip);
+  if ((utype = lookup_utype (dip -> dieref)) == NULL)
+    {
+      utype = lookup_pointer_type (type);
+      (void) alloc_utype (dip -> dieref, utype);
+    }
+  else
+    {
+      TYPE_TARGET_TYPE (utype) = type;
+      TYPE_POINTER_TYPE (type) = utype;
+
+      /* We assume the machine has only one representation for pointers!  */
+      /* FIXME:  This confuses host<->target data representations, and is a
+	 poor assumption besides. */
+      
+      TYPE_LENGTH (utype) = sizeof (char *);
+      TYPE_CODE (utype) = TYPE_CODE_PTR;
+    }
+}
+
+/*
+
+LOCAL FUNCTION
+
 	read_subroutine_type -- process TAG_subroutine_type dies
 
 SYNOPSIS
@@ -1623,6 +1671,9 @@ DEFUN(process_dies, (thisdie, enddie, objfile),
 	    case TAG_array_type:
 	      dwarf_read_array_type (&di);
 	      break;
+	    case TAG_pointer_type:
+	      read_tag_pointer_type (&di);
+	      break;
 	    default:
 	      (void) new_symbol (&di);
 	      break;