1 2 3 4 5 6 7 8 9 10 11 12 | -- From Simon Write with Ada.Real_Time.Timing_Events; package Pragma_In_Po is protected type Flasher_Handler is pragma Interrupt_Priority; procedure Turn_Off_The_Led (Event : in out Ada.Real_Time.Timing_Events.Timing_Event); end Flasher_Handler; end Pragma_In_Po; |