spawn_24.0.0_8f4c2fa8/testsuite/spawn/signals.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
with Ada.Interrupts.Names;

package Signals is

   pragma Unreserve_All_Interrupts;

   protected Signal_Handler is

      procedure On_Term_Signal;

      pragma Attach_Handler (On_Term_Signal, Ada.Interrupts.Names.SIGTERM);

   end Signal_Handler;
end Signals;