OSDN Git Service

Prepend __ to implementation defined names.
[pf3gnuchains/gcc-fork.git] / gcc / genflags.c
index e91b45d..39b5354 100644 (file)
@@ -1,8 +1,8 @@
 /* Generate from machine description:
-
    - some flags HAVE_... saying which simple standard instructions are
    available for this machine.
-   Copyright (C) 1987, 1991, 1995 Free Software Foundation, Inc.
+   Copyright (C) 1987, 1991, 1995, 1998,
+   1999, 2000 Free Software Foundation, Inc.
 
 This file is part of GNU CC.
 
@@ -22,10 +22,11 @@ the Free Software Foundation, 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
 
-#include <stdio.h>
 #include "hconfig.h"
+#include "system.h"
 #include "rtl.h"
 #include "obstack.h"
+#include "errors.h"
 
 static struct obstack obstack;
 struct obstack *rtl_obstack = &obstack;
@@ -33,66 +34,79 @@ struct obstack *rtl_obstack = &obstack;
 #define obstack_chunk_alloc xmalloc
 #define obstack_chunk_free free
 
-extern void free ();
-extern rtx read_rtx ();
-
-char *xmalloc ();
-static void fatal ();
-void fancy_abort ();
-
-/* Names for patterns.  Need to allow linking with print-rtl.  */
-char **insn_name_ptr;
-
 /* Obstacks to remember normal, and call insns.  */
 static struct obstack call_obstack, normal_obstack;
 
 /* Max size of names encountered.  */
 static int max_id_len;
 
+/* Max operand encountered in a scan over some insn.  */
+static int max_opno;
+
+static void max_operand_1      PARAMS ((rtx));
+static int num_operands                PARAMS ((rtx));
+static void gen_proto          PARAMS ((rtx));
+static void gen_nonproto       PARAMS ((rtx));
+static void gen_insn           PARAMS ((rtx));
+
 /* Count the number of match_operand's found.  */
-static int
-num_operands (x)
+
+static void
+max_operand_1 (x)
      rtx x;
 {
-  int count = 0;
-  int i, j;
-  enum rtx_code code = GET_CODE (x);
-  char *format_ptr = GET_RTX_FORMAT (code);
+  register RTX_CODE code;
+  register int i;
+  register int len;
+  register const char *fmt;
+
+  if (x == 0)
+    return;
 
-  if (code == MATCH_OPERAND)
-    return 1;
+  code = GET_CODE (x);
 
-  if (code == MATCH_OPERATOR || code == MATCH_PARALLEL)
-    count++;
+  if (code == MATCH_OPERAND || code == MATCH_OPERATOR
+      || code == MATCH_PARALLEL)
+    max_opno = MAX (max_opno, XINT (x, 0));
 
-  for (i = 0; i < GET_RTX_LENGTH (code); i++)
+  fmt = GET_RTX_FORMAT (code);
+  len = GET_RTX_LENGTH (code);
+  for (i = 0; i < len; i++)
     {
-      switch (*format_ptr++)
+      if (fmt[i] == 'e' || fmt[i] == 'u')
+       max_operand_1 (XEXP (x, i));
+      else if (fmt[i] == 'E')
        {
-       case 'u':
-       case 'e':
-         count += num_operands (XEXP (x, i));
-         break;
-
-       case 'E':
-         if (XVEC (x, i) != NULL)
-           for (j = 0; j < XVECLEN (x, i); j++)
-             count += num_operands (XVECEXP (x, i, j));
-
-         break;
+         int j;
+         for (j = 0; j < XVECLEN (x, i); j++)
+           max_operand_1 (XVECEXP (x, i, j));
        }
     }
+}
+
+static int
+num_operands (insn)
+     rtx insn;
+{
+  register int len = XVECLEN (insn, 1);
+  register int i;
+
+  max_opno = -1;
+
+  for (i = 0; i < len; i++)
+    max_operand_1 (XVECEXP (insn, 1, i));
 
-  return count;
+  return max_opno + 1;
 }
 
 /* Print out prototype information for a function.  */
+
 static void
 gen_proto (insn)
      rtx insn;
 {
   int num = num_operands (insn);
-  printf ("extern rtx gen_%-*s PROTO((", max_id_len, XSTR (insn, 0));
+  printf ("extern rtx gen_%-*s PARAMS ((", max_id_len, XSTR (insn, 0));
 
   if (num == 0)
     printf ("void");
@@ -108,6 +122,7 @@ gen_proto (insn)
 }
 
 /* Print out a function declaration without a prototype.  */
+
 static void
 gen_nonproto (insn)
      rtx insn;
