Mercurial > hg > CbC > CbC_gcc

annotate gcc/ada/libgnarl/a-extiin.ads @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ------------------------------------------------------------------------------
kono
parents:
diff changeset
2 -- --
kono
parents:
diff changeset
3 -- GNAT RUN-TIME COMPONENTS --
kono
parents:
diff changeset
4 -- --
kono
parents:
diff changeset
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 --
kono
parents:
diff changeset
6 -- --
kono
parents:
diff changeset
7 -- S p e c --
kono
parents:
diff changeset
8 -- --
kono
parents:
diff changeset
9 -- This specification is derived from the Ada Reference Manual for use with --
kono
parents:
diff changeset
10 -- GNAT. In accordance with the copyright of that document, you can freely --
kono
parents:
diff changeset
11 -- copy and modify this specification, provided that if you redistribute a --
kono
parents:
diff changeset
12 -- modified version, any changes that you have made are clearly indicated. --
kono
parents:
diff changeset
13 -- --
kono
parents:
diff changeset
14 ------------------------------------------------------------------------------
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 with Ada.Interrupts;
kono
parents:
diff changeset
17 with Ada.Real_Time;
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 package Ada.Execution_Time.Interrupts with
kono
parents:
diff changeset
20 SPARK_Mode
kono
parents:
diff changeset
21 is
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 pragma Unimplemented_Unit;
kono
parents:
diff changeset
24
kono
parents:
diff changeset
25 function Clock (Interrupt : Ada.Interrupts.Interrupt_ID) return CPU_Time
kono
parents:
diff changeset
26 with
kono
parents:
diff changeset
27 Volatile_Function,
kono
parents:
diff changeset
28 Global => Ada.Real_Time.Clock_Time,
kono
parents:
diff changeset
29 Pre => Separate_Interrupt_Clocks_Supported;
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 function Supported (Interrupt : Ada.Interrupts.Interrupt_ID) return Boolean
kono
parents:
diff changeset
32 with
kono
parents:
diff changeset
33 Global => null;
kono
parents:
diff changeset
34
kono
parents:
diff changeset
35 end Ada.Execution_Time.Interrupts;