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.6 required=5.0 tests=BAYES_05,INVALID_DATE autolearn=no autolearn_force=no version=3.4.4 Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.ARPA Path: utzoo!watmath!clyde!burl!ulysses!ucbvax!su-sierra.arpa!BRYAN From: BRYAN@SU-SIERRA.ARPA (Doug Bryan) Newsgroups: net.lang.ada Subject: "=" importation Message-ID: <8510150612.AA06862@UCB-VAX> Date: Mon, 14-Oct-85 17:30:04 EDT Article-I.D.: UCB-VAX.8510150612.AA06862 Posted: Mon Oct 14 17:30:04 1985 Date-Received: Wed, 16-Oct-85 05:17:56 EDT Sender: daemon@ucbvax.ARPA Organization: The ARPA Internet List-Id: The Rolm/Data General ADE rev 2.3 had the following to say about Steve's example: Ada 2.30.0.0 10/14/85 at 14:22:25 :DK1:UDD:BRYAN:ADA:DEV:MAIN.ADA page 1 ------+------------------------------------------------------------------------- 1 | package Import_Access_Type is 2 | type Pointer is access Integer; 3 | end Import_Access_Type; 4 | ======+========================================================================= ------+------------------------------------------------------------------------- 5 | with Import_Access_Type; 6 | procedure Main is 7 | X, Y : Import_Access_Type.Pointer; 8 | begin 9 | if (X = null) then ------+------------------------------------------------------------------------- ==> if (X = null) then *** Expression X = null matches no specification of operator =. ------+------------------------------------------------------------------------- 10 | Y := X; 11 | end if; 12 | if (Import_Access_Type."=" (X, null)) then 13 | Y := X; 14 | end if; 15 | end Main; 16 | ======+========================================================================= doug -------