@@ -119,8 +134,8 @@ static void
 gen_insn (insn)
      rtx insn;
 {
-  char *name = XSTR (insn, 0);
-  char *p;
+  const char *name = XSTR (insn, 0);
+  const char *p;
   struct obstack *obstack_ptr;
   int len;
 
@@ -159,21 +174,25 @@ gen_insn (insn)
      call_value_pop) ignoring the extra arguments that are passed for
      some machines, so by default, turn off the prototype.  */
 
-  obstack_ptr = (name[0] == 'c'
+  obstack_ptr = ((name[0] == 'c' || name[0] == 's')
                 && (!strcmp (name, "call")
                     || !strcmp (name, "call_value")
                     || !strcmp (name, "call_pop")
-                    || !strcmp (name, "call_value_pop")))
+                    || !strcmp (name, "call_value_pop")
+                    || !strcmp (name, "sibcall")
+                    || !strcmp (name, "sibcall_value")
+                    || !strcmp (name, "sibcall_pop")
+                    || !strcmp (name, "sibcall_value_pop")))
     ? &call_obstack : &normal_obstack;
 
   obstack_grow (obstack_ptr, &insn, sizeof (rtx));
 }
 \f
-char *
+PTR
 xmalloc (size)
-     unsigned size;
+  size_t size;
 {
-  register char *val = (char *) malloc (size);
+  register PTR val = (PTR) malloc (size);
 
   if (val == 0)
     fatal ("virtual memory exhausted");
@@ -181,36 +200,23 @@ xmalloc (size)
   return val;
 }
 
-char *
-xrealloc (ptr, size)
-     char *ptr;
-     unsigned size;
+PTR
+xrealloc (old, size)
+  PTR old;
+  size_t size;
 {
-  char *result = (char *) realloc (ptr, size);
-  if (!result)
+  register PTR ptr;
+  if (old)
+    ptr = (PTR) realloc (old, size);
+  else
+    ptr = (PTR) malloc (size);
+  if (!ptr)
     fatal ("virtual memory exhausted");
-  return result;
-}
-
-static void
-fatal (s, a1, a2)
-     char *s;
-{
-  fprintf (stderr, "genflags: ");
-  fprintf (stderr, s, a1, a2);
-  fprintf (stderr, "\n");
-  exit (FATAL_EXIT_CODE);
+  return ptr;
 }
 
-/* More 'friendly' abort that prints the line and file.
-   config.h can #define abort fancy_abort if you like that sort of thing.  */
+extern int main PARAMS ((int, char **));
 
-void
-fancy_abort ()
-{
-  fatal ("Internal gcc abort.");
-}
-\f
 int
 main (argc, argv)
      int argc;
@@ -224,6 +230,7 @@ main (argc, argv)
   FILE *infile;
   register int c;
 
+  progname = "genflags";
   obstack_init (rtl_obstack);
   obstack_init (&call_obstack);
   obstack_init (&normal_obstack);
@@ -235,10 +242,9 @@ main (argc, argv)
   if (infile == 0)
     {
       perror (argv[1]);
-      exit (FATAL_EXIT_CODE);
+      return (FATAL_EXIT_CODE);
     }
-
-  init_rtl ();
+  read_rtx_filename = argv[1];
 
   printf ("/* Generated automatically by the program `genflags'\n\
 from the machine description file `md'.  */\n\n");
@@ -258,14 +264,13 @@ from the machine description file `md'.  */\n\n");
     }
 
   /* Print out the prototypes now.  */
-  dummy = (rtx)0;
+  dummy = (rtx) 0;
   obstack_grow (&call_obstack, &dummy, sizeof (rtx));
   call_insns = (rtx *) obstack_finish (&call_obstack);
 
   obstack_grow (&normal_obstack, &dummy, sizeof (rtx));
   normal_insns = (rtx *) obstack_finish (&normal_obstack);
 
-  printf ("\n#ifndef NO_MD_PROTOTYPES\n");
   for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++)
     gen_proto (*insn_ptr);
 
@@ -278,17 +283,15 @@ from the machine description file `md'.  */\n\n");
     gen_nonproto (*insn_ptr);
 
   printf ("#endif /* !MD_CALL_PROTOTYPES */\n");
-  printf ("\n#else  /* NO_MD_PROTOTYPES */\n");
-  for (insn_ptr = normal_insns; *insn_ptr; insn_ptr++)
-    gen_nonproto (*insn_ptr);
-
-  for (insn_ptr = call_insns; *insn_ptr; insn_ptr++)
-    gen_nonproto (*insn_ptr);
-
-  printf ("#endif  /* NO_MD_PROTOTYPES */\n");
 
   fflush (stdout);
-  exit (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
-  /* NOTREACHED */
-  return 0;
+  return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE);
+}
+
+/* Define this so we can link with print-rtl.o to get debug_rtx function.  */
+const char *
+get_insn_name (code)
+     int code ATTRIBUTE_UNUSED;
+{
+  return NULL;
 }