FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

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,