From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 6153 invoked by alias); 2 Jun 2010 21:41:08 -0000 Received: (qmail 6144 invoked by uid 22791); 2 Jun 2010 21:41:07 -0000 X-SWARE-Spam-Status: No, hits=-5.7 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_HI,SPF_HELO_PASS,T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 02 Jun 2010 21:41:04 +0000 Received: from int-mx04.intmail.prod.int.phx2.redhat.com (int-mx04.intmail.prod.int.phx2.redhat.com [10.5.11.17]) by mx1.redhat.com (8.13.8/8.13.8) with ESMTP id o52Lf2L9023598 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Wed, 2 Jun 2010 17:41:02 -0400 Received: from host0.dyn.jankratochvil.net (ovpn01.gateway.prod.ext.phx2.redhat.com [10.5.9.1]) by int-mx04.intmail.prod.int.phx2.redhat.com (8.13.8/8.13.8) with ESMTP id o52Lf0qq019511 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Wed, 2 Jun 2010 17:41:01 -0400 Received: from host0.dyn.jankratochvil.net (localhost [127.0.0.1]) by host0.dyn.jankratochvil.net (8.14.4/8.14.4) with ESMTP id o52Lexmx031747 for ; Wed, 2 Jun 2010 23:40:59 +0200 Received: (from jkratoch@localhost) by host0.dyn.jankratochvil.net (8.14.4/8.14.4/Submit) id o52Lexpb031746 for gdb-patches@sourceware.org; Wed, 2 Jun 2010 23:40:59 +0200 Date: Wed, 02 Jun 2010 21:41:00 -0000 From: Jan Kratochvil To: gdb-patches@sourceware.org Subject: [patch] Extend Fortran detection filename extensions Message-ID: <20100602214059.GB30562@host0.dyn.jankratochvil.net> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline User-Agent: Mutt/1.5.20 (2009-12-10) X-IsSubscribed: yes Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2010-06/txt/msg00066.txt.bz2 Hi, this patch would not need to be but it was made on top of pending Re: [patch 3/3] Fortran modules namespaces [rediff] http://sourceware.org/ml/gdb-patches/2010-06/msg00059.html I found out before I start the inferior GDB still claims: (gdb) show language The current source language is "auto; currently c". Therefore I extended the filename extensions table from that found in gcc HEAD gcc/gcc.c:default_compilers[]. No regressions on {x86_64,x86_64-m32,i686}-fedora13-linux-gnu. Thanks, Jan gdb/ 2010-06-02 Jan Kratochvil * 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/ 2010-06-02 Jan Kratochvil * gdb.fortran/module.exp (stopped language detection): New test. --- a/gdb/symfile.c +++ b/gdb/symfile.c @@ -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); --- a/gdb/testsuite/gdb.fortran/module.exp +++ b/gdb/testsuite/gdb.fortran/module.exp @@ -20,6 +20,9 @@ if { [prepare_for_testing $testfile.exp $testfile $srcfile {debug f77}] } { return -1 } +# Test automatic language detection before the inferior starts. +gdb_test "p modmany::var_i" " = 14" "stopped language detection" + if ![runto MAIN__] then { perror "couldn't run to breakpoint MAIN__" continue