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=0.4 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e51f94f876618e37
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.180.104.167 with SMTP id gf7mr1056446wib.4.1352509726796;
        Fri, 09 Nov 2012 17:08:46 -0800 (PST)
Path: 
 ha8ni191235wib.1!nntp.google.com!goblin1!goblin.stu.neva.ru!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Question[s] about aliased extended return.
Date: Fri, 09 Nov 2012 18:08:43 -0700
Organization: Also freenews.netfront.net; news.tornevall.net
Message-ID: <k7k9es$5nd$1@dont-email.me>
References: <9bbd99bd-f953-434d-b3c8-6e8a6d5c7dfd@googlegroups.com>
 <k7hjj5$kj9$1@munin.nbi.dk>
 <bc5c504b-6261-4a18-a7b6-36bb95fabd7f@googlegroups.com>
Mime-Version: 1.0
Injection-Date: Sat, 10 Nov 2012 01:08:46 +0000 (UTC)
Injection-Info: mx04.eternal-september.org;
 posting-host="c90e089bb12f916d4cef1340590eea0f";
	logging-data="5869"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX18CFE/vy57ZHGa+9fXnkMnZmMiY2JP8VF0="
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:16.0) Gecko/20121028 Thunderbird/16.0.2
In-Reply-To: <bc5c504b-6261-4a18-a7b6-36bb95fabd7f@googlegroups.com>
Cancel-Lock: sha1:ChoDrWRQmUOGseFQ61wglyvWvTs=
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Date: 2012-11-09T18:08:43-07:00
List-Id: <comp.lang.ada>

On 11/09/2012 12:42 PM, Shark8 wrote:
>
>      Function GetTexGen (	coord : Texture_Coordinate_Type;
> 				pname : Texture_Coordinate_Generation)
> 				Return Double_Vector_Type is
>      begin
> 	Return Result : Double_Vector_Type(1..Get_Elements( pname )) do
> 		glGetTexGendv(
> 			coord  => Convert(coord),
> 			pname  => Convert(pname),
> 			params => To_Pointer( Result'Address )
> 		);
> 	End Return;
>      end GetTexGen;

The extended return exists for build-in-place results of limited types. There's 
really no reason to use it for other types.

function Gettexgen (Coord : in Texture_Coordiate_Type;
                     Pname : in Texture_Coordinate_Generation)
return Double_Vector_Type is
    Result : aliased Double_Vector_Type (1 .. Get_Elements (Pname) );
begin -- Gettexgen
    Glgettexgendv (Coord  => Convert (Coord),
                   Pname  => Convert (Pname),
                   Params => Result'Unchecked_Access);

    return Result;
end Gettexgen;

-- 
Jeff Carter
"It is the German who is so uncourteous to his verbs."
A Scandal in Bohemia
122