From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Ludovic Brenta Newsgroups: gmane.emacs.bugs Subject: bug#36788: 26.1; ada-mode 6.0.0 should support function expressions returning aggregates directly Date: Wed, 24 Jul 2019 18:13:56 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="31120"; mail-complaints-to="usenet@blaine.gmane.org" Cc: ada-mode-users@nongnu.org To: 36788@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Jul 24 18:15:24 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1hqJvH-0007wz-2S for geb-bug-gnu-emacs@m.gmane.org; Wed, 24 Jul 2019 18:15:23 +0200 Original-Received: from localhost ([::1]:53126 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hqJvF-0005cE-Rv for geb-bug-gnu-emacs@m.gmane.org; Wed, 24 Jul 2019 12:15:21 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59559) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hqJvC-0005a6-1z for bug-gnu-emacs@gnu.org; Wed, 24 Jul 2019 12:15:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hqJv6-0002QW-3M for bug-gnu-emacs@gnu.org; Wed, 24 Jul 2019 12:15:16 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:57328) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hqJuw-0002Bf-Ds; Wed, 24 Jul 2019 12:15:04 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hqJuw-0001h6-57; Wed, 24 Jul 2019 12:15:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Ludovic Brenta Original-Sender: "Debbugs-submit" Resent-CC: ada-mode-users@nongnu.org, bug-gnu-emacs@gnu.org Resent-Date: Wed, 24 Jul 2019 16:15:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 36788 X-GNU-PR-Package: emacs, ada-mode X-Debbugs-Original-To: bug-gnu-emacs@gnu.org X-Debbugs-Original-Xcc: ada-mode-users@nongnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15639848496419 (code B ref -1); Wed, 24 Jul 2019 16:15:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 24 Jul 2019 16:14:09 +0000 Original-Received: from localhost ([127.0.0.1]:37916 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hqJu5-0001fR-BD for submit@debbugs.gnu.org; Wed, 24 Jul 2019 12:14:09 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:34495) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hqJu3-0001fK-KA for submit@debbugs.gnu.org; Wed, 24 Jul 2019 12:14:08 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59217) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hqJu2-0004GR-A5 for bug-gnu-emacs@gnu.org; Wed, 24 Jul 2019 12:14:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hqJu0-0001BY-VI for bug-gnu-emacs@gnu.org; Wed, 24 Jul 2019 12:14:06 -0400 Original-Received: from webmail.bookmyname.com ([88.191.249.153]:47596 helo=webmail.free.org) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hqJu0-0000zV-Or for bug-gnu-emacs@gnu.org; Wed, 24 Jul 2019 12:14:04 -0400 Original-Received: from 153.98.68.208 (unknown [127.0.1.3]) by webmail.free.org (Postfix) with ESMTP id B4ED2398CB; Wed, 24 Jul 2019 18:13:56 +0200 (CEST) Original-Received: from [153.98.68.208] by webmail.ludovic-brenta.org with HTTP (HTTP/1.1 POST); Wed, 24 Jul 2019 18:13:56 +0200 X-Sender: ludovic@ludovic-brenta.org Original-X-Complaints-To: abuse_at_bookmyname.com X-Abuse-Info: Please be sure to forward a copy of ALL headers X-Origin-Web-Site: webmail.ludovic-brenta.org X-detected-operating-system: by eggs.gnu.org: FreeBSD 9.x [fuzzy] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:163673 Archived-At: Package: emacs, ada-mode X-Debbugs-CC: ada-mode-users@nongnu.org Severity: minor Hello, ada_mode_wisi_lr1_parse.exe does not follow AI12-0157[1], which allows a function expression to return an aggregate directly as opposed to an aggregate enclosed in an extra pair of parentheses: package P is type T is null record; function F return T is (null record); end P; ada-mode 6.0 and later (checked with 6.1.1) show red exclamation marks in the margin at function F. C-c C-f says: p.adb:3:51: syntax error: expecting BEGIN, ENTRY, FOR, FUNCTION, GENERIC, NOT, OVERRIDING, PACKAGE, PRAGMA, PROCEDURE, PROTECTED, SUBTYPE, TASK, TYPE, USE, IDENTIFIER, found 'LEFT_PAREN' Changing the line to function F return T is ((null record)); removes the parsing error. I know that GNAT Pro has had support for AI12-0157 for at least a couple of years and I'm pretty sure the latest GNAT GPL Edition has it too. [1] http://www.ada-auth.org/cgi-bin/cvsweb.cgi/ai12s/ai12-0157-1.txt?rev=1.6 -- Ludovic Brenta.