URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [libiberty/] [testsuite/] [test-demangle.c] - Rev 416
Go to most recent revision | Compare with Previous | Blame | View Log
/* Demangler test program, Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. Written by Zack Weinberg <zack@codesourcery.com This file is part of GNU libiberty. 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 Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 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, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "ansidecl.h" #include <stdio.h> #include "libiberty.h" #include "demangle.h" #ifdef HAVE_STRING_H #include <string.h> #endif #if HAVE_STDLIB_H # include <stdlib.h> #endif struct line { size_t alloced; char *data; }; static unsigned int lineno; /* Safely read a single line of arbitrary length from standard input. */ #define LINELEN 80 static void getline(buf) struct line *buf; { char *data = buf->data; size_t alloc = buf->alloced; size_t count = 0; int c; if (data == 0) { data = xmalloc (LINELEN); alloc = LINELEN; } /* Skip comment lines. */ while ((c = getchar()) == '#') { while ((c = getchar()) != EOF && c != '\n'); lineno++; } /* c is the first character on the line, and it's not a comment line: copy this line into the buffer and return. */ while (c != EOF && c != '\n') { if (count + 1 >= alloc) { alloc *= 2; data = xrealloc (data, alloc); } data[count++] = c; c = getchar(); } lineno++; data[count] = '\0'; buf->data = data; buf->alloced = alloc; } static void fail (lineno, opts, in, out, exp) int lineno; const char *opts; const char *in; const char *out; const char *exp; { printf ("\ FAIL at line %d, options %s:\n\ in: %s\n\ out: %s\n\ exp: %s\n", lineno, opts, in, out != NULL ? out : "(null)", exp); } /* The tester operates on a data file consisting of groups of lines: options input to be demangled expected output Supported options: --format=<name> Sets the demangling style. --no-params There are two lines of expected output; the first is with DMGL_PARAMS, the second is without it. --is-v3-ctor Calls is_gnu_v3_mangled_ctor on input; expected output is an integer representing ctor_kind. --is-v3-dtor Likewise, but for dtors. --ret-postfix Passes the DMGL_RET_POSTFIX option For compatibility, just in case it matters, the options line may be empty, to mean --format=auto. If it doesn't start with --, then it may contain only a format name. */ int main(argc, argv) int argc; char **argv; { enum demangling_styles style = auto_demangling; int no_params; int is_v3_ctor; int is_v3_dtor; int ret_postfix; struct line format; struct line input; struct line expect; char *result; int failures = 0; int tests = 0; if (argc > 1) { fprintf (stderr, "usage: %s < test-set\n", argv[0]); return 2; } format.data = 0; input.data = 0; expect.data = 0; for (;;) { getline (&format); if (feof (stdin)) break; getline (&input); getline (&expect); tests++; no_params = 0; ret_postfix = 0; is_v3_ctor = 0; is_v3_dtor = 0; if (format.data[0] == '\0') style = auto_demangling; else if (format.data[0] != '-') { style = cplus_demangle_name_to_style (format.data); if (style == unknown_demangling) { printf ("FAIL at line %d: unknown demangling style %s\n", lineno, format.data); failures++; continue; } } else { char *p; char *opt; p = format.data; while (*p != '\0') { char c; opt = p; p += strcspn (p, " \t="); c = *p; *p = '\0'; if (strcmp (opt, "--format") == 0 && c == '=') { char *fstyle; *p = c; ++p; fstyle = p; p += strcspn (p, " \t"); c = *p; *p = '\0'; style = cplus_demangle_name_to_style (fstyle); if (style == unknown_demangling) { printf ("FAIL at line %d: unknown demangling style %s\n", lineno, fstyle); failures++; continue; } } else if (strcmp (opt, "--no-params") == 0) no_params = 1; else if (strcmp (opt, "--is-v3-ctor") == 0) is_v3_ctor = 1; else if (strcmp (opt, "--is-v3-dtor") == 0) is_v3_dtor = 1; else if (strcmp (opt, "--ret-postfix") == 0) ret_postfix = 1; else { printf ("FAIL at line %d: unrecognized option %s\n", lineno, opt); failures++; continue; } *p = c; p += strspn (p, " \t"); } } if (is_v3_ctor || is_v3_dtor) { char buf[20]; if (is_v3_ctor) { enum gnu_v3_ctor_kinds kc; kc = is_gnu_v3_mangled_ctor (input.data); sprintf (buf, "%d", (int) kc); } else { enum gnu_v3_dtor_kinds kd; kd = is_gnu_v3_mangled_dtor (input.data); sprintf (buf, "%d", (int) kd); } if (strcmp (buf, expect.data) != 0) { fail (lineno, format.data, input.data, buf, expect.data); failures++; } continue; } cplus_demangle_set_style (style); result = cplus_demangle (input.data, DMGL_PARAMS|DMGL_ANSI|DMGL_TYPES |(ret_postfix ? DMGL_RET_POSTFIX : 0)); if (result ? strcmp (result, expect.data) : strcmp (input.data, expect.data)) { fail (lineno, format.data, input.data, result, expect.data); failures++; } free (result); if (no_params) { getline (&expect); result = cplus_demangle (input.data, DMGL_ANSI|DMGL_TYPES); if (result ? strcmp (result, expect.data) : strcmp (input.data, expect.data)) { fail (lineno, format.data, input.data, result, expect.data); failures++; } free (result); } } free (format.data); free (input.data); free (expect.data); printf ("%s: %d tests, %d failures\n", argv[0], tests, failures); return failures ? 1 : 0; }
Go to most recent revision | Compare with Previous | Blame | View Log