Changeset 589

Timestamp:

Aug 12, 2003, 2:13:57 PM (22 years ago)

Author:

bird

Message:

#572,#570: typedef void (* _Optlink PFN)(void *pvThis);

File:

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

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

@@ -35 +35 @@
 #define PTR_SIZE (POINTER_SIZE / BITS_PER_UNIT)
 #endif
+#if 0 /* debug */
+const char *code(tree node)
+{
+    if (node)
+    {
+        switch (TREE_CODE (node))
+        {
+            case FUNCTION_TYPE: return "FUNCTION_TYPE";
+            case FUNCTION_DECL: return "FUNCTION_DECL";
+            case METHOD_TYPE:   return "METHOD_TYPE"; 
+            case FIELD_DECL:    return "FIELD_DECL"; 
+            case TYPE_DECL:     return "TYPE_DECL"; 
+            case POINTER_TYPE:  return "POINTER_TYPE"; 
+            case VOID_TYPE:  return "VOID_TYPE"; 
+            case INTEGER_TYPE:  return "INTEGER_TYPE"; 
+            case CHAR_TYPE:  return "CHAR_TYPE"; 
+            case SET_TYPE:  return "SET_TYPE"; 
+            case ARRAY_TYPE:  return "ARRAY_TYPE"; 
+            case RECORD_TYPE:  return "RECORD_TYPE"; 
+            case QUAL_UNION_TYPE:  return "QUAL_UNION_TYPE"; 
+            case UNION_TYPE:  return "UNION_TYPE"; 
+            default:
+                break;
+        }
+    }
+    return "";
+}
+
+void dump (tree node)
+{
+    const char *psz = "";
+    tree        type = TREE_TYPE (node);
+    tree        type2 = type ? TREE_TYPE(type) : NULL;
+
+    fprintf(stderr, "dbg: node=%d %s type=%d %s type_type=%d %s\n", 
+            TREE_CODE(node), code(node),
+            type ? TREE_CODE(type) : -1, code(type),
+            type2 ? TREE_CODE(type2) : -1, code(type2));
+}
+#endif 
 
 tree ix86_handle_system_attribute (tree *node, tree name, tree args,
@@ -46 +86 @@
   (void)args; (void)flags;
 
+  type = TREE_TYPE (*node);
   if (DECL_P (*node))
-    switch (TREE_CODE (type = TREE_TYPE (*node)))
+    switch (TREE_CODE (type))
       {
         case FUNCTION_TYPE:
@@ -75 +116 @@
           goto warn;
       }
+  else if (TREE_CODE (*node) == POINTER_TYPE && type)
+    { /* Pointer-to-a-function type is allowed */
+      switch (TREE_CODE (type))
+        {
+          case FUNCTION_TYPE:
+          case METHOD_TYPE:
+            break;
+          default:
+            goto warn;
+        }
+    }
   else
     {
@@ -80 +132 @@
                IDENTIFIER_POINTER (name));
       *no_add_attrs = true;
+      /*dump(*node); */
     }
 
@@ -88 +141 @@
   int flags, bool *no_add_attrs)
 {
-  tree id, type;
+  tree id, type, typeset;
   size_t sl;
   const char *oldsym;
@@ -95 +148 @@
   (void)args; (void)flags;
 
+  typeset = NULL;
+  type = TREE_TYPE (*node);
   if (DECL_P (*node))
-    switch (TREE_CODE (type = TREE_TYPE (*node)))
+    switch (TREE_CODE (type))
       {
         case FUNCTION_TYPE:
         case METHOD_TYPE:
-        case FIELD_DECL:
-        case TYPE_DECL:
+          typeset = type;
+        case FIELD_DECL:                /* how come these needs mangling? */
+        case TYPE_DECL:                 /* how come? */
           id = DECL_ASSEMBLER_NAME (*node);
           /* Remove the leading underscore */
@@ -118 +174 @@
             goto warn;
 /*@@@@@todo: not finished*/
+          typeset = type;
           break;
         default:
           goto warn;
       }
+  else if (TREE_CODE (*node) == POINTER_TYPE && type)
+    { /* Pointer-to-a-function type is allowed */
+      switch (TREE_CODE (type))
+        {
+          case FUNCTION_TYPE:
+          case METHOD_TYPE:
+            typeset = type;
+            break;
+          default:
+            goto warn;
+        }
+    }
   else
     {
@@ -127 +196 @@
                IDENTIFIER_POINTER (name));
       *no_add_attrs = true;
+      /*dump(*node); */
+    }
+
+  /* attach attribute to type. */
+  if (typeset)
+    {
+      id = tree_cons (name, args, NULL_TREE);
+      TYPE_ATTRIBUTES (typeset) = chainon (TYPE_ATTRIBUTES (typeset), id);
+      return id;
     }