X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fgen-protos.c;h=b8fa31bfe1c37933ab9e294c394346563aa56c03;hb=e899394fb23ac27aa81b27136052a13e7f2b840d;hp=094ce2a4fca6a918b9fc92a2bb5f3876eb7f5447;hpb=795a25e1bce4f91bfc5a343bd2f5eee4b9be0ef2;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/gen-protos.c b/gcc/gen-protos.c index 094ce2a4fca..b8fa31bfe1c 100644 --- a/gcc/gen-protos.c +++ b/gcc/gen-protos.c @@ -1,5 +1,6 @@ /* gen-protos.c - massages a list of prototypes, for use by fixproto. - Copyright (C) 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1998, + 1999, 2003, 2004 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the @@ -13,49 +14,143 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software -Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ +Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -#include -#include -#include "hconfig.h" +#include "bconfig.h" +#include "system.h" +#include "coretypes.h" +#include "tm.h" #include "scan.h" +#include "errors.h" -#define HASH_SIZE 2503 /* a prime */ +int verbose = 0; +static void add_hash (const char *); +static int parse_fn_proto (char *, char *, struct fn_decl *); + +#define HASH_SIZE 2503 /* a prime */ int hash_tab[HASH_SIZE]; -int verbose = 0; +int next_index; +int collisions; + +static void +add_hash (const char *fname) +{ + int i, i0; + + /* NOTE: If you edit this, also edit lookup_std_proto in fix-header.c !! */ + i = hashstr (fname, strlen (fname)) % HASH_SIZE; + i0 = i; + if (hash_tab[i] != 0) + { + collisions++; + for (;;) + { + i = (i+1) % HASH_SIZE; + gcc_assert (i != i0); + if (hash_tab[i] == 0) + break; + } + } + hash_tab[i] = next_index; + + next_index++; +} -sstring linebuf; +/* Given a function prototype, fill in the fields of FN. + The result is a boolean indicating if a function prototype was found. -/* Avoid error if config defines abort as fancy_abort. - It's not worth "really" implementing this because ordinary - compiler users never run fix-header. */ + The input string is modified (trailing NULs are inserted). + The fields of FN point to the input string. */ -void -fancy_abort () +static int +parse_fn_proto (char *start, char *end, struct fn_decl *fn) { - abort (); + char *ptr; + int param_nesting = 1; + char *param_start, *param_end, *decl_start, *name_start, *name_end; + + ptr = end - 1; + while (*ptr == ' ' || *ptr == '\t') ptr--; + if (*ptr-- != ';') + { + fprintf (stderr, "Funny input line: %s\n", start); + return 0; + } + while (*ptr == ' ' || *ptr == '\t') ptr--; + if (*ptr != ')') + { + fprintf (stderr, "Funny input line: %s\n", start); + return 0; + } + param_end = ptr; + for (;;) + { + int c = *--ptr; + if (c == '(' && --param_nesting == 0) + break; + else if (c == ')') + param_nesting++; + } + param_start = ptr+1; + + ptr--; + while (*ptr == ' ' || *ptr == '\t') ptr--; + + if (!ISALNUM ((unsigned char)*ptr)) + { + if (verbose) + fprintf (stderr, "%s: Can't handle this complex prototype: %s\n", + progname, start); + return 0; + } + name_end = ptr+1; + + while (ISIDNUM (*ptr)) + --ptr; + name_start = ptr+1; + while (*ptr == ' ' || *ptr == '\t') ptr--; + ptr[1] = 0; + *param_end = 0; + *name_end = 0; + + decl_start = start; + if (strncmp (decl_start, "typedef ", 8) == 0) + return 0; + if (strncmp (decl_start, "extern ", 7) == 0) + decl_start += 7; + + fn->fname = name_start; + fn->rtype = decl_start; + fn->params = param_start; + return 1; } int -main (argc, argv) - int argc; - char** argv; +main (int argc ATTRIBUTE_UNUSED, char **argv) { FILE *inf = stdin; FILE *outf = stdout; - int next_index = 0; - int i, i0; + int i; + sstring linebuf; + struct fn_decl fn_decl; + + i = strlen (argv[0]); + while (i > 0 && argv[0][i-1] != '/') --i; + progname = &argv[0][i]; + + INIT_SSTRING (&linebuf); fprintf (outf, "struct fn_decl std_protos[] = {\n"); + /* A hash table entry of 0 means "unused" so reserve it. */ + fprintf (outf, " {\"\", \"\", \"\", 0},\n"); + next_index = 1; + for (;;) { int c = skip_spaces (inf, ' '); - int param_nesting = 1; - char *param_start, *param_end, *decl_start, - *name_start, *name_end; - register char *ptr; + if (c == EOF) break; linebuf.ptr = linebuf.base; @@ -66,83 +161,18 @@ main (argc, argv) if (linebuf.base[0] == '\0') /* skip empty line */ continue; - ptr = linebuf.ptr - 1; - while (*ptr == ' ' || *ptr == '\t') ptr--; - if (*ptr-- != ';') - { - fprintf (stderr, "Funny input line: %s\n", linebuf.base); - continue; - } - while (*ptr == ' ' || *ptr == '\t') ptr--; - if (*ptr != ')') - { - fprintf (stderr, "Funny input line: %s\n", linebuf.base); - continue; - } - param_end = ptr; - for (;;) - { - int c = *--ptr; - if (c == '(' && --param_nesting == 0) - break; - else if (c == ')') - param_nesting++; - } - param_start = ptr+1; - - ptr--; - while (*ptr == ' ' || *ptr == '\t') ptr--; - - if (!isalnum (*ptr)) - { - if (verbose) - fprintf (stderr, "%s: Can't handle this complex prototype: %s\n", - argv[0], linebuf.base); - continue; - } - name_end = ptr+1; - - while (isalnum (*ptr) || *ptr == '_') --ptr; - name_start = ptr+1; - while (*ptr == ' ' || *ptr == '\t') ptr--; - ptr[1] = 0; - *name_end = 0; - *param_end = 0; - *name_end = 0; - - decl_start = linebuf.base; - if (strncmp (decl_start, "typedef ", 8) == 0) + if (! parse_fn_proto (linebuf.base, linebuf.ptr, &fn_decl)) continue; - if (strncmp (decl_start, "extern ", 7) == 0) - decl_start += 7; - - - /* NOTE: If you edit this, - also edit lookup_std_proto in fix-header.c !! */ - i = hash (name_start) % HASH_SIZE; - i0 = i; - if (hash_tab[i] != 0) - { - for (;;) - { - i = (i+1) % HASH_SIZE; - if (i == i0) - abort (); - if (hash_tab[i] == 0) - break; - } - } - hash_tab[i] = next_index; - fprintf (outf, " {\"%s\", \"%s\", \"%s\" },\n", - name_start, decl_start, param_start); + add_hash (fn_decl.fname); - next_index++; + fprintf (outf, " {\"%s\", \"%s\", \"%s\", 0},\n", + fn_decl.fname, fn_decl.rtype, fn_decl.params); if (c == EOF) break; } - fprintf (outf, "{0, 0, 0}\n};\n"); + fprintf (outf, " {0, 0, 0, 0}\n};\n"); fprintf (outf, "#define HASH_SIZE %d\n", HASH_SIZE); @@ -151,5 +181,8 @@ main (argc, argv) fprintf (outf, " %d,\n", hash_tab[i]); fprintf (outf, "};\n"); + fprintf (stderr, "gen-protos: %d entries %d collisions\n", + next_index, collisions); + return 0; }