Re: (GNADE) Access attribute not allowed in generic body

[egilhh <egilhovik@hotmail.com>]

On Thursday, August 15, 2013 9:53:37 AM UTC+2, Dmitry A. Kazakov wrote:
> 
> 2.0. I moved Get and Set to private part of the package and used
> 
> 'Unrestricted_Access in Register. E.g.:


'Unrestricted_Access is Gnat-specific. A more portable alternative would
be constants in the private part of the spec:


> with GNU.DB.SQLCLI.Generic_Attr.String_Attribute;

[...] 
 
> private
> 
>    function Get (Handle    : Ctx;
> 
>                  Attribute : Attr.T;
> 
>                  MaxLength : SQLSMALLINT := 0;
> 
>                  Data      : Attr.Aux;
> 
>                  ErrorCode : access SQLRETURN)
> 
>                 return Attr.Attribute_Value_Pair'Class;
> 
>    procedure Set (Handle    : in  Ctx;
> 
>                   AV_Pair   : in  Attr.Attribute_Value_Pair'Class;
> 
>                   Data      : in  Attr.Aux;
> 
>                   ErrorCode : out SQLRETURN);

Get_Access : constant Attr_Get_Func := Get'Access;
Set_Access : constant Attr_Set_Proc := Set'Access;

> end GNU.DB.SQLCLI.Dispatch.A_String;
> 
> --------------------------------
> 
> package body GNU.DB.SQLCLI.Dispatch.A_String is

[...]

>    procedure Register (Index : in Attr.T) is
> 
>    begin

Get_Dispatch_Array (Index) := Get_Access;
Set_Dispatch_Array (Index) := Set_Access;
 
>    end Register;
> 
> 
> 
> end GNU.DB.SQLCLI.Dispatch.A_String;
> 
> -----------------------------------