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 X-Google-NewGroupId: yes X-Google-Attributes: gida07f3367d7,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!postnews.google.com!l6g2000yqb.googlegroups.com!not-for-mail From: Ludovic Brenta Newsgroups: comp.lang.ada Subject: Re: xe_front.adb:547 - SYSTEM.ASSERTIONS.ASSERT_FAILURE Date: Wed, 1 Sep 2010 00:15:49 -0700 (PDT) Organization: http://groups.google.com Message-ID: <15be2e3a-00df-4f44-8bc8-dea7a2f18896@l6g2000yqb.googlegroups.com> References: <4c7c294b$1@news.broadpark.no> NNTP-Posting-Host: 153.98.68.197 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: posting.google.com 1283325349 896 127.0.0.1 (1 Sep 2010 07:15:49 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Wed, 1 Sep 2010 07:15:49 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: l6g2000yqb.googlegroups.com; posting-host=153.98.68.197; posting-account=pcLQNgkAAAD9TrXkhkIgiY6-MDtJjIlC User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.6) Gecko/20100625 Firefox/3.6.6,gzip(gfe) Xref: g2news1.google.com comp.lang.ada:13889 Date: 2010-09-01T00:15:49-07:00 List-Id: Frank wrote on comp.lang.ada: > Hi! > > I posted this in PolyORB mailing list, but it is very quiet there, so I t= ry 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 inst= all 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 / W= indows XP / Cygwin (older revision I think but that PC is for repairs at th= e 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 managin= g to close in to what element is creating this problem. > > This is the configuration file: > > -------------------------------------------------------------------------= -- > configuration seabattle is > > =A0 =A0pragma Version (False); > > =A0 =A0pragma Starter (None); > > -- =A0 pragma Boot_Location ("tcp", "localhost:5557"); > > =A0 =A0-- > =A0 =A0seabattle_client : Partition :=3D (Client); --, MyClient); > =A0 =A0procedure main_client; > =A0 =A0for seabattle_client'Main use main_client; > > =A0 =A0-- This partition is the authentic server partition > =A0 =A0-- > =A0 =A0seabattle_server : Partition :=3D (Server.Remote, Server.Remote.Ac= tionBroker); > =A0 =A0procedure main_server is in seabattle_server; > =A0 =A0for seabattle_server'Task_Pool use (1, 1, 1); > =A0 =A0for seabattle_client'Task_Pool use (1, 1, 1); > > -- =A0 for seabattle_client'Host use "localhost"; > =A0 =A0for seabattle_server'Host use "localhost"; > > =A0 =A0for seabattle_server'Termination use Local_Termination; > =A0 =A0for seabattle_client'Termination use Local_Termination; > end seabattle; > -------------------------------------------------------------------------= -- > > Any proposals to what is causing this? A cursory look at xe_front.adb reveals a single pragma Assert which causes the exception: procedure Frontend is Node : Node_Id; HID : Host_Id; begin First_Configuration_Declaration (Configuration_Node, Node); while Node /=3D Null_Node loop if Is_Variable (Node) then Build_New_Variable (Variable_Id (Node)); elsif Is_Configuration (Node) and then Comes_From_Source (Node) then pragma Assert (Configuration =3D No_Name); Configuration :=3D Get_Node_Name (Node); Set_Application_Names (Configuration); elsif Is_Type (Node) then Set_Type_Attribute (Type_Id (Node)); elsif Is_Statement (Node) then Set_Pragma_Statement (Get_Subprogram_Call (Statement_Id (Node))); end if; Next_Configuration_Declaration (Node); end loop; So it would seem that your configuration file contains more than one configuration. -- Ludovic Brenta.