Re: C-style 'union' in Ada?

["Martin Dowie" <martin.dowie@nospam.baesystems.com>]

The trick (if you could call it that!) is to include a default value
for the discriminant in the type definition. You can then change its
value at will. If you don't have a default then you have to contraint
the object when you declare it - which then fixes it to that value.

Brian Catlin <briancatlin@mindspring.com> wrote in message
news:9la73h$vvs$1@slb6.atl.mindspring.net...
> I didn't know that a discriminant could be assigned at run time.  This is
close to what I want to do.
>
> Thanks!
>  -Brian
>
> "DuckE" <nospam_steved94@home.com> wrote in message
news:7E0e7.12187$vW2.6599957@news1.sttln1.wa.home.com...
[snip]
> > procedure string_demo is
> >
> >   type str_type is ( ansi, wide );
> >
> >   type string_desc( str_select : str_type := ansi ) is
> >     record
> >       case str_select is
> >         when ansi =>
> >           ansi_string : String_Access;
> >         when wide =>
> >           wide_string : Wide_String_Access;
> >       end case;
> >     end record;
> >
> > begin
> >   declare
> >     str : string_desc;
> >   begin
> >     str := ( str_select => ansi, ansi_string => new
String'( "Hello" ) );
> >     Free( str.ansi_string );
> >     str := ( str_select => wide, wide_string => new Wide_String'(
> > "There" ) );
> >     Free( str.wide_string );
> >   end;
> > end string_demo;
>