Changeset 2253 for trunk

Timestamp:

Jul 16, 2005, 4:47:00 AM (20 years ago)

Author:

bird

Message:

More dumping improvements.

File:

• trunk/src/gcc/gcc/config/i386/emx.c (modified) (2 diffs, 1 prop)

trunk/src/gcc/gcc/config/i386/emx.c

@@ -102 +102 @@
 }
 
+const char *birddump_name(tree node);
+const char *birddump_name(tree node)
+{
+    tree name = NULL_TREE;
+    if (node == NULL_TREE)
+        name = NULL_TREE;
+    else if (DECL_P(node))
+        name = DECL_NAME(node);
+    else if (TYPE_P(node))
+    {
+        name = TYPE_NAME(node);
+        if (TREE_CODE(node) == RECORD_TYPE && DECL_NAME(name))
+            name = DECL_NAME(name);
+    }
+    if (name != NULL_TREE)
+        return IDENTIFIER_POINTER(name);
+    return "<none>";
+}
+
 void birddump (tree node, const char *pszFunction)
 {
-    tree type, type2, context, name, tname;
+    tree type, type2, context;
     if (!node)
         return;
 
-    name = DECL_P (node) ? DECL_NAME (node) : TYPE_P (node) ? TYPE_NAME (node) : NULL_TREE;
     type = TREE_TYPE (node);
-    tname = type ? TYPE_NAME (type) : NULL_TREE;
-    type2 = type ? TREE_TYPE(type) : NULL_TREE;
+    type2 = type ? TREE_TYPE (type) : NULL_TREE;
     context = DECL_P (node) ? DECL_CONTEXT (node) : NULL_TREE;
 
-    fprintf(stderr, "dbg: node=%d %s %p %s '%s'  type=%d %s %p %s '%s'  type_type=%d %s %p %s  context=%d %s %p %s (%s)\n",
-            TREE_CODE(node), code(node), (void*)node, birddump_callingconv(node), name ? IDENTIFIER_POINTER (name) : "<none>",
-            type ? (int)TREE_CODE(type) : -1, code(type), (void*)type, birddump_callingconv(type), tname ? IDENTIFIER_POINTER (tname) : "<none>",
-            type2 ? (int)TREE_CODE(type2) : -1, code(type2), (void*)type2, birddump_callingconv(type2),
-            context ? (int)TREE_CODE(context) : -1, code(context), (void*)context, birddump_callingconv(context),
+    fprintf(stderr, "dbg: node=%d %s %p %s '%s'  type=%d %s %p %s '%s'  type_type=%d %s %p %s '%s'  context=%d %s %p %s '%s' (%s)\n",
+            TREE_CODE(node), code(node), (void*)node, birddump_callingconv(node), birddump_name(node),
+            type ? (int)TREE_CODE(type) : -1, code(type), (void*)type, birddump_callingconv(type), birddump_name (type),
+            type2 ? (int)TREE_CODE(type2) : -1, code(type2), (void*)type2, birddump_callingconv(type2), birddump_name (type2),
+            context ? (int)TREE_CODE(context) : -1, code(context), (void*)context, birddump_callingconv(context), birddump_name (context),
             pszFunction);
 }
@@ -535 +552 @@
 {
   tree node = *pnode;
-  dfprintf((stderr, "trace: ix86_handle_dll_attribute\n"));
+  dfprintf ((stderr, "trace: ix86_handle_dll_attribute: *pnode=%p name=%p:{%s} args=%p flags=%x\n", 
+             *pnode, name, IDENTIFIER_POINTER (name), args, flags));
   DUMP (node);