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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!attcan!uunet!lll-winken!ncis.llnl.gov!helios.ee.lbl.gov!pasteur!ucbvax!AJPO.SEI.CMU.EDU!gerhardt
From: gerhardt@AJPO.SEI.CMU.EDU
Newsgroups: comp.lang.ada
Subject: bug in DEC compiler??
Message-ID: <8901260051.AA26048@ajpo.sei.cmu.edu>
Date: 26 Jan 89 00:51:09 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
List-Id: <comp.lang.ada>

We have tried to use the SAIC X window binding with the DEC ACS
compiler.

We are having problems with what looks like a bug in DEC ACS Ada.

The code fragment looks like :

	type FOO is record... end record;
	type CLIST is access FOO;
	procedure EXT ( A : in out SYSTEM.ADDRESS ) is ... end;
	pragma INTERFACE (EXT, SYSTEM.ADDRESS, VALUE);
	LOC : CLIST;
begin
	EXT(LOC.all.'ADDRESS);

...


This code compiles but when it runs it loses the address when it gets
to the externaL procedure (WRITTEN IN C).  

When an unchecked conversion to SYSTEM.ADDRESS is done on LOC and that
is used as the calling parameter, it works ok.  Am I missing
something, or is this
a plain old bug??  Thanks in advance


MArk Gerhardt
ESL, INC
reply : gerhardt@ajpo.sei.cmu.edu