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,
	MSGID_SHORT autolearn=no autolearn_force=no version=3.4.4
Path: utzoo!attcan!uunet!husc6!uwvax!umn-d-ub!umn-cs!bungia!com50!ems!srcsip!tap
From: tap@srcsip.UUCP (Thomas A Peterson)
Newsgroups: comp.lang.ada
Subject: Re: Modifications to the SAIC Ada binding to the X Window System for VADS
Message-ID: <5348@altaira.srcsip.UUCP>
Date: 24 Jun 88 13:17:30 GMT
Organization: Honeywell S&RC MPLS,MN
List-Id: <comp.lang.ada>


In response to :

>>Path: srcsip!ems!amdahl!ames!sgi!wdl1!marie
>>From: marie@wdl1.UUCP (Marie T. Minogue)
>>References: <8806191006.AA01992@ajpo.sei.cmu.edu>

>>If this is the modification for the VADS compiler, why does my VADS
>>SUN 3 version 5.5 compiler reject these changes?
>>for the lines like :
>>   pragma INTERFACE (C, Xcopycolormapandfree, "_XCopyColormapAndFree");

>>I get the error :

>> 482:  pragma INTERFACE (C, Xcopycolormapandfree, "_XCopyColormapAndFree");
>>A --------------------------^
>>A:warning: RM 13.9(4): parameter types must be scalar, access or SYSTEM.ADDRESS
>>A:warning: RM 13.9(4): parameter types must be scalar, access or SYSTEM.ADDRESS
>>A:warning: RM 13.9(4): result type must be scalar, access or SYSTEM.ADDRESS

>>This is true for all of the pragmas.

>>The object being pointed to is a private type which is
>>declared as an acess type in the private part of the package.

>>DID I not receive something or am I using the wrong compiler?


The reason you get these warnings is because the objects being pointed
to are private types, as you figured out.  VADS must make the
assumption that they are of 32 bit integers after stating the warning.
Anyway, the binding does work even though there are warnings.  The
only ways I see to get rid of the warnings is to not have the private
types or to move the X_Windows_Interface package within the scope of
the private types.