emacs_ada_mode_8.1.0_114ab44a/test/pragma_in_po.ads

 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;