Changeset 604

Timestamp:

Aug 16, 2003, 4:51:55 PM (22 years ago)

Author:

zap

Message:

.

File:

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

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

@@ -31 +31 @@
 #include "flags.h"
 
+/* Prototypes */
+static const char *gen_stdcall_suffix (tree);
 
 /* The size of the target's pointer type.  */
@@ -38 +40 @@
 
 /** @todo remove debug code */
-/*#define BIRD_DEBUG*/
+#define BIRD_DEBUG
 #ifdef BIRD_DEBUG
 static const char *code(tree node)
@@ -67 +69 @@
 }
 
-void dump (tree node);
-void dump (tree node)
+static void dump (tree node);
+static void dump (tree node)
 {
     tree type, type2, context, name;
@@ -80 +82 @@
     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 ? TREE_CODE(type) : -1, code(type),
-            type2 ? TREE_CODE(type2) : -1, code(type2),
-            context ? TREE_CODE(context) : -1, code(context),
+            type ? (int)TREE_CODE(type) : -1, code(type),
+            type2 ? (int)TREE_CODE(type2) : -1, code(type2),
+            context ? (int)TREE_CODE(context) : -1, code(context),
             name ? IDENTIFIER_POINTER (name) : "<none>");
 }
@@ -119 +121 @@
                at least that's what I have understood from the docs). */
             /* @todo: verify the class detection here! Does it require use of
-                CLASSTYPE_DECLARED_CLASS (meaning it doesn't applies to plain
+                CLASSTYPE_DECLARED_CLASS (meaning it doesn't apply to plain
                 structs/unions) ? */
             if (   TREE_CODE (TREE_TYPE (*node)) != METHOD_TYPE
@@ -145 +147 @@
                underscore.
                For C++ we are not compatible. It doesn't make that much sense
-               either since we're not VFT compatible either. For simplisity
-               and safty we are removing the leading underscore from the
+               either since we're not VFT compatible either. For simplicity
+               and safety we are removing the leading underscore from the
                default mangled names to catch invalid declarations in the
                linking. */
@@ -159 +161 @@
             XEXP (DECL_RTL (*node), 0) = gen_rtx (SYMBOL_REF, Pmode,
               IDENTIFIER_POINTER (get_identifier (newsym)));
-            dfprintf((stderr, "dbg: optlink %s -> %s\n", oldsym, newsym));
+            dfprintf ((stderr, "dbg: optlink %s -> %s\n", oldsym, newsym));
           }
         else /* Internal error!!! */
           {
-            warning ("`%s' is an unknown attribute name for ix86_handle_vacpp_attribute()",
+            warning ("unexpected attribute `%s' in ix86_handle_vacpp_attribute()",
                      IDENTIFIER_POINTER (name));
             *no_add_attrs = true;
@@ -169 +171 @@
           }
 
-        /* The attribute should really be attached to our _TYPE,
-           not to the _DECL. (yeah, we need to do this!) */
+        /* The attribute should really be attached to our _TYPE
+           rather than to the _DECL. */
         type = TREE_TYPE (*node);
         TYPE_ATTRIBUTES (type) = chainon (TYPE_ATTRIBUTES (type),
@@ -181 +183 @@
          passing right. */
       case FIELD_DECL:
-        /* Struct, union or class member declaration. Same handling as
-           type declarations. */
+      /* Struct, union or class member declaration. Same handling as
+         type declarations. */
       case TYPE_DECL:
         /* If this is a type declaration with our attribute, we allow it
@@ -205 +207 @@
 
       /* For types involving functions we need to convince decl_attributes
-         (and it callers) to supply a declaration in case the mangling needs
+         (and its callers) to supply a declaration in case the mangling needs
          to be changed. */
       case POINTER_TYPE:
@@ -211 +213 @@
            This being the return type of a function which is coming soon.
            This being a function pointer which declaration is coming next.
-           Everything else is concidered inappropriate use of the attribute. */
+           Everything else is considered inappropriate use of the attribute. */
         if (   !(flags & ATTR_FLAG_FUNCTION_NEXT)
             && (    !(flags & ATTR_FLAG_DECL_NEXT)
@@ -218 +220 @@
                     && TREE_CODE (type) != METHOD_TYPE)))
         {
-            warning ("`%s' attribute only applies to functions and function types (typecode=%d)",
-                     IDENTIFIER_POINTER (name), type ? (int)TREE_CODE (type) : -1);
+            warning ("`%s' attribute only applies to functions and function types",
+                     IDENTIFIER_POINTER (name));
             *no_add_attrs = true;
             break;
@@ -226 +228 @@
       case FUNCTION_TYPE:
       case METHOD_TYPE:
+        /* This branch is taken when a function/method type is encountered.
+           We defer attribute handling until we get the complete declaration */
         *no_add_attrs = true;
         return tree_cons (name, args, NULL_TREE);
@@ -249 +253 @@
   data_section ();
   ASM_OUTPUT_ALIGN (asm_out_file, floor_log2 (PTR_SIZE));
-  fprintf (asm_out_file,
-           "\t.stabs\t\"___eh_frame__\",24,0,0,Lframe1\n" /* N_SETD */
-           "\t.stabs\t\"___ehInit\",1,0,0,0\n");          /* N_UNDEF | N_EXT */
+  fputs ("\t.stabs\t\"___eh_frame__\",24,0,0,Lframe1\n" /* N_SETD */
+         "\t.stabs\t\"___ehInit\",1,0,0,0\n",  /* N_UNDEF | N_EXT */
+         asm_out_file);
 }
 
@@ -273 +277 @@
    arguments */
 
-const char *
+static const char *
 gen_stdcall_suffix (tree decl)
 {