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

["Ruben Stranders" <rstranders@yahoo.com>]

I'm using gcc 3.2.2. I'll try to upgrade to version 3.3, although the rpm's
are not (yet) available on redhat.com.




"Adrian Hoe" <adrianhoe@nowhere.com> wrote in message
news:3FADD13A.1020903@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
>