Re: rep clause in generics

[Stephen Leake <Stephen.Leake@gsfc.nasa.gov>]

Jonas Nygren wrote:
> 
> I tried to write a small generic package that represents packed arrays of
> some element type:
> 
> generic
>    type Element_Type is private;
> package Gen_Buffers is
>    type Index_Type  is new Natural;
>    type Buffer_Type is array(Index_Type range <>) of Element_Type;
> 
>    pragma Pack (Buffer_Type);
>    for Buffer_Type'Component_Size use Element_Type'Size; -- line 9
> end Gen_Buffers;
> 
> The compiler complained with:
> 
>    gen_buffers.ads:9:39: static integer expression required here
> 
> I thought that Element_Type'Size was a static integer expression. Am I or
> the compiler in error?

Sorry, but you are. Consider:

procedure Non_Static_Instantiation (Length : in Integer)
is
	type String_Index is 1 .. Length;
	subtype Fixed_String is String (String_Index);

	package Fixed_String_Buffers is new Gen_Buffers (Fixed_String);
begin
	...
end;

Element_Type'size is determined by a run-time parameter, so it is NOT
static.

	
> 
> /jonas

-- 
- Stephe