Re: Hiding the value of Constants

[anon@anon.org (anon)]

Like I sometime say, this preson could be a student so, you show 
him part of the answer but not al .  It works, and it will work if you 
change the statement by using "constant" too.  But you may have to 
add a couple of other statements, or not.

In <a6924870-4fe8-4e56-8a5b-23a663262778@d32g2000yqh.googlegroups.com>, AdaMagica <christoph.grein@eurocopter.com> writes:
>On 10 Jul., 01:04, a...@anon.org (anon) wrote:
>> This program and package shows how to hide an Integer. I guess the other
>> guys are too busy.
>
>Rick wanted to know how to hide a constant's value, so this is not
>what he asked for. This has been answered long ago.
>
>> package Y1 is
>>
>> =A0 Test_Value : Integer ; -- Value is hidden
>>
>> =A0 procedure dummy ; -- stops the compiler warnings
>> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 -- normally replaced by usable
>> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 -- routines.
>>
>> end Y1 ;
>
>You mean the warning that this package does not allow a body without
>this Dummy?
>If you need a body, do not define junk subprograms, use pragma
>Elaborate_Body instead.
>
>package Y1 is
>  pragma Elaborate_Body;
>  Test_Value: Integer; -- Only initial value is hidden (if there
>really is one),
>                       -- it can be written by anyone.
>end Y1 ;