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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fb3e2c68966df2b7,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-11-18 20:16:10 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!gestalt.direcpc.com!cyclone2.usenetserver.com!news.webusenet.com!newsfeed1.cidera.com!Cidera!cyclone.nyroc.rr.com!cyclone-out.nyroc.rr.com!twister.nyroc.rr.com.POSTED!not-for-mail
From: Pete <pete@nowhere.org>
Subject: gnat3.14p on solaris 9 crashes
Newsgroups: comp.lang.ada
Message-ID: <pan.2002.11.18.23.23.47.499691.11234@nowhere.org>
User-Agent: Pan/0.11.2 (Unix)
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Comment-To: ALL
Date: Tue, 19 Nov 2002 04:16:06 GMT
NNTP-Posting-Host: 24.164.180.125
X-Complaints-To: abuse@rr.com
X-Trace: twister.nyroc.rr.com 1037679366 24.164.180.125 (Mon,
 18 Nov 2002 23:16:06 EST)
NNTP-Posting-Date: Mon, 18 Nov 2002 23:16:06 EST
Organization: Road Runner
Xref: archiver1.google.com comp.lang.ada:31081
Date: 2002-11-19T04:16:06+00:00
List-Id: <comp.lang.ada>

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