From patchwork Wed Feb 4 23:36:59 2015 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Pierre Muller X-Patchwork-Id: 4920 Received: (qmail 27966 invoked by alias); 4 Feb 2015 23:37:10 -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 27944 invoked by uid 89); 4 Feb 2015 23:37:10 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.6 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.214) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 04 Feb 2015 23:37:09 +0000 Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antispam (Postfix) with ESMTP id 122CA1A08E8; Thu, 5 Feb 2015 00:37:07 +0100 (CET) Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id 021991A0910; Thu, 5 Feb 2015 00:37:07 +0100 (CET) Received: from lmr.u-strasbg.fr (lmr4.u-strasbg.fr [172.30.21.4]) by mr4.u-strasbg.fr (Postfix) with ESMTP id C68181A08E8; Thu, 5 Feb 2015 00:37:03 +0100 (CET) Received: from lmr.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id 9C81EC7; Thu, 5 Feb 2015 00:37:03 +0100 (CET) Received: from E6510Muller (lec67-4-82-230-53-140.fbx.proxad.net [82.230.53.140]) (Authenticated sender: mullerp) by lmr4.u-strasbg.fr (Postfix) with ESMTPSA id 06F599A; Thu, 5 Feb 2015 00:36:58 +0100 (CET) From: "Pierre Muller" To: "'Pedro Alves'" , "'Doug Evans'" 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> <54afff61.6790420a.0fa7.4f63SMTPIN_ADDED_BROKEN@mx.google.com> <54b07891.01b3c20a.2a7b.ffff9f96SMTPIN_ADDED_BROKEN@mx.google.com> <54b6858f.a287440a.5b61.ffff9ef0SMTPIN_ADDED_BROKEN@mx.google.com> <54C0F1E5.3000207@redhat.com> <002901d036a1$5c2e30f0$148a92d0$@muller@ics-cnrs.unistra.fr> <54C22635.3020300@redhat.com> In-Reply-To: <54C22635.3020300@redhat.com> Subject: [RFA PATCH 2/3 V4] Add "class" option for pascal compiler Date: Thu, 5 Feb 2015 00:36:59 +0100 Message-ID: <003301d040d3$7a4f9f60$6eeede20$@muller@ics-cnrs.unistra.fr> MIME-Version: 1.0 This part of the patch series is unchanged. It adds class option to pascal compiler which adds the required command line option to accept pascal class types. gdb/testsuite/ChangeLog entry: 2015-02-04 Pierre Muller * lib/pascal.exp (gpc_compile): Add new option "class". (fpc_compile): Likewise. --- gdb/testsuite/lib/pascal.exp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/gdb/testsuite/lib/pascal.exp b/gdb/testsuite/lib/pascal.exp index 994e3da..0a2aa75 100644 --- a/gdb/testsuite/lib/pascal.exp +++ b/gdb/testsuite/lib/pascal.exp @@ -91,6 +91,13 @@ proc gpc_compile {source dest type options} { append add_flags " -g" } } + if { $i == "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pascal_class_flags]" + } else { + append add_flags " --extended-syntax" + } + } } set result [remote_exec host $gpc_compiler "-o $dest --automake $add_flags $source"] @@ -120,6 +127,13 @@ proc fpc_compile {source dest type options} { append add_flags " -g" } } + if { $i == "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pascal_class_flags]" + } else { + append add_flags " -Mobjfpc" + } + } } set result [remote_exec host $fpc_compiler "-o$dest $add_flags $source"]