Re: Limited use for limited with?

[stefan-lucks@see-the.signature]

On Tue, 28 Sep 2010, Maciej Sobczak wrote:

> package Objects is
> 
>    type Object is interface;
>    type Object_Access is access all Object'Class;
> 
>    procedure Do_Something (X : in out Object) is abstract;
> 
> end Objects;

[...]
Compiler doesn't like Objects.Object_Access:

>     procedure Use_Object (X : Objects.Object_Access);

[...]
Anymous access works, but is ugly:

>     procedure Use_Object (X : access Objects.Object'Class);

[...]
> Any thoughts on this?

Not an answer to your question -- but what requirements force you to use 
an access type at all? To me, the most natural would be to write 
"X: in out Objects.Object":

limited with Objects;

package Use_Objects is

   procedure Use_1(X: access Objects.Object); -- compiles fine
   procedure Use_2(Y: in out Objects.Object); -- compiles fine
   procedure Use_3(Z: Objects.Object_Access); -- invalid use of incomplete 
type

end Use_Objects;

-- 
------ Stefan Lucks   --  Bauhaus-University Weimar  --   Germany  ------
               Stefan dot Lucks at uni minus weimar dot de
------  I  love  the  taste  of  Cryptanalysis  in  the  morning!  ------