ARM Compiler Locks Up on Declaration of Timing_Event

[williamjthomas7777@gmail.com]

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;

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;