Re: C-style 'union' in Ada?

[Ole-Hjalmar Kristensen <ohk@clustra.com>]

"Martin Dowie" <martin.dowie@nospam.baesystems.com> writes:

> 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.

Yes, but you can only change it with a whole record assignment.

> 
> 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;
> >
> 
> 

-- 
Kabelsalat ist gesund.

Ole-Hj. Kristensen