Q re static deferred constants

Q re static deferred constants

[Tom Moran]

Given:
package p is 
  type T is new Integer;
  x : constant T;
private
  x : constant T := 1;

Is p.x static?  ie, can another package use p.x for a 'when' in a case
statement?

Re: Q re static deferred constants

[Tucker Taft]

Tom Moran (tmoran@bix.com) wrote:

: Given:
: package p is 
:   type T is new Integer;
:   x : constant T;
: private
:   x : constant T := 1;

: Is p.x static?  ie, can another package use p.x for a 'when' in a case
: statement?

If the full definition of X is not visible, then X is not static.
So inside the package body for P, and those of its children, X is static, 
but outside these places is not.

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA

Re: Q re static deferred constants

[Robert A Duff]

In article <33CDB52B.25FE@bix.com>, Tom Moran  <tmoran@bix.com> wrote:
>Given:
>package p is 
>  type T is new Integer;
>  x : constant T;
>private
>  x : constant T := 1;
>
>Is p.x static?  ie, can another package use p.x for a 'when' in a case
>statement?

No.

If X were static, then this would constitute a violation of privacy.  It
should not be possible to make a modification to a private part that
causes clients to become illegal.  If X were static, then such
modifications would be possible.

On the other hand, inside the package body, or anywhere else where that
private part is visible (child packages) X is of course static.

A good compiler will take advantage of the compile-time-known value 1,
despite the fact that X is not static (when viewed from outside).  But
that's a code-generation issue, not a legality issue.

- Bob

Re: Q re static deferred constants

[Tom Moran]

Tucker Taft said:
> :   type T is new Integer;
> :   x : constant T;
> : private
> :   x : constant T := 1;
>  
> : Is p.x static?  ie, can another package use p.x for a 'when' in a case
> : statement?
>  
> If the full definition of X is not visible, then X is not static.
> So inside the package body for P, and those of its children, X is static,
> but outside these places is not.
  So given
x : constant T;
y : constant T := 2;
private
x : constant T := 1;
  then y is everywhere static but x is static only in P or its children?

Re: Q re static deferred constants

[Tucker Taft]

Tom Moran (tmoran@bix.com) wrote:
: ...
:   So given
: x : constant T;
: y : constant T := 2;
: private
: x : constant T := 1;
:   then y is everywhere static but x is static only in P or its children?

Yes.

--
-Tucker Taft   stt@inmet.com   http://www.inmet.com/~stt/
Intermetrics, Inc.  Burlington, MA  USA