diff options
Diffstat (limited to 'gnu/usr.bin/binutils/gdb/scm-lang.c')
| -rw-r--r-- | gnu/usr.bin/binutils/gdb/scm-lang.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gnu/usr.bin/binutils/gdb/scm-lang.c b/gnu/usr.bin/binutils/gdb/scm-lang.c index 872dcaf89fc..21f39ec9c89 100644 --- a/gnu/usr.bin/binutils/gdb/scm-lang.c +++ b/gnu/usr.bin/binutils/gdb/scm-lang.c @@ -44,8 +44,6 @@ static void scm_printstr (struct ui_file * stream, char *string, unsigned int length, int width, int force_ellipses); -extern struct type **const (c_builtin_types[]); - struct type *builtin_type_scm; void @@ -246,13 +244,15 @@ const struct language_defn scm_language_defn = { "scheme", /* Language name */ language_scm, - c_builtin_types, + NULL, range_check_off, type_check_off, case_sensitive_off, + array_row_major, &exp_descriptor_scm, scm_parse, c_error, + null_post_parser, scm_printchar, /* Print a character constant */ scm_printstr, /* Function to print string constant */ NULL, /* Function to print a single character */ @@ -265,15 +265,13 @@ const struct language_defn scm_language_defn = basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */ basic_lookup_transparent_type,/* lookup_transparent_type */ NULL, /* Language specific symbol demangler */ - {"", "", "", ""}, /* Binary format info */ - {"#o%lo", "#o", "o", ""}, /* Octal format info */ - {"%ld", "", "d", ""}, /* Decimal format info */ - {"#x%lX", "#X", "X", ""}, /* Hex format info */ + NULL, /* Language specific class_name_from_physname */ NULL, /* expression operators for printing */ 1, /* c-style arrays */ 0, /* String lower bound */ - &builtin_type_char, /* Type of string elements */ + NULL, default_word_break_characters, + c_language_arch_info, LANG_MAGIC }; |