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

3
gdb/ChangeLog
View file

@ -1,5 +1,8 @@
2003-02-27 Michael Snyder <msnyder@redhat.com> 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. * doublest.c (extract_floating): Fix warning text.
2003-02-27 Andrew Cagney <cagney@redhat.com> 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 LANG_MAGIC
}; };
void static void
_initialize_f_language (void) build_fortran_types (void)
{ {
builtin_type_f_void = builtin_type_f_void =
init_type (TYPE_CODE_VOID, 1, init_type (TYPE_CODE_VOID, 1,
@ -556,6 +556,42 @@ _initialize_f_language (void)
0, 0,
"complex*32", (struct objfile *) NULL); "complex*32", (struct objfile *) NULL);
TYPE_TARGET_TYPE (builtin_type_f_complex_s32) = builtin_type_f_real_s16; 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 = builtin_type_string =
init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT, init_type (TYPE_CODE_STRING, TARGET_CHAR_BIT / TARGET_CHAR_BIT,