Re: Strange bug in GNAT

["G.B." <rm-dash-bau-haus@dash.futureapps.de>]

[-- Attachment #1: Type: text/plain, Size: 387 bytes --]

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.



[-- Attachment #2: simple-webapps.diff --]
[-- Type: text/plain, Size: 1169 bytes --]

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" =>