From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 7416 invoked by alias); 23 Jan 2015 00:13:24 -0000 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 Received: (qmail 7388 invoked by uid 89); 23 Jan 2015 00:13:19 -0000 Authentication-Results: sourceware.org; auth=none 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.213) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 23 Jan 2015 00:13:12 +0000 Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antispam (Postfix) with ESMTP id C9174C0F42; Fri, 23 Jan 2015 01:13:09 +0100 (CET) Received: from mailhost.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id B990DC0F46; Fri, 23 Jan 2015 01:13:09 +0100 (CET) Received: from lmr.u-strasbg.fr (lmr2.u-strasbg.fr [172.30.21.2]) by mr3.u-strasbg.fr (Postfix) with ESMTP id 8A788C0F42; Fri, 23 Jan 2015 01:13:06 +0100 (CET) Received: from lmr.u-strasbg.fr (localhost [127.0.0.1]) by antivirus (Postfix) with ESMTP id 53405AF; Fri, 23 Jan 2015 01:13:06 +0100 (CET) Received: from E6510Muller (lec67-4-82-230-53-140.fbx.proxad.net [82.230.53.140]) (Authenticated sender: mullerp) by lmr2.u-strasbg.fr (Postfix) with ESMTPSA id 9414FA7; Fri, 23 Jan 2015 01:13:02 +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> In-Reply-To: <54C0F1E5.3000207@redhat.com> Subject: [RFA PATCH 2/3 V3] Add "class" option for pascal compiler Date: Fri, 23 Jan 2015 05:21:00 -0000 Message-ID: <002901d036a1$5c2e30f0$148a92d0$@muller@ics-cnrs.unistra.fr> MIME-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable X-SW-Source: 2015-01/txt/msg00629.txt.bz2 > -----Message d'origine----- > De : gdb-patches-owner@sourceware.org [mailto:gdb-patches- > owner@sourceware.org] De la part de Pedro Alves > Envoy=C3=A9 : jeudi 22 janvier 2015 13:50 > =C3=80 : Pierre Muller; 'Doug Evans' > Cc : 'gdb-patches' > Objet : Re: [RFA PATCH 2/3 V2] Add "class" option for pascal compiler >=20 > On 01/14/2015 03:04 PM, Pierre Muller wrote: >=20 > > 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 =3D=3D "class" } { > > + if [board_info $dest exists pascal_class_flags] { > > + append add_flags " [board_info $dest pscal_class_flags]" >=20 > It'd be good to try setting this in a board file to make sure it > works. I've spotted a typo here (same in the gpc branch): > "pscal_class_flags". I corrected the error below, but I never worked with boardinfo files, so I am not really sure how this works. =20 > Thanks, > Pedro Alves Corrected patch below, Pierre gdb/ChangeLog entry: 2015-01-23 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 =3D=3D "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pascal_class_flags]" + } else { + append add_flags " --extended-syntax" + } + } } =20 set result [remote_exec host $gpc_compiler "-o $dest --automake $add_f= lags $source"] @@ -120,6 +127,13 @@ proc fpc_compile {source dest type options} { append add_flags " -g" } } + if { $i =3D=3D "class" } { + if [board_info $dest exists pascal_class_flags] { + append add_flags " [board_info $dest pascal_class_flags]" + } else { + append add_flags " -Mobjfpc" + } + } }