diff options
Diffstat (limited to 'gdb/f-lang.h')
| -rw-r--r-- | gdb/f-lang.h | 86 |
1 files changed, 41 insertions, 45 deletions
diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 673e273..24b0f83 100644 --- a/gdb/f-lang.h +++ b/gdb/f-lang.h @@ -34,34 +34,32 @@ struct parser_state; class f_language : public language_defn { public: + f_language () : language_defn (language_fortran) - { /* Nothing. */ } + { /* Nothing. */ + } /* See language.h. */ - const char *name () const override - { return "fortran"; } + const char *name () const override { return "fortran"; } /* See language.h. */ - const char *natural_name () const override - { return "Fortran"; } + const char *natural_name () const override { return "Fortran"; } /* See language.h. */ const std::vector<const char *> &filename_extensions () const override { - static const std::vector<const char *> extensions = { - ".f", ".F", ".for", ".FOR", ".ftn", ".FTN", ".fpp", ".FPP", - ".f90", ".F90", ".f95", ".F95", ".f03", ".F03", ".f08", ".F08" - }; + static const std::vector<const char *> extensions + = { ".f", ".F", ".for", ".FOR", ".ftn", ".FTN", ".fpp", ".FPP", + ".f90", ".F90", ".f95", ".F95", ".f03", ".F03", ".f08", ".F08" }; return extensions; } /* See language.h. */ - void print_array_index (struct type *index_type, - LONGEST index, + void print_array_index (struct type *index_type, LONGEST index, struct ui_file *stream, const value_print_options *options) const override; @@ -77,7 +75,7 @@ public: gdb::unique_xmalloc_ptr<char> demangle_symbol (const char *mangled, int options) const override { - /* We could support demangling here to provide module namespaces + /* We could support demangling here to provide module namespaces also for inferiors with only minimal symbol table (ELF symbols). Just the mangling standard is not standardized across compilers and there is no DW_AT_producer available for inferiors with only @@ -115,34 +113,31 @@ public: return retval; } - /* See language.h. */ - void collect_symbol_completion_matches (completion_tracker &tracker, - complete_symbol_mode mode, - symbol_name_match_type name_match_type, - const char *text, const char *word, - enum type_code code) const override + void collect_symbol_completion_matches ( + completion_tracker &tracker, complete_symbol_mode mode, + symbol_name_match_type name_match_type, const char *text, const char *word, + enum type_code code) const override { /* Consider the modules separator :: as a valid symbol name character class. */ default_collect_symbol_completion_matches_break_on (tracker, mode, - name_match_type, - text, word, ":", - code); + name_match_type, text, + word, ":", code); } /* See language.h. */ - void value_print_inner - (struct value *val, struct ui_file *stream, int recurse, - const struct value_print_options *options) const override; + void + value_print_inner (struct value *val, struct ui_file *stream, int recurse, + const struct value_print_options *options) const override; /* See language.h. */ - struct block_symbol lookup_symbol_nonlocal - (const char *name, const struct block *block, - const domain_enum domain) const override; + struct block_symbol + lookup_symbol_nonlocal (const char *name, const struct block *block, + const domain_enum domain) const override; /* See language.h. */ @@ -150,8 +145,8 @@ public: /* See language.h. */ - void emitchar (int ch, struct type *chtype, - struct ui_file *stream, int quoter) const override + void emitchar (int ch, struct type *chtype, struct ui_file *stream, + int quoter) const override { const char *encoding = get_encoding (chtype); generic_emit_char (ch, chtype, stream, quoter, encoding); @@ -203,37 +198,39 @@ public: /* See language.h. */ - const char *struct_too_deep_ellipsis () const override - { return "(...)"; } + const char *struct_too_deep_ellipsis () const override { return "(...)"; } /* See language.h. */ - bool c_style_arrays_p () const override - { return false; } + bool c_style_arrays_p () const override { return false; } /* See language.h. */ - bool range_checking_on_by_default () const override - { return true; } + bool range_checking_on_by_default () const override { return true; } /* See language.h. */ enum case_sensitivity case_sensitivity () const override - { return case_sensitive_off; } + { + return case_sensitive_off; + } /* See language.h. */ enum array_ordering array_ordering () const override - { return array_column_major; } + { + return array_column_major; + } protected: /* See language.h. */ - symbol_name_matcher_ftype *get_symbol_name_matcher_inner - (const lookup_name_info &lookup_name) const override; + symbol_name_matcher_ftype *get_symbol_name_matcher_inner ( + const lookup_name_info &lookup_name) const override; private: + /* Return the encoding that should be used for the character type TYPE. */ @@ -247,8 +244,7 @@ private: any typename for TYPE and show its details. SHOW is always zero on recursive calls. */ - void f_type_print_varspec_prefix (struct type *type, - struct ui_file * stream, + void f_type_print_varspec_prefix (struct type *type, struct ui_file *stream, int show, int passed_a_ptr) const; /* Print any array sizes, function arguments or close parentheses needed @@ -260,8 +256,7 @@ private: when the array is not allocated or not associated and so there are no known upper or lower bounds. */ - void f_type_print_varspec_suffix (struct type *type, - struct ui_file *stream, + void f_type_print_varspec_suffix (struct type *type, struct ui_file *stream, int show, int passed_a_ptr, int demangled_args, int arrayprint_recurse_level, @@ -370,7 +365,8 @@ extern struct type *fortran_preserve_arg_pointer (struct value *arg, element here. Yes, this will break some things, but it fixes other things. The hope is that it fixes more than it breaks. */ -extern CORE_ADDR fortran_adjust_dynamic_array_base_address_hack - (struct type *type, CORE_ADDR address); +extern CORE_ADDR +fortran_adjust_dynamic_array_base_address_hack (struct type *type, + CORE_ADDR address); #endif /* F_LANG_H */ |