Changeset 666

Timestamp:

Sep 9, 2003, 1:17:27 AM (22 years ago)

Author:

bird

Message:

#572: Fixing calling conventions again... not 100 cleaned up yet.

Location:

trunk/src/gcc/gcc/config/i386

Files:

• emx.c (modified) (7 diffs, 1 prop)
• i386.c (modified) (7 diffs, 1 prop)

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

@@ -31 +31 @@
 #include "flags.h"
 #include "i386-protos.h"
+
 
 /* The size of the target's pointer type.  */
@@ -72 +73 @@
 }
 
-static void dump (tree node);
-static void dump (tree node)
+const char *birddump_callingconv(tree node);
+const char *birddump_callingconv(tree node)
+{
+    static const char *apsz[] = {"system", "optlink", "stdcall"};
+    static const char *psznone = "none";
+    static const char *pszdefault = "default";
+    tree        attr;
+    unsigned    i;
+
+    if (!node)
+        return psznone;
+
+    attr = (DECL_P (node) ? DECL_ATTRIBUTES (node) : TYPE_ATTRIBUTES (node));
+    if (!attr)
+        return pszdefault;
+
+    for (i = 0; i < sizeof(apsz) / sizeof(apsz[0]); i++)
+        if (node && attr && lookup_attribute (apsz[i], attr))
+            return apsz[i];
+
+    return pszdefault;
+}
+
+void birddump (tree node);
+void birddump (tree node)
 {
     tree type, type2, context, name;
@@ -83 +107 @@
     context = DECL_P (node) ? DECL_CONTEXT (node) : NULL_TREE;
     name = DECL_P (node) ? DECL_NAME (node) : NULL_TREE;
-    fprintf(stderr, "dbg: node=%d %s type=%d %s type_type=%d %s context=%d %s name=%s\n",
-            TREE_CODE(node), code(node),
-            type ? (int)TREE_CODE(type) : -1, code(type),
-            type2 ? (int)TREE_CODE(type2) : -1, code(type2),
-            context ? (int)TREE_CODE(context) : -1, code(context),
+
+    fprintf(stderr, "dbg: node=%d %s %p %s  type=%d %s %p %s  type_type=%d %s %p %s  context=%d %s %p  name=%s\n",
+            TREE_CODE(node), code(node), (void*)node, birddump_callingconv(node),
+            type ? (int)TREE_CODE(type) : -1, code(type), (void*)type, birddump_callingconv(type),
+            type2 ? (int)TREE_CODE(type2) : -1, code(type2), (void*)type2, birddump_callingconv(type2),
+            context ? (int)TREE_CODE(context) : -1, code(context), (void*)context,
             name ? IDENTIFIER_POINTER (name) : "<none>");
 }
 
 #define dfprintf(a) fprintf a
-#define DUMP(node) dump(node)
+#define DUMP(node) dump(node)
 #else
 #define dfprintf(a) do {} while (0)
@@ -112 +137 @@
     return 0;
 
+
+
+
+
+
+
+
   recurse++;
-
   type = TREE_TYPE (decl);
 
@@ -205 +236 @@
 }
 
+
+
+
 tree emx_handle_vacpp_attribute (tree *node, tree name, tree args,
   int flags, bool *no_add_attrs)
 {
+
   (void) args;
   (void) flags;
 
+
   DUMP (*node);
 
@@ -233 +269 @@
     return NULL_TREE;
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
   return NULL_TREE;
 }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 void
@@ -265 +419 @@
   }
 }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

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

@@ -1273 +1273 @@
 {
   /* { name, min_len, max_len, decl_req, type_req, fn_type_req, handler } */
+
+
+
+
+
+
+
   /* Stdcall attribute says callee is responsible for popping arguments
      if they are not variable.  */
@@ -1278 +1285 @@
   /* Cdecl attribute says the callee is a normal C declaration */
   { "cdecl",     0, 0, false, true,  true,  ix86_handle_cdecl_attribute },
+
   /* Regparm attribute specifies how many integer arguments are to be
      passed in registers.  */
@@ -1286 +1294 @@
   { "shared",    0, 0, true,  false, false, ix86_handle_shared_attribute },
 #endif
+
+
+
+
+
+
+
+
+
+
 #ifdef TARGET_SYSTEM_DECL_ATTRIBUTES
   /* System says the function is extern "C" and is not underscored. */
@@ -1293 +1311 @@
   /* Optlink is like regparm with a few differences */
   { "optlink",   0, 0, false, true,  true,  ix86_handle_optlink_attribute },
+
 #endif
   { NULL,        0, 0, false, false, false, NULL }
@@ -1558 +1577 @@
   unsigned i, cc1 = 0, cc2 = 0;
 
-  /* The following calling conventions have meaning only for functions */
-  if (TREE_CODE (type1) != FUNCTION_TYPE)
+  /* The following calling conventions have meaning only for functions,
+     methods and pointers to such. */
+  if (TREE_CODE (type1) == POINTER_TYPE)
+      type1 = TREE_TYPE(type1);
+  if (TREE_CODE (type2) == POINTER_TYPE)
+      type2 = TREE_TYPE(type2);
+  if (   TREE_CODE (type1) != FUNCTION_TYPE
+      && TREE_CODE (type1) != METHOD_TYPE
+      && TREE_CODE (type2) != FUNCTION_TYPE
+      && TREE_CODE (type2) != METHOD_TYPE)
     return 1;
 
-/*@@@todo: this doesn't work yet because of some bug somewhere inside gcc.
-testcase for both C and C++:
-  void f (); static void (* _Optlink x) () = f;           <-- compiles ok
-testcase for C++:
-  void _Optlink f (); static void (* _Optlink x) () = f;  <-- bad types
-*/
-#if __ANNOYING_BUG_IN_GCC_IS_FINALLY_FIXED
   /* The function may have only one calling convention.
    * For simplicity we translate the calling conversion attribute
@@ -1576 +1596 @@
    * (e.g. issue a warning but allow the operation).
    */
-
   for (i = 0; ix86_attribute_table [i].name; i++)
     if (ix86_attribute_codes [i] & IX86_ATTR_TYPE_CALLCONV)
@@ -1601 +1620 @@
   /* They are nearly compatible */
   return 2;
-#else
-  return 1;
-#endif
 }