* symfile.c (init_filename_language_table): New extensions .for, .FOR,
	.ftn, .FTN, .fpp, .FPP, .f90, .F90, .f95, .F95, .f03, .F03, .f08 and
	.F08.

gdb/testsuite/
	* gdb.fortran/module.exp (stopped language detection): New test.
This commit is contained in:
Jan Kratochvil 2010-06-02 23:01:01 +00:00
parent f55ee35cf1
commit fd5700c7c6
4 changed files with 30 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2010-06-02 Jan Kratochvil <jan.kratochvil@redhat.com>
* symfile.c (init_filename_language_table): New extensions .for, .FOR,
.ftn, .FTN, .fpp, .FPP, .f90, .F90, .f95, .F95, .f03, .F03, .f08 and
.F08.
2010-06-02 Jan Kratochvil <jan.kratochvil@redhat.com>
Support DW_TAG_module as separate namespaces.

View File

@ -2633,6 +2633,20 @@ init_filename_language_table (void)
add_filename_language (".m", language_objc);
add_filename_language (".f", language_fortran);
add_filename_language (".F", language_fortran);
add_filename_language (".for", language_fortran);
add_filename_language (".FOR", language_fortran);
add_filename_language (".ftn", language_fortran);
add_filename_language (".FTN", language_fortran);
add_filename_language (".fpp", language_fortran);
add_filename_language (".FPP", language_fortran);
add_filename_language (".f90", language_fortran);
add_filename_language (".F90", language_fortran);
add_filename_language (".f95", language_fortran);
add_filename_language (".F95", language_fortran);
add_filename_language (".f03", language_fortran);
add_filename_language (".F03", language_fortran);
add_filename_language (".f08", language_fortran);
add_filename_language (".F08", language_fortran);
add_filename_language (".s", language_asm);
add_filename_language (".sx", language_asm);
add_filename_language (".S", language_asm);

View File

@ -1,3 +1,7 @@
2010-06-02 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.fortran/module.exp (stopped language detection): New test.
2010-06-02 Jan Kratochvil <jan.kratochvil@redhat.com>
Support DW_TAG_module as separate namespaces.

View File

@ -20,6 +20,12 @@ if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } {
return -1
}
# Test automatic language detection before the inferior starts. It tests the
# effect of expected:
# (gdb) show language
# The current source language is "auto; currently fortran".
gdb_test "p modmany::var_i" " = 14" "stopped language detection"
if ![runto MAIN__] then {
perror "couldn't run to breakpoint MAIN__"
continue