Re: Ada multi-threaded programs do not terminate under RedHat Linux

[Adrian Hoe <adrianhoe@nowhere.com>]

Which version of gcc do you have on your RH9 box?

I used to have tasking problem with gcc 3.3 prerelease version bundled 
in SuSE 8.1. The problem disappear when I upgraded to SuSE 8.2. 
Apparently, the gcc 3.3 prerelease bundled in SuSE 8.2 had the problem 
fixed.

I'm running gcc 3.3 20030226 (prerelease) bundled with SuSE Linux 8.2.

I may suggest you to download latest release of gcc from RH website if 
any. gcc 3.3 from SuSE 8.2 should work on your RH9 too.



Ruben Stranders wrote:

> I get the following output:
> 
> Start  1
> Start  2
> Finish  2
> Finish  1
> (Program doesn't terminate, have to kill it with Ctrl-C)
> 
> This indicates that the procedure test is never called.
> 
> Ruben
> 
> 
> 
> "Dennis Lee Bieber" <wlfraed@ix.netcom.com> wrote in message
> news:fhnv71-s24.ln1@beastie.ix.netcom.com...
> 
>>Ruben Stranders fed this fish to the penguins on Saturday 08 November
>>2003 01:49 am:
>>
>>
>>
>>>[strand00@atlas rts]$ ./test
>>>Start  1
>>>Finish  1
>>>Start  2
>>>Finish  2
>>>===================
>>>
>>>This is *very* strange....
>>>
>>>
>>        One more variation, with a much longer timing loop, and a bit more
>>stuff going on inside.
>>
>>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_000 loop
>>                        i := i + 1;
>>                end loop;
>>                put("Finish "); put_line(integer'image(ID));
>>        end;
>>
>>        task1 : counter(1);
>>        task2 : counter(2);
>>
>>        procedure adummy is
>>                task3 : counter(3);
>>                task4 : counter(4);
>>        begin
>>                put_line("adummy");
>>        end;
>>
>>begin
>>        put_line("Test");
>>        adummy;
>>        put_line("End it");
>>end test;
>>
>>        My output looks like:
>>
>>[wulfraed@beastie ada]$ ./test
>>Start  1
>>Test
>>Start  2
>>Start  3
>>adummy
>>Start  4
>>Finish  1
>>Finish Finish  2
>> 3
>>Finish  4
>>End it
>>
>>        Notice how 2 and 3 overlapped the I/O (since the "Finish" and the
>>
> ID
> 
>>are separate calls).
>>
>>        Try something like this one, AND try redirecting the output to a
>>
> text
> 
>>file. I'm wondering if the RH9 console I/O system might be overwriting
>>part of your output -- redirecting, as in
>>
>>[wulfraed@beastie ada]$ ./test >test.log
>>
>>would give you a file you can look at with a binary editor. At the very
>>least, if you get 3 and 4 output you've shown that the main procedure
>>/is/ executing, but then have to figure out why the tasks are getting
>>to stdout, but not the main...
>>
>>-- 
>> > ============================================================== <
>> >   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/             <
>>
> 
> 


-- 
Adrian Hoe
m a i l b o x AT a d r i a n h o e . c o m