Re: ARM Compiler Locks Up on Declaration of Timing_Event

[williamjthomas7777@gmail.com]

On Friday, August 8, 2014 7:21:39 AM UTC-4, williamjt...@gmail.com wrote:
> When I take the LED demo and add this package to it and then "with" it from the main program the compiler locks up (starts to compile, never returns). I'm not using a local timer which is restricted. Please show me the error its choking on.
> 
> 
> 
> with Ada.Real_Time.Timing_Events; 
> 
> use Ada.Real_Time.Timing_Events;
> 

Too many late nights! Forget the post.

> 
> 
> package Timer_Pack is
> 
> 
> 
>    Event_1 : Timing_Event;
> 
>    
> 
>    R1 : constant Integer := 500;
> 
> 
> 
>   procedure Initialize;
> 
> 
> 
>    protected Timers is
> 
>      procedure Rate_1 ( Event : in out Timing_Event );
> 
>    private
> 
>      State : Boolean := False;
> 
>    end Timers;
> 
> 
> 
> end Timer_Pack;
> 
> 
> 
> with LEDs; use LEDs;
> 
> 
> 
> package body Timer_Pack is
> 
> 
> 
>    procedure Initialize is
> 
>    begin
> 
>      Set_Handler(Event1,Milliseconds(R1),Rate_1'Access);
> 
>    end Initialize;
> 
> 
> 
>     protected body Timers is
> 
> 
> 
>      procedure Rate_1 ( Event : in out Timing_Event ) is
> 
>      begin
> 
>         State := not State;
> 
>         if 
> 
>           State 
> 
>         then 
> 
>           On(Green); 
> 
>         else 
> 
>           Off(Green); 
> 
>         end if;
> 
>         Set_Handler(Event,Milliseconds(R1),Current_Event_Handler(Event));
> 
>      end Rate_1;
> 
> 
> 
>    end Timers;
> 
> 
> 
> end Timer_Pack;