BRYAN@SU-SIERRA.ARPA (Doug Bryan) (10/15/85)
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
-------