1------------------------------------------------------------------------------ 2-- -- 3-- GNAT RUN-TIME COMPONENTS -- 4-- -- 5-- A D A . E X E C U T I O N _ T I M E . I N T E R R U P T S -- 6-- -- 7-- S p e c -- 8-- -- 9-- This specification is derived from the Ada Reference Manual for use with -- 10-- GNAT. In accordance with the copyright of that document, you can freely -- 11-- copy and modify this specification, provided that if you redistribute a -- 12-- modified version, any changes that you have made are clearly indicated. -- 13-- -- 14------------------------------------------------------------------------------ 15 16with Ada.Interrupts; 17 18package Ada.Execution_Time.Interrupts is 19 20 pragma Unimplemented_Unit; 21 22 function Clock (Interrupt : Ada.Interrupts.Interrupt_Id) return CPU_Time; 23 24 function Supported (Interrupt : Ada.Interrupts.Interrupt_Id) return Boolean; 25 26end Ada.Execution_Time.Interrupts; 27