gnat3.14p on solaris 9 crashes

[Pete <pete@nowhere.org>]

Hi,

	Has anyone had a successful port of gnat onto solaris 9? I can
get basic ada programs to run but when I try to use tasks there is a
crash in ada_init. I've tried recompiling gnat on solaris 9 but that
didn't work either. Everything works fine on solaris 7, and 8. For
example the following simple program crashes on solaris 9. I don't
even have to start the task to get a seg fault. Also, if I replace
the libthread.so with libthread.so from solaris 8, it doesn't crash
but it just hangs. Maybe gnat is assuming something it shouldn't 
about the solaris threading model?

with Text_Io;

procedure Ada_Test is
	task Do_It is
		entry Start;
		entry Stop;
	end Do_It;

	task body Do_It is
	begin
		select
		   accept Start;
			   while true loop
				  Text_Io.Put_Line("Hello world");
			      select
			         accept Stop;
				     exit;
		          or
		             delay 1.0;
		          end select;	      
			   end loop;
		   or
		      terminate;
	       end select;
       end Do_It;

begin
   null;
end Ada_Test;

- pete