Re: Question[s] about aliased extended return.

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

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