From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 18 Aug 93 20:31:44 GMT
From: cis.ohio-state.edu!math.ohio-state.edu!howland.reston.ans.net!vixen.cso.u
iuc.edu!cs.uiuc.edu!cs.uiuc.edu!rowe@ucbvax.Berkeley.EDU  (Kenneth E. Rowe)
Subject: Re: OO Preprocessor for Ada
Message-ID: <CBz2Cx.8q2@cs.uiuc.edu>
List-Id: <comp.lang.ada>

...stuff deleted
>
>   with X, Text_IO;
>   procedure Some_Client is
>      An_Object : X.Object;
>      P : Integer;
>   begin
>      X.Create (Instance => An_Object, P1 => 7);
>      X.Modify (An_Object, P1 => 3);
>      P := X.P1 (An_Object);
>      Text_IO.Put ("The value of P1 is: ");
>      Text_IO.Put ( Integer'IMAGE(P) );
                     ^^^^^^^^^^^^^^^^
Since X.Object is a tagged limited private type, can you 
actually do an Integer'IMAGE on P?

{I liked your post, but I'm just trying to make sure I understand
the example}

>   end Some_Client;
>   

Ken.