mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-18 12:24:38 +08:00
Code Issues Packages Projects Releases Wiki Activity

2003-02-27 Michael Snyder <msnyder@redhat.com>

Browse Source 
* f-lang.c (build_fortran_types): New function.
	(_initialize_f_language): Gdbarch-register built-in fortran types.
This commit is contained in:
Michael Snyder 2003-02-27 18:13:37 +00:00
parent d05bb1fc02
commit 4e845cd39a
2 changed files with 41 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gdb/ChangeLog
View File

@ -1,5 +1,8 @@
2003-02-27 Michael Snyder <msnyder@redhat.com>
* f-lang.c (build_fortran_types): New function.
(_initialize_f_language): Gdbarch-register built-in fortran types.
* doublest.c (extract_floating): Fix warning text.
2003-02-27 Andrew Cagney <cagney@redhat.com>

40
gdb/f-lang.c
View File

@ -483,8 +483,8 @@ const struct language_defn f_language_defn =
LANG_MAGIC
};
void
_initialize_f_language (void)
static void
build_fortran_types (void)
{
builtin_type_f_void =
init_type (TYPE_CODE_VOID, 1,
@ -556,6 +556,42 @@ _initialize_f_language (void)
0,
"complex*32", (struct objfile *) NULL);
TYPE_TARGET_TYPE (builtin_type_f_complex_s32) = builtin_type_f_real_s16;
}
void
_initialize_f_language (void)
{
build_fortran_types ();
register_gdbarch_swap (&builtin_type_f_character,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_logical,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_logical_s1,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_logical_s2,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_integer,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_integer_s2,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_real,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_real_s8,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_real_s16,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_complex_s8,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_complex_s16,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_complex_s32,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_f_void,
sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_string,
sizeof (struct type *), NULL);
register_gdbarch_swap (NULL, 0, build_fortran_types);
builtin_type_string =
init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT,