From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.stack.nl!newsfeed.xs4all.nl!newsfeed2.news.xs4all.nl!xs4all!takemy.news.telefonica.de!telefonica.de!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Thu, 03 Jul 2014 15:33:28 +0200
From: "G.B." <rm-dash-bau-haus@dash.futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.9;
 rv:24.0) Gecko/20100101 Thunderbird/24.6.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Strange bug in GNAT
References: <slrnlr8k48.i0l.lithiumcat@nat.rebma.instinctive.eu>
 <lyr423bjvt.fsf@pushface.org>
In-Reply-To: <lyr423bjvt.fsf@pushface.org>
Content-Type: multipart/mixed;
 boundary="------------020506090509090307030106"
Message-ID: <53b55ba8$0$6656$9b4e6d93@newsspool3.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 03 Jul 2014 15:33:28 CEST
NNTP-Posting-Host: 23ed8a7c.newsspool3.arcor-online.net
X-Trace: 
 DXC=bcc?e_2T=Y0NTD<CL>55K=McF=Q^Z^V384Fo<]lROoR18kF<OcfhCO;`^X5QCGVNo3nc\616M64>:Lh>_cHTX3j=E?HKS^<S8G3
X-Complaints-To: usenet-abuse@arcor.de
Xref: news.eternal-september.org comp.lang.ada:20694
Date: 2014-07-03T15:33:28+02:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------020506090509090307030106
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

On 02.07.14 22:12, Simon Wright wrote:
> Is there any chance that you can reproduce the problem using GNAT GPL?

It works with or without the anonymous block with GNAT GPL 2014
and AWS GPS 2014 on a Mac. I have had to tweak the make .gpr
a bit, to make it independent of the testing setup. The unit
"tests/minimal.adb" is like "tests/upload_server.adb" without
the non-debug branches.



--------------020506090509090307030106
Content-Type: text/plain; charset=UTF-8; x-mac-type="0"; x-mac-creator="0";
 name="simple-webapps.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="simple-webapps.diff"

diff --git a/src/simple_webapps-upload_servers.adb b/src/simple_webapps-upload_servers.adb
index 71c2892..c16fab3 100644
--- a/src/simple_webapps-upload_servers.adb
+++ b/src/simple_webapps-upload_servers.adb
@@ -155,11 +155,11 @@ package body Simple_Webapps.Upload_Servers is
             null;  --  processed below
 
          when others =>
-            begin  --  explicit block needed to work around a GNAT parsing bug
+--          begin  --  explicit block needed to work around a GNAT parsing bug
                return Error_Page
                  (AWS.Messages.S405,
                   Dispatcher.DB.Query.Data.Error_Template);
-            end;
+--          end;
       end case;
 
       declare
diff --git a/webapps.gpr b/webapps.gpr
index 53b2130..4ad6a93 100644
--- a/webapps.gpr
+++ b/webapps.gpr
@@ -15,10 +15,10 @@ project Webapps is
          Prefix := "coverage/";
    end case;
 
-   for Source_Dirs use ("src");
+   for Source_Dirs use ("src", "tests");
    for Object_Dir use Prefix & "obj";
    for Exec_Dir use Prefix & "bin";
-   for Main use ("upload_server.adb");
+   for Main use ("minimal.adb");
 
    case Mode is
       when "Release" =>

--------------020506090509090307030106--