From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,2ebd9459a8ae4178
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news4.google.com!proxad.net!feeder1-2.proxad.net!fdn.fr!feeder.news.orange.fr!not-for-mail
Message-ID: <4E622A11.5030403@obry.net>
Date: Sat, 03 Sep 2011 15:22:25 +0200
From: Pascal Obry <pascal@obry.net>
Organization: Home - http://www.obry.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; fr-FR;
 rv:1.8.1.22) Gecko/20090605 Thunderbird/2.0.0.22 Mnenhy/0.7.5.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
To: ytomino <aghia05@gmail.com>
Subject: Re: Question: dynamic rename?
References: <691c0c64-4b85-4465-9b12-5d56123b8d94@r8g2000prd.googlegroups.com>
 <0629faf5-21ff-40ea-8fce-5fa8e7e91e51@p25g2000pri.googlegroups.com>
In-Reply-To: 
 <0629faf5-21ff-40ea-8fce-5fa8e7e91e51@p25g2000pri.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
NNTP-Posting-Date: 03 Sep 2011 15:22:25 CEST
NNTP-Posting-Host: 90.2.123.246
X-Trace: 1315056145 reader.news.orange.fr 18783 90.2.123.246:7053
X-Complaints-To: abuse@orange.fr
Xref: g2news1.google.com comp.lang.ada:20838
Date: 2011-09-03T15:22:25+02:00
List-Id: <comp.lang.ada>

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