diff options
Diffstat (limited to 'contrib/gdb/gdb/ch-lang.c')
| -rw-r--r-- | contrib/gdb/gdb/ch-lang.c | 328 |
1 files changed, 158 insertions, 170 deletions
diff --git a/contrib/gdb/gdb/ch-lang.c b/contrib/gdb/gdb/ch-lang.c index c54e8bb..b46dce0 100644 --- a/contrib/gdb/gdb/ch-lang.c +++ b/contrib/gdb/gdb/ch-lang.c @@ -1,21 +1,23 @@ /* Chill language support routines for GDB, the GNU debugger. - Copyright 1992, 1995, 1996 Free Software Foundation, Inc. + Copyright 1992, 1993, 1994, 1995, 1996, 2000, 2001, 2002 + Free Software Foundation, Inc. -This file is part of GDB. + 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 2 of the License, or -(at your option) any later version. + 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. + 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + 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., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ #include "defs.h" #include "symtab.h" @@ -25,35 +27,33 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "parser-defs.h" #include "language.h" #include "ch-lang.h" +#include "valprint.h" -static value_ptr -evaluate_subexp_chill PARAMS ((struct type *, struct expression *, int *, enum noside)); +extern void _initialize_chill_language (void); -static value_ptr -value_chill_max_min PARAMS ((enum exp_opcode, value_ptr)); +static struct value *evaluate_subexp_chill (struct type *, struct expression *, + int *, enum noside); -static value_ptr -value_chill_card PARAMS ((value_ptr)); +static struct value *value_chill_max_min (enum exp_opcode, struct value *); -static value_ptr - value_chill_length PARAMS ((value_ptr)); +static struct value *value_chill_card (struct value *); -static struct type * -chill_create_fundamental_type PARAMS ((struct objfile *, int)); +static struct value *value_chill_length (struct value *); -static void -chill_printstr PARAMS ((GDB_FILE *stream, char *string, unsigned int length, int width, int force_ellipses)); +static struct type *chill_create_fundamental_type (struct objfile *, int); -static void -chill_printchar PARAMS ((int, GDB_FILE *)); +static void chill_printstr (struct ui_file * stream, char *string, + unsigned int length, int width, + int force_ellipses); + +static void chill_printchar (int, struct ui_file *); /* For now, Chill uses a simple mangling algorithm whereby you simply discard everything after the occurance of two successive CPLUS_MARKER characters to derive the demangled form. */ char * -chill_demangle (mangled) - const char *mangled; +chill_demangle (const char *mangled) { const char *joiner = NULL; char *demangled; @@ -80,9 +80,7 @@ chill_demangle (mangled) } static void -chill_printchar (c, stream) - register int c; - GDB_FILE *stream; +chill_printchar (register int c, struct ui_file *stream) { c &= 0xFF; /* Avoid sign bit follies */ @@ -108,15 +106,11 @@ chill_printchar (c, stream) an explicit null byte. So we always assume an implied null byte until gdb is able to maintain non-null terminated strings as well as null terminated strings (FIXME). - */ + */ static void -chill_printstr (stream, string, length, width, force_ellipses) - GDB_FILE *stream; - char *string; - unsigned int length; - int width; - int force_ellipses; +chill_printstr (struct ui_file *stream, char *string, unsigned int length, + int width, int force_ellipses) { register unsigned int i; unsigned int things_printed = 0; @@ -124,8 +118,6 @@ chill_printstr (stream, string, length, width, force_ellipses) int in_control_form = 0; int need_slashslash = 0; unsigned int c; - extern int repeat_count_threshold; - extern int print_max; if (length == 0) { @@ -136,7 +128,7 @@ chill_printstr (stream, string, length, width, force_ellipses) for (i = 0; i < length && things_printed < print_max; ++i) { /* Position of the character we are examining - to see whether it is repeated. */ + to see whether it is repeated. */ unsigned int rep1; /* Number of repetitions we have detected so far. */ unsigned int reps; @@ -175,7 +167,7 @@ chill_printstr (stream, string, length, width, force_ellipses) } else { - if (! in_literal_form && ! in_control_form) + if (!in_literal_form && !in_control_form) fputs_filtered ("\"", stream); if (PRINT_LITERAL_FORM (c)) { @@ -229,98 +221,97 @@ chill_printstr (stream, string, length, width, force_ellipses) } static struct type * -chill_create_fundamental_type (objfile, typeid) - struct objfile *objfile; - int typeid; +chill_create_fundamental_type (struct objfile *objfile, int typeid) { register struct type *type = NULL; switch (typeid) { - default: - /* FIXME: For now, if we are asked to produce a type not in this - language, create the equivalent of a C integer type with the - name "<?type?>". When all the dust settles from the type - reconstruction work, this should probably become an error. */ - type = init_type (TYPE_CODE_INT, 2, 0, "<?type?>", objfile); - warning ("internal error: no chill fundamental type %d", typeid); - break; - case FT_VOID: - /* FIXME: Currently the GNU Chill compiler emits some DWARF entries for - typedefs, unrelated to anything directly in the code being compiled, - that have some FT_VOID types. Just fake it for now. */ - type = init_type (TYPE_CODE_VOID, 0, 0, "<?VOID?>", objfile); - break; - case FT_BOOLEAN: - type = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "BOOL", objfile); - break; - case FT_CHAR: - type = init_type (TYPE_CODE_CHAR, 1, TYPE_FLAG_UNSIGNED, "CHAR", objfile); - break; - case FT_SIGNED_CHAR: - type = init_type (TYPE_CODE_INT, 1, 0, "BYTE", objfile); - break; - case FT_UNSIGNED_CHAR: - type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "UBYTE", objfile); - break; - case FT_SHORT: /* Chill ints are 2 bytes */ - type = init_type (TYPE_CODE_INT, 2, 0, "INT", objfile); - break; - case FT_UNSIGNED_SHORT: /* Chill ints are 2 bytes */ - type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "UINT", objfile); - break; - case FT_INTEGER: /* FIXME? */ - case FT_SIGNED_INTEGER: /* FIXME? */ - case FT_LONG: /* Chill longs are 4 bytes */ - case FT_SIGNED_LONG: /* Chill longs are 4 bytes */ - type = init_type (TYPE_CODE_INT, 4, 0, "LONG", objfile); - break; - case FT_UNSIGNED_INTEGER: /* FIXME? */ - case FT_UNSIGNED_LONG: /* Chill longs are 4 bytes */ - type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "ULONG", objfile); - break; - case FT_FLOAT: - type = init_type (TYPE_CODE_FLT, 4, 0, "REAL", objfile); - break; - case FT_DBL_PREC_FLOAT: - type = init_type (TYPE_CODE_FLT, 8, 0, "LONG_REAL", objfile); - break; - } + default: + /* FIXME: For now, if we are asked to produce a type not in this + language, create the equivalent of a C integer type with the + name "<?type?>". When all the dust settles from the type + reconstruction work, this should probably become an error. */ + type = init_type (TYPE_CODE_INT, 2, 0, "<?type?>", objfile); + warning ("internal error: no chill fundamental type %d", typeid); + break; + case FT_VOID: + /* FIXME: Currently the GNU Chill compiler emits some DWARF entries for + typedefs, unrelated to anything directly in the code being compiled, + that have some FT_VOID types. Just fake it for now. */ + type = init_type (TYPE_CODE_VOID, 0, 0, "<?VOID?>", objfile); + break; + case FT_BOOLEAN: + type = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED, "BOOL", objfile); + break; + case FT_CHAR: + type = init_type (TYPE_CODE_CHAR, 1, TYPE_FLAG_UNSIGNED, "CHAR", objfile); + break; + case FT_SIGNED_CHAR: + type = init_type (TYPE_CODE_INT, 1, 0, "BYTE", objfile); + break; + case FT_UNSIGNED_CHAR: + type = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED, "UBYTE", objfile); + break; + case FT_SHORT: /* Chill ints are 2 bytes */ + type = init_type (TYPE_CODE_INT, 2, 0, "INT", objfile); + break; + case FT_UNSIGNED_SHORT: /* Chill ints are 2 bytes */ + type = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED, "UINT", objfile); + break; + case FT_INTEGER: /* FIXME? */ + case FT_SIGNED_INTEGER: /* FIXME? */ + case FT_LONG: /* Chill longs are 4 bytes */ + case FT_SIGNED_LONG: /* Chill longs are 4 bytes */ + type = init_type (TYPE_CODE_INT, 4, 0, "LONG", objfile); + break; + case FT_UNSIGNED_INTEGER: /* FIXME? */ + case FT_UNSIGNED_LONG: /* Chill longs are 4 bytes */ + type = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED, "ULONG", objfile); + break; + case FT_FLOAT: + type = init_type (TYPE_CODE_FLT, 4, 0, "REAL", objfile); + break; + case FT_DBL_PREC_FLOAT: + type = init_type (TYPE_CODE_FLT, 8, 0, "LONG_REAL", objfile); + break; + } return (type); } - + /* Table of operators and their precedences for printing expressions. */ -static const struct op_print chill_op_print_tab[] = { - {"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, - {"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, - {"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, - {"MOD", BINOP_MOD, PREC_MUL, 0}, - {"REM", BINOP_REM, PREC_MUL, 0}, - {"SIZE",UNOP_SIZEOF, PREC_BUILTIN_FUNCTION, 0}, - {"LOWER",UNOP_LOWER, PREC_BUILTIN_FUNCTION, 0}, - {"UPPER",UNOP_UPPER, PREC_BUILTIN_FUNCTION, 0}, - {"CARD",UNOP_CARD, PREC_BUILTIN_FUNCTION, 0}, - {"MAX",UNOP_CHMAX, PREC_BUILTIN_FUNCTION, 0}, - {"MIN",UNOP_CHMIN, PREC_BUILTIN_FUNCTION, 0}, - {":=", BINOP_ASSIGN, PREC_ASSIGN, 1}, - {"=", 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_ADD, PREC_ADD, 0}, - {"-", BINOP_SUB, PREC_ADD, 0}, - {"*", BINOP_MUL, PREC_MUL, 0}, - {"/", BINOP_DIV, PREC_MUL, 0}, - {"//", BINOP_CONCAT, PREC_PREFIX, 0}, /* FIXME: precedence? */ - {"-", UNOP_NEG, PREC_PREFIX, 0}, - {"->", UNOP_IND, PREC_SUFFIX, 1}, - {"->", UNOP_ADDR, PREC_PREFIX, 0}, - {":", BINOP_RANGE, PREC_ASSIGN, 0}, - {NULL, 0, 0, 0} +static const struct op_print chill_op_print_tab[] = +{ + {"AND", BINOP_LOGICAL_AND, PREC_LOGICAL_AND, 0}, + {"OR", BINOP_LOGICAL_OR, PREC_LOGICAL_OR, 0}, + {"NOT", UNOP_LOGICAL_NOT, PREC_PREFIX, 0}, + {"MOD", BINOP_MOD, PREC_MUL, 0}, + {"REM", BINOP_REM, PREC_MUL, 0}, + {"SIZE", UNOP_SIZEOF, PREC_BUILTIN_FUNCTION, 0}, + {"LOWER", UNOP_LOWER, PREC_BUILTIN_FUNCTION, 0}, + {"UPPER", UNOP_UPPER, PREC_BUILTIN_FUNCTION, 0}, + {"CARD", UNOP_CARD, PREC_BUILTIN_FUNCTION, 0}, + {"MAX", UNOP_CHMAX, PREC_BUILTIN_FUNCTION, 0}, + {"MIN", UNOP_CHMIN, PREC_BUILTIN_FUNCTION, 0}, + {":=", BINOP_ASSIGN, PREC_ASSIGN, 1}, + {"=", 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_ADD, PREC_ADD, 0}, + {"-", BINOP_SUB, PREC_ADD, 0}, + {"*", BINOP_MUL, PREC_MUL, 0}, + {"/", BINOP_DIV, PREC_MUL, 0}, + {"//", BINOP_CONCAT, PREC_PREFIX, 0}, /* FIXME: precedence? */ + {"-", UNOP_NEG, PREC_PREFIX, 0}, + {"->", UNOP_IND, PREC_SUFFIX, 1}, + {"->", UNOP_ADDR, PREC_PREFIX, 0}, + {":", BINOP_RANGE, PREC_ASSIGN, 0}, + {NULL, 0, 0, 0} }; /* The built-in types of Chill. */ @@ -331,14 +322,14 @@ struct type *builtin_type_chill_long; struct type *builtin_type_chill_ulong; struct type *builtin_type_chill_real; -struct type ** CONST_PTR (chill_builtin_types[]) = +struct type **const (chill_builtin_types[]) = { &builtin_type_chill_bool, - &builtin_type_chill_char, - &builtin_type_chill_long, - &builtin_type_chill_ulong, - &builtin_type_chill_real, - 0 + &builtin_type_chill_char, + &builtin_type_chill_long, + &builtin_type_chill_ulong, + &builtin_type_chill_real, + 0 }; /* Calculate LOWER or UPPER of TYPE. @@ -346,10 +337,8 @@ struct type ** CONST_PTR (chill_builtin_types[]) = *RESULT_TYPE is the appropriate type for the result. */ LONGEST -type_lower_upper (op, type, result_type) - enum exp_opcode op; /* Either UNOP_LOWER or UNOP_UPPER */ - struct type *type; - struct type **result_type; +type_lower_upper (enum exp_opcode op, /* Either UNOP_LOWER or UNOP_UPPER */ + struct type *type, struct type **result_type) { LONGEST low, high; *result_type = type; @@ -364,7 +353,7 @@ type_lower_upper (op, type, result_type) case TYPE_CODE_ARRAY: case TYPE_CODE_BITSTRING: case TYPE_CODE_STRING: - type = TYPE_FIELD_TYPE (type, 0); /* Get index type */ + type = TYPE_FIELD_TYPE (type, 0); /* Get index type */ /* ... fall through ... */ case TYPE_CODE_RANGE: @@ -399,9 +388,8 @@ type_lower_upper (op, type, result_type) error ("unknown mode for LOWER/UPPER builtin"); } -static value_ptr -value_chill_length (val) - value_ptr val; +static struct value * +value_chill_length (struct value *val) { LONGEST tmp; struct type *type = VALUE_TYPE (val); @@ -428,9 +416,8 @@ value_chill_length (val) return value_from_longest (builtin_type_int, tmp); } -static value_ptr -value_chill_card (val) - value_ptr val; +static struct value * +value_chill_card (struct value *val) { LONGEST tmp = 0; struct type *type = VALUE_TYPE (val); @@ -453,10 +440,8 @@ value_chill_card (val) return value_from_longest (builtin_type_int, tmp); } -static value_ptr -value_chill_max_min (op, val) - enum exp_opcode op; - value_ptr val; +static struct value * +value_chill_max_min (enum exp_opcode op, struct value *val) { LONGEST tmp = 0; struct type *type = VALUE_TYPE (val); @@ -503,23 +488,21 @@ value_chill_max_min (op, val) error ("bad argument to %s builtin", op == UNOP_CHMAX ? "MAX" : "MIN"); return value_from_longest (TYPE_CODE (elttype) == TYPE_CODE_RANGE - ? TYPE_TARGET_TYPE (elttype) - : elttype, + ? TYPE_TARGET_TYPE (elttype) + : elttype, tmp); } -static value_ptr -evaluate_subexp_chill (expect_type, exp, pos, noside) - struct type *expect_type; - register struct expression *exp; - register int *pos; - enum noside noside; +static struct value * +evaluate_subexp_chill (struct type *expect_type, + register struct expression *exp, register int *pos, + enum noside noside) { int pc = *pos; struct type *type; int tem, nargs; - value_ptr arg1; - value_ptr *argvec; + struct value *arg1; + struct value **argvec; enum exp_opcode op = exp->elts[*pos].opcode; switch (op) { @@ -534,7 +517,8 @@ evaluate_subexp_chill (expect_type, exp, pos, noside) if (nargs == 1 && TYPE_CODE (type) == TYPE_CODE_INT) { /* Looks like string repetition. */ - value_ptr string = evaluate_subexp_with_coercion (exp, pos, noside); + struct value *string = evaluate_subexp_with_coercion (exp, pos, + noside); return value_concat (arg1, string); } @@ -552,18 +536,19 @@ evaluate_subexp_chill (expect_type, exp, pos, noside) /* Allocate arg vector, including space for the function to be called in argvec[0] and a terminating NULL */ - argvec = (value_ptr *) alloca (sizeof (value_ptr) * (nargs + 2)); + argvec = (struct value **) alloca (sizeof (struct value *) + * (nargs + 2)); argvec[0] = arg1; tem = 1; for (; tem <= nargs && tem <= TYPE_NFIELDS (type); tem++) { argvec[tem] - = evaluate_subexp_chill (TYPE_FIELD_TYPE (type, tem-1), + = evaluate_subexp_chill (TYPE_FIELD_TYPE (type, tem - 1), exp, pos, noside); } for (; tem <= nargs; tem++) argvec[tem] = evaluate_subexp_with_coercion (exp, pos, noside); - argvec[tem] = 0; /* signal end of arglist */ + argvec[tem] = 0; /* signal end of arglist */ return call_function_by_hand (argvec[0], nargs, argvec + 1); default: @@ -572,7 +557,8 @@ evaluate_subexp_chill (expect_type, exp, pos, noside) while (nargs-- > 0) { - value_ptr index = evaluate_subexp_with_coercion (exp, pos, noside); + struct value *index = evaluate_subexp_with_coercion (exp, pos, + noside); arg1 = value_subscript (arg1, index); } return (arg1); @@ -614,41 +600,43 @@ evaluate_subexp_chill (expect_type, exp, pos, noside) } return evaluate_subexp_standard (expect_type, exp, pos, noside); - nosideret: +nosideret: return value_from_longest (builtin_type_long, (LONGEST) 1); } -const struct language_defn chill_language_defn = { +const struct language_defn chill_language_defn = +{ "chill", language_chill, chill_builtin_types, range_check_on, type_check_on, + case_sensitive_on, chill_parse, /* parser */ chill_error, /* parser error function */ evaluate_subexp_chill, chill_printchar, /* print a character constant */ chill_printstr, /* function to print a string constant */ NULL, /* Function to print a single char */ - chill_create_fundamental_type,/* Create fundamental type in this language */ + chill_create_fundamental_type, /* Create fundamental type in this language */ chill_print_type, /* Print a type using appropriate syntax */ chill_val_print, /* Print a value using appropriate syntax */ chill_value_print, /* Print a top-levl value */ - {"", "B'", "", ""}, /* Binary format info */ - {"O'%lo", "O'", "o", ""}, /* Octal format info */ - {"D'%ld", "D'", "d", ""}, /* Decimal format info */ - {"H'%lx", "H'", "x", ""}, /* Hex format info */ + {"", "B'", "", ""}, /* Binary format info */ + {"O'%lo", "O'", "o", ""}, /* Octal format info */ + {"D'%ld", "D'", "d", ""}, /* Decimal format info */ + {"H'%lx", "H'", "x", ""}, /* Hex format info */ chill_op_print_tab, /* expression operators for printing */ 0, /* arrays are first-class (not c-style) */ 0, /* String lower bound */ - &builtin_type_chill_char, /* Type of string elements */ + &builtin_type_chill_char, /* Type of string elements */ LANG_MAGIC }; /* Initialization for Chill */ void -_initialize_chill_language () +_initialize_chill_language (void) { builtin_type_chill_bool = init_type (TYPE_CODE_BOOL, TARGET_CHAR_BIT / TARGET_CHAR_BIT, |
