Re: How do I disable elaboration code on this

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

On 04/09/2011 06:58 AM, Lucretia wrote:
> The following code will not compile no matter what I do. Basically, I
> want to write the startup code for Cortex-M3 in Ada with no assembly.
> So, the ISR code needs to be elaboration free as it's the first bit of
> code that would run on reset.

>     Vector : constant Vectors :=
>       (Dummy'Access,
>        Dummy'Access,
>        Dummy'Access,
>        Dummy'Access);
>     pragma Convention (C, Vector);
>     for Vector'Address use Addr;

I think what you need here is

Vector : constant Vectors;
pragma Import (Ada, Vector);
for Vector'Address use Addr;

since you don't want Vector to be initialized.

Vector will not be initialized because you have pragma Import for it.

Note that you don't need procedure Dummy.

-- 
Jeff Carter
"I'm particularly glad that these lovely children were
here today to hear that speech. Not only was it authentic
frontier gibberish, it expressed a courage little seen
in this day and age."
Blazing Saddles
88