Re: How do I disable elaboration code on this

[Lucretia <Lucretia9000@yahoo.co.uk>]

On Apr 10, 9:47 pm, Georg Bauhaus <rm-host.bauh...@maps.futureapps.de>
wrote:
> pragma Restrictions (No_Elaboration_Code);
>
> with System;
>
> package ISR is
>     procedure Dummy;
>     pragma Convention (C, Dummy);
>
> private
>     type Cb is not null access procedure;
>     pragma Convention (C, Cb);
>
>     type CbW is limited record
>        C : Cb := Dummy'Access;
>     end record;
>     type Vectors is array (1 .. 4) of CbW;
>     pragma Convention (C, Vectors);
>
>     Addr : constant System.Address := System'To_Address
>          (16#0000_0000#);
>
>     Vector : Vectors;
>     pragma Import (Ada, Vector);
>     for Vector'Address use Addr;
> end ISR;

But can you initialise the array with different routines? I'm betting
not. In a real implementation, there will be a number of ISR's but
some may point to the dummy one.

Luke.