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,FREEMAIL_FROM autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,bc90e355ba0a1f8f X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-11-08 01:51:01 PST Path: archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsgate.cistron.nl!amsnews01.chello.com!newsfeed.wxs.nl!textnews.wxs.nl!not-for-mail From: "Ruben Stranders" Newsgroups: comp.lang.ada Subject: Re: Ada multi-threaded programs do not terminate under RedHat Linux Date: Sat, 8 Nov 2003 10:49:47 +0100 Organization: Planet Internet Message-ID: References: <43f0a81.0311071228.6620c6c2@posting.google.com> NNTP-Posting-Host: ip503c1133.speed.planet.nl X-Trace: reader10.wxs.nl 1068285136 12243 80.60.17.51 (8 Nov 2003 09:52:16 GMT) X-Complaints-To: abuse@planet.nl NNTP-Posting-Date: 8 Nov 2003 09:52:16 GMT X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Xref: archiver1.google.com comp.lang.ada:2251 Date: 2003-11-08T09:52:16+00:00 List-Id: This is the output I'm getting: ================== GNATMAKE 3.2.2 20030222 (3.2.2-4) Copyright 1995-2001 Free Software Foundation, Inc. "test.ali" being checked ... -> "test.adb" time stamp mismatch gcc -c test.adb End of compilation gnatbind -x test.ali gnatlink test.ali gnatlink: warning: executable name "test" may conflict with shell command [strand00@atlas rts]$ ./test Start 1 Finish 1 Start 2 Finish 2 =================== This is *very* strange.... "Dennis Lee Bieber" wrote in message news:h8fu71-s53.ln1@beastie.ix.netcom.com... > Ruben Stranders fed this fish to the penguins on Friday 07 November > 2003 12:28 pm: > > > > > I've compiled it under RedHat Linux 9.0 with "gnatmake test.adb". > > Unfortunately, the resulting program doesn't terminate. Instead of the > > expected output: > > > A stale version of Mandrake (8.2), GNAT 3.15p, with the following > modified version of your test: > > with ada.text_io; use ada.text_io; > > procedure test is > task type counter(ID : integer); > > task body counter is > i : integer := 0; > begin > put("Start "); put_line(integer'image(ID)); > while i < 10_000 loop > i := i + 1; > end loop; > put("Finish "); put_line(integer'image(ID)); > end; > > task1 : counter(1); > task2 : counter(2); > > begin > put_line("Test"); > end test; > > :produces the following (allowing for editor line wraps): > > [wulfraed@beastie ada]$ gnatmake -v test > > GNATMAKE 3.15p (20020523) Copyright 1995-2002 Free Software > Foundation, Inc. > "test.ali" being checked ... > -> "test.adb" time stamp mismatch > gcc -c test.adb > End of compilation > gnatbind -x test.ali > gnatlink test.ali > gnatlink: warning: executable name "test" may conflict with shell > command > > [wulfraed@beastie ada]$ ./test > Start 1 > Finish 1 > Test > Start 2 > Finish 2 > > -- > > ============================================================== < > > wlfraed@ix.netcom.com | Wulfraed Dennis Lee Bieber KD6MOG < > > wulfraed@dm.net | Bestiaria Support Staff < > > ============================================================== < > > Bestiaria Home Page: http://www.beastie.dm.net/ < > > Home Page: http://www.dm.net/~wulfraed/ < >