From 49411102ab6ef673dd2aa8afb0df641f2c908d14 Mon Sep 17 00:00:00 2001
From: roland <roland>
Date: Sat, 27 Aug 2005 20:45:57 +0000
Subject: 2005-08-27  Roland McGrath  <roland@redhat.com>

	* loc2c-test.c (print_type): New function.
	(print_vars): Use it.
---
 loc2c-test.c | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 51 insertions(+), 1 deletion(-)

(limited to 'loc2c-test.c')

diff --git a/loc2c-test.c b/loc2c-test.c
index 908d68b6..6a4c7f9d 100644
--- a/loc2c-test.c
+++ b/loc2c-test.c
@@ -290,6 +290,49 @@ paddr (const char *prefix, Dwarf_Addr addr, Dwfl_Line *line)
     printf ("%s%#" PRIx64, prefix, addr);
 }
 
+static void
+print_type (Dwarf_Die *typedie, char space)
+{
+  if (typedie == NULL)
+    printf ("%c<no type>", space);
+  else
+    {
+      const char *name = dwarf_diename (typedie);
+      if (name != NULL)
+	printf ("%c%s", space, name);
+      else
+	{
+	  Dwarf_Attribute attr_mem;
+	  Dwarf_Die die_mem;
+	  Dwarf_Die *die = dwarf_formref_die
+	    (dwarf_attr_integrate (typedie, DW_AT_type, &attr_mem), &die_mem);
+	  int tag = dwarf_tag (typedie);
+	  switch (tag)
+	  {
+	  case DW_TAG_pointer_type:
+	    print_type (die, space);
+	    putchar ('*');
+	    break;
+	  case DW_TAG_array_type:
+	    print_type (die, space);
+	    printf ("[]");
+	    break;
+	  case DW_TAG_const_type:
+	    print_type (die, space);
+	    printf (" const");
+	    break;
+	  case DW_TAG_volatile_type:
+	    print_type (die, space);
+	    printf (" volatile");
+	    break;
+	  default:
+	    printf ("%c<unknown %#x>", space, tag);
+	    break;
+	  }
+	}
+    }
+}
+
 static void
 print_vars (unsigned int indent, Dwarf_Die *die)
 {
@@ -300,9 +343,16 @@ print_vars (unsigned int indent, Dwarf_Die *die)
 	{
 	case DW_TAG_variable:
 	case DW_TAG_formal_parameter:
-	  printf ("%*s%-30s[%6" PRIx64 "]\n", indent, "",
+	  printf ("%*s%-30s[%6" PRIx64 "]", indent, "",
 		  dwarf_diename (&child),
 		  (uint64_t) dwarf_dieoffset (&child));
+	  Dwarf_Attribute attr_mem;
+	  Dwarf_Die typedie_mem;
+	  Dwarf_Die *typedie = dwarf_formref_die
+	    (dwarf_attr_integrate (&child, DW_AT_type, &attr_mem),
+	     &typedie_mem);
+	  print_type (typedie, '\t');
+	  puts ("");
 	  break;
 	default:
 	  break;
-- 
cgit