Re: Question: dynamic rename?

[Pascal Obry <pascal@obry.net>]

Le 03/09/2011 14:27, ytomino a �crit :
> If signal_one and signal_two are (aliased) variable,
>
> function signal_ref return access signal_type is
> begin
>     case configuration is
>        when one =>  return signal_one'Access;
>        when two =>  return signal_two'Access;
>     end case;
> end signal_ref;
>
> signal : signal_type renames signal_ref.all;

Or using a case expression in Ada 2012:

    Signal : Signal_Type :=
               (case Configuration is
                   when One => Signal_One,
                   when Two => Signal_Two);

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B