URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [d-lang.c] - Rev 522
Go to most recent revision | Compare with Previous | Blame | View Log
/* D language support routines for GDB, the GNU debugger. Copyright (C) 2005, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. This file is part of GDB. 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 3 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, see <http://www.gnu.org/licenses/>. */ #include "defs.h" #include "symtab.h" #include "language.h" #include "d-lang.h" #include "c-lang.h" #include "gdb_string.h" #include "parser-defs.h" #include "gdb_obstack.h" #include <ctype.h> /* Extract identifiers from MANGLED_STR and append it to TEMPBUF. Return 1 on success or 0 on failure. */ static int extract_identifiers (const char *mangled_str, struct obstack *tempbuf) { long i = 0; while (isdigit (*mangled_str)) { char *end_ptr; i = strtol (mangled_str, &end_ptr, 10); mangled_str = end_ptr; if (i <= 0 || strlen (mangled_str) < i) return 0; obstack_grow (tempbuf, mangled_str, i); mangled_str += i; obstack_grow_str (tempbuf, "."); } if (*mangled_str == '\0' || i == 0) return 0; obstack_blank (tempbuf, -1); return 1; } /* Extract and demangle type from MANGLED_STR and append it to TEMPBUF. Return 1 on success or 0 on failure. */ static int extract_type_info (const char *mangled_str, struct obstack *tempbuf) { if (*mangled_str == '\0') return 0; switch (*mangled_str++) { case 'A': /* dynamic array */ case 'G': /* static array */ case 'H': /* associative array */ if (!extract_type_info (mangled_str, tempbuf)) return 0; obstack_grow_str (tempbuf, "[]"); return 1; case 'P': /* pointer */ if (!extract_type_info (mangled_str, tempbuf)) return 0; obstack_grow_str (tempbuf, "*"); return 1; case 'R': /* reference */ if (!extract_type_info (mangled_str, tempbuf)) return 0; obstack_grow_str (tempbuf, "&"); return 1; case 'Z': /* return value */ return extract_type_info (mangled_str, tempbuf); case 'J': /* out */ obstack_grow_str (tempbuf, "out "); return extract_type_info (mangled_str, tempbuf); case 'K': /* inout */ obstack_grow_str (tempbuf, "inout "); return extract_type_info (mangled_str, tempbuf); case 'E': /* enum */ case 'T': /* typedef */ case 'D': /* delegate */ case 'C': /* class */ case 'S': /* struct */ return extract_identifiers (mangled_str, tempbuf); /* basic types: */ case 'n': obstack_grow_str (tempbuf, "none"); return 1; case 'v': obstack_grow_str (tempbuf, "void"); return 1; case 'g': obstack_grow_str (tempbuf, "byte"); return 1; case 'h': obstack_grow_str (tempbuf, "ubyte"); return 1; case 's': obstack_grow_str (tempbuf, "short"); return 1; case 't': obstack_grow_str (tempbuf, "ushort"); return 1; case 'i': obstack_grow_str (tempbuf, "int"); return 1; case 'k': obstack_grow_str (tempbuf, "uint"); return 1; case 'l': obstack_grow_str (tempbuf, "long"); return 1; case 'm': obstack_grow_str (tempbuf, "ulong"); return 1; case 'f': obstack_grow_str (tempbuf, "float"); return 1; case 'd': obstack_grow_str (tempbuf, "double"); return 1; case 'e': obstack_grow_str (tempbuf, "real"); return 1; /* imaginary and complex: */ case 'o': obstack_grow_str (tempbuf, "ifloat"); return 1; case 'p': obstack_grow_str (tempbuf, "idouble"); return 1; case 'j': obstack_grow_str (tempbuf, "ireal"); return 1; case 'q': obstack_grow_str (tempbuf, "cfloat"); return 1; case 'r': obstack_grow_str (tempbuf, "cdouble"); return 1; case 'c': obstack_grow_str (tempbuf, "creal"); return 1; /* other types: */ case 'b': obstack_grow_str (tempbuf, "bit"); return 1; case 'a': obstack_grow_str (tempbuf, "char"); return 1; case 'u': obstack_grow_str (tempbuf, "wchar"); return 1; case 'w': obstack_grow_str (tempbuf, "dchar"); return 1; default: obstack_grow_str (tempbuf, "unknown"); return 1; } } /* Implements the la_demangle language_defn routine for language D. */ char * d_demangle (const char *symbol, int options) { struct obstack tempbuf; char *out_str; unsigned char is_func = 0; if (symbol == NULL) return NULL; else if (strcmp (symbol, "_Dmain") == 0) return xstrdup ("D main"); obstack_init (&tempbuf); if (symbol[0] == '_' && symbol[1] == 'D') { symbol += 2; is_func = 1; } else if (strncmp (symbol, "__Class_", 8) == 0) symbol += 8; else if (strncmp (symbol, "__init_", 7) == 0) symbol += 7; else if (strncmp (symbol, "__vtbl_", 7) == 0) symbol += 7; else if (strncmp (symbol, "__modctor_", 10) == 0) symbol += 10; else if (strncmp (symbol, "__moddtor_", 10) == 0) symbol += 10; else if (strncmp (symbol, "__ModuleInfo_", 13) == 0) symbol += 13; else { obstack_free (&tempbuf, NULL); return NULL; } if (!extract_identifiers (symbol, &tempbuf)) { obstack_free (&tempbuf, NULL); return NULL; } obstack_grow_str (&tempbuf, "("); if (is_func == 1 && *symbol == 'F') { symbol++; while (*symbol != '\0' && *symbol != 'Z') { if (is_func == 1) is_func++; else obstack_grow_str (&tempbuf, ", "); if (!extract_type_info (symbol, &tempbuf)) { obstack_free (&tempbuf, NULL); return NULL; } } } obstack_grow_str0 (&tempbuf, ")"); /* Doesn't display the return type, but wouldn't be too hard to do. */ out_str = xstrdup (obstack_finish (&tempbuf)); obstack_free (&tempbuf, NULL); return out_str; } /* Table mapping opcodes into strings for printing operators and precedences of the operators. */ static const struct op_print d_op_print_tab[] = { {",", BINOP_COMMA, PREC_COMMA, 0}, {"=", BINOP_ASSIGN, PREC_ASSIGN, 1}, {"||", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, {"&&", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, {"|", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0}, {"^", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0}, {"&", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0}, {"==", BINOP_EQUAL, PREC_EQUAL, 0}, {"!=", BINOP_NOTEQUAL, PREC_EQUAL, 0}, {"<=", BINOP_LEQ, PREC_ORDER, 0}, {">=", BINOP_GEQ, PREC_ORDER, 0}, {">", BINOP_GTR, PREC_ORDER, 0}, {"<", BINOP_LESS, PREC_ORDER, 0}, {">>", BINOP_RSH, PREC_SHIFT, 0}, {"<<", BINOP_LSH, PREC_SHIFT, 0}, {"+", BINOP_ADD, PREC_ADD, 0}, {"-", BINOP_SUB, PREC_ADD, 0}, {"*", BINOP_MUL, PREC_MUL, 0}, {"/", BINOP_DIV, PREC_MUL, 0}, {"%", BINOP_REM, PREC_MUL, 0}, {"@", BINOP_REPEAT, PREC_REPEAT, 0}, {"-", UNOP_NEG, PREC_PREFIX, 0}, {"!", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, {"~", UNOP_COMPLEMENT, PREC_PREFIX, 0}, {"*", UNOP_IND, PREC_PREFIX, 0}, {"&", UNOP_ADDR, PREC_PREFIX, 0}, {"sizeof ", UNOP_SIZEOF, PREC_PREFIX, 0}, {"++", UNOP_PREINCREMENT, PREC_PREFIX, 0}, {"--", UNOP_PREDECREMENT, PREC_PREFIX, 0}, {NULL, 0, 0, 0} }; static const struct language_defn d_language_defn = { "d", language_d, range_check_off, type_check_off, case_sensitive_on, array_row_major, macro_expansion_c, &exp_descriptor_c, c_parse, c_error, null_post_parser, c_printchar, /* Print a character constant. */ c_printstr, /* Function to print string constant. */ c_emit_char, /* Print a single char. */ c_print_type, /* Print a type using appropriate syntax. */ c_print_typedef, /* Print a typedef using appropriate syntax. */ d_val_print, /* Print a value using appropriate syntax. */ c_value_print, /* Print a top-level value. */ NULL, /* Language specific skip_trampoline. */ "this", basic_lookup_symbol_nonlocal, basic_lookup_transparent_type, d_demangle, /* Language specific symbol demangler. */ NULL, /* Language specific class_name_from_physname. */ d_op_print_tab, /* Expression operators for printing. */ 1, /* C-style arrays. */ 0, /* String lower bound. */ default_word_break_characters, default_make_symbol_completion_list, c_language_arch_info, default_print_array_index, default_pass_by_reference, c_get_string, LANG_MAGIC }; void _initialize_d_language (void) { add_language (&d_language_defn); }
Go to most recent revision | Compare with Previous | Blame | View Log