Re: Variant record limitation - what's a better solution?

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

On 03.07.13 09:52, Peter Brooks wrote:
> I see that I can't do what I'd like to with a variant record. What should I be doing?
>
> Here's an example:
>
> type
> my_object(X : size_type) is
>         record
>                name : string(1..80);
>                case X is
>                   when small => Y : small_type; -- line 20
>                   when medium => Y : medium_type; -- line 21
>                   when large => Y: large_type; -- line 22
>                end case;
>         end record;
>
> The errors are:
> line 21  'Y' conflicts with declaration at line 20
> line 22 'Y' conflicts with declaration at line 21
>
> I was hoping to have a different type depending on the case, but this doesn't seem allowed. What would achieve this?
>

Different types are o.K., the same name for different
components isn't. Three overloaded accessor functions Y
each returning one of the components will work.