From bf229b4ea5f95fa036f6d3dc8fc7b236c5028f5e Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Thu, 3 Dec 1992 20:28:16 +0000 Subject: * c-exp.y (c_create_fundamental_type): New function to create language specific fundamental types for C. * m2-exp.y (m2_create_fundamental_type): New function to create language specific fundamental types for Modula 2. * c-exp.y (c_language_defn, cplus_language_defn): Add c_create_fundamental_type to language struct initializers. * m2-exp.y (m2_language_defn): Add m2_create_fundamental_type to language struct initializers. * dwarfread.c (expression.h, language.h): Include. * dwarfread.c (ftypes): New array to hold fundamental types for current compilation unit. * dwarfread.c (cu_language_defn): New pointer to language struct for language of current compilation unit. * dwarfread.c (dwarf_fundamental_type): New function to create/lookup fundamental types. * dwarfread.c (set_cu_language): Initialize cu_language_defn. * dwarfread.c (throughout): Replace lookup_fundamental_type with dwarf_fundamental_type. * dwarfread.c (read_file_scope): Zero out ftypes for each new compilation unit (may be different language or different objfile). * gdbtypes.c (lookup_fundamental_type): Move actual type creations into language specific fundamental type creation functions and call via create_fundamental_type. Add comment about this function being obsolescent. * gdbtypes.h (FT_BYTE, FT_UNSIGNED_BYTE): New types, true byte sized signed and unsigned integers. * gdbtypes.h (FT_NUM_MEMBERS): Increment, new types added. * language.c (language_def): New function to lookup a language struct given it's enumeration. * language.h (struct language_defn): Add la_fund_type, a pointer to a function that creates fundamental types for this language. * language.h (create_fundamental_type): New macro to create fundamental types based on the current language. * language.h (language_def): Add prototype. * language.c (unk_lang_create_fundamental_type): New function for initializing language structs, calls error if called. * language.c (unk_language_defn, auto_language_defn, local_language_defn): Use unk_lang_create_fundamental_type. **** start-sanitize-chill **** ch-exp.y (chill_create_fundamental_type): New function. ch-exp.y (chill_language_defn): Add chill_create_fundamental_type. ch-exp.y (_initialize_chill_exp): BOOL types are only one byte. **** end-sanitize-chill **** --- gdb/language.c | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 'gdb/language.c') diff --git a/gdb/language.c b/gdb/language.c index 5a6c689f219..2c964d1a285 100644 --- a/gdb/language.c +++ b/gdb/language.c @@ -1022,6 +1022,22 @@ range_error (va_alist) /* This page contains miscellaneous functions */ +/* Return the language struct for a given language enum. */ + +const struct language_defn * +language_def(lang) + enum language lang; +{ + int i; + + for (i = 0; i < languages_size; i++) { + if (languages[i]->la_language == lang) { + return languages[i]; + } + } + return NULL; +} + /* Return the language as a string */ char * language_str(lang) @@ -1116,6 +1132,14 @@ unk_lang_printstr (stream, string, length, force_ellipses) error ("internal error - unimplemented function unk_lang_printstr called."); } +static struct type * +unk_lang_create_fundamental_type (objfile, typeid) + struct objfile *objfile; + int typeid; +{ + error ("internal error - unimplemented function unk_lang_create_fundamental_type called."); +} + static struct type ** const (unknown_builtin_types[]) = { 0 }; static const struct op_print unk_op_print_tab[] = { 0 }; @@ -1129,6 +1153,7 @@ const struct language_defn unknown_language_defn = { unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, + unk_lang_create_fundamental_type, &builtin_type_error, /* longest signed integral type */ &builtin_type_error, /* longest unsigned integral type */ &builtin_type_error, /* longest floating point type */ @@ -1151,6 +1176,7 @@ const struct language_defn auto_language_defn = { unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, + unk_lang_create_fundamental_type, &builtin_type_error, /* longest signed integral type */ &builtin_type_error, /* longest unsigned integral type */ &builtin_type_error, /* longest floating point type */ @@ -1172,6 +1198,7 @@ const struct language_defn local_language_defn = { unk_lang_error, unk_lang_printchar, /* Print character constant */ unk_lang_printstr, + unk_lang_create_fundamental_type, &builtin_type_error, /* longest signed integral type */ &builtin_type_error, /* longest unsigned integral type */ &builtin_type_error, /* longest floating point type */ -- cgit v1.2.1