Re: Renaming record discriminants.

[dewar@cs.nyu.edu (Robert Dewar)]

Tuck said:

":    type Record_Type(Has_Value : Boolean) is
:        record
:          case Has_Value is
:             when True =>
:               Value : Integer;
:             when False =>
:                 null;
:          end case;

:    Object : Record_Type := (Has_Value => True, Value => 1);

:    Discriminant : Boolean renames Object.Has_Value; -- error
:    Component : Integer renames Object.Value; -- error

: (there may be a typo or something in there, this is off the top of my head)

: The Intermetrics compiler I am using complains that:
: Object.Has_Value depends on discriminants of an unconstrained formal
: parameter with default discriminants [RM_95 8.5.1(5)]

If it really complains, then this is a compiler bug.
I have not been able to reproduce this problem with
a recent version of this compiler, so you should submit
a formal bug report if you have a (ideally minimal) test
case that shows the problem."

Gee Tuck, I trust the intermetrics compiler *does* complain about
the missing "end record" in the above example :-) :-)