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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,67d232d0191b51a6,start
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
From: "Frank" <a@b.c>
Subject: xe_front.adb:547 - SYSTEM.ASSERTIONS.ASSERT_FAILURE
Newsgroups: comp.lang.ada
Date: Mon, 30 Aug 2010 23:57:31 +0200
NNTP-Posting-Host: 1.84-48-60.nextgentel.com
X-Original-NNTP-Posting-Host: 1.84-48-60.nextgentel.com
Message-ID: <4c7c294b$1@news.broadpark.no>
X-Trace: news.broadpark.no 1283205451 84.48.60.1 (30 Aug 2010 23:57:31 +0200)
Path: 
 g2news1.google.com!news3.google.com!feeder.news-service.com!feed.xsnews.nl!border-1.ams.xsnews.nl!usenet.hanse.com!nntp.gblx.net!nntp3.phx1!news.broadpark.no!not-for-mail
Xref: g2news1.google.com comp.lang.ada:13864
Date: 2010-08-30T23:57:31+02:00
List-Id: <comp.lang.ada>

Hi! 

I posted this in PolyORB mailing list, but it is very quiet there, so I try here also.

I have installed GNAT:
GNATMAKE GPL 2010 (20100603)
GNATDIST GPL 2010-20100603 (rev. 160601)
on Windows 7, using Cygwin (latest version)
With DSA to enable Distributed Annex E (and debug enabled)

After some tweaking (the normal tweaking) the configure and make all install seems to execute normal.
I get the executables po_gnatdist, po_cos_naming and so on.

Now I try my old project that compiled on previous version of PolyORB / Windows XP / Cygwin (older revision I think but that PC is for repairs at the moment)

The executable PO_GNATDIST failes very early in the process:

------
C:\Ada\Seabattle>po_gnatdist seabattle.cfg
Execution terminated by unhandled exception
Exception name: SYSTEM.ASSERTIONS.ASSERT_FAILURE
Message: xe_front.adb:547
Call stack traceback locations:
0x456a69 0x4184e2 0x451950 0x402db1 0x4017da 0x4010b4 0x401146 0x76cb3675 0x7772
9d40 0x77729d13
-----

I have tried to comment lines from the configuration file without managing to close in to what element is creating this problem.

This is the configuration file:

---------------------------------------------------------------------------
configuration seabattle is

   pragma Version (False);

   pragma Starter (None);

--   pragma Boot_Location ("tcp", "localhost:5557");

   --
   seabattle_client : Partition := (Client); --, MyClient);
   procedure main_client;
   for seabattle_client'Main use main_client;

   -- This partition is the authentic server partition
   --
   seabattle_server : Partition := (Server.Remote, Server.Remote.ActionBroker);
   procedure main_server is in seabattle_server;
   for seabattle_server'Task_Pool use (1, 1, 1);
   for seabattle_client'Task_Pool use (1, 1, 1);
   
--   for seabattle_client'Host use "localhost";
   for seabattle_server'Host use "localhost";

   for seabattle_server'Termination use Local_Termination;
   for seabattle_client'Termination use Local_Termination;
end seabattle;
---------------------------------------------------------------------------


Any proposals to what is causing this?

Frank