From patchwork Fri Jan 9 16:18:30 2015 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Pierre Muller X-Patchwork-Id: 4588 Received: (qmail 32605 invoked by alias); 9 Jan 2015 16:18:39 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 32596 invoked by uid 89); 9 Jan 2015 16:18:38 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.9 required=5.0 tests=AWL, BAYES_00, MSGID_MULTIPLE_AT autolearn=no version=3.3.2 X-HELO: mailhost.u-strasbg.fr Received: from mailhost.u-strasbg.fr (HELO mailhost.u-strasbg.fr) (130.79.222.216) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 09 Jan 2015 16:18:38 +0000 Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antispam (Postfix) with ESMTP id 5FAE1141876; Fri, 9 Jan 2015 17:18:35 +0100 (CET) Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id 4FA071418AA; Fri, 9 Jan 2015 17:18:35 +0100 (CET) Received: from lmr.u-strasbg.fr (lmr2.u-strasbg.fr [172.30.21.2]) by mr6.u-strasbg.fr (Postfix) with ESMTP id 2E20E141876; Fri, 9 Jan 2015 17:18:33 +0100 (CET) Received: from lmr.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id F1CAECD; Fri, 9 Jan 2015 17:18:32 +0100 (CET) Received: from E6510Muller (gw-ics.u-strasbg.fr [130.79.210.225]) (Authenticated sender: mullerp) by lmr2.u-strasbg.fr (Postfix) with ESMTPSA id ACF38A7; Fri, 9 Jan 2015 17:18:30 +0100 (CET) From: "Pierre Muller" To: "'Pedro Alves'" Cc: "'gdb-patches'" References: <54ae4586.01e3440a.7b06.fffff844SMTPIN_ADDED_BROKEN@mx.google.com> <54AE605A.8050308@redhat.com> <54ae7f9f.c323460a.36ed.ffffff30SMTPIN_ADDED_BROKEN@mx.google.com> <54AE8914.4010507@redhat.com> <54ae911b.85e3440a.1d96.5ffdSMTPIN_ADDED_BROKEN@mx.google.com> <54AFB2E5.5080307@redhat.com> <001201d02c27$87cbee20$9763ca60$@muller@ics-cnrs.unistra.fr> In-Reply-To: <001201d02c27$87cbee20$9763ca60$@muller@ics-cnrs.unistra.fr> Subject: [RFA PATCH 2/3] Add debug-stabs debug-dwarf and class option for pascal compiler Date: Fri, 9 Jan 2015 17:18:30 +0100 Message-ID: <001801d02c27$e94033f0$bbc09bd0$@muller@ics-cnrs.unistra.fr> MIME-Version: 1.0 This part adds support for pascal specific compilation option: - "debug-stabs" to force use of stabs debugging format. - "debug-dwarf" to force use of dwarf debugging format. - "class" to enable pascal "class" types. gdb/testsuite/Changelog entry : 2015-01-09 Pierre Muller * lib/pascal.exp (gpc_compile): Handle new options: "debug-stabs", "debug-dwarf" and "class". (fpc_compile): Likewise. --- gdb/testsuite/lib/pascal.exp | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) $add_flags $source"] @@ -120,6 +141,27 @@ proc fpc_compile {source dest type options} { append add_flags " -g" } } + if { $i == "debug-stabs" } { + if [board_info $dest exists debug_stabs_flags] { + append add_flags " [board_info $dest debug_stabs_flags]" + } else { + append add_flags " -gs" + } + } + if { $i == "debug-dwarf" } { + if [board_info $dest exists debug_dwarf_flags] { + append add_flags " [board_info $dest debug_dwarf_flags]" + } else { + append add_flags " -gw" + } + } + if { $i == "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pscal_class_flags]" + } else { + append add_flags " -Mobjfpc" + } + } } set result [remote_exec host $fpc_compiler "-o$dest $add_flags $source"] diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp index 994e3da..587352c 100644 --- a/gdb/testsuite/lib/pascal.exp +++ b/gdb/testsuite/lib/pascal.exp @@ -91,6 +91,27 @@ proc gpc_compile {source dest type options} { append add_flags " -g" } } + if { $i == "debug-stabs" } { + if [board_info $dest exists debug_stabs_flags] { + append add_flags " [board_info $dest debug_stabs_flags]" + } else { + append add_flags " -gstabs" + } + } + if { $i == "debug-dwarf" } { + if [board_info $dest exists debug_dwarf_flags] { + append add_flags " [board_info $dest debug_dwarf_flags]" + } else { + append add_flags " -gdwarf-2" + } + } + if { $i == "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pscal_class_flags]" + } else { + append add_flags " --extended-syntax" + } + } } set result [remote_exec host $gpc_compiler "-o $dest --automake