File: /home/oboss/Users/gec/sources/Demonstrator/Low_Level_Drivers/interrupts.ads
1 --% Compilation Unit: Interrupts
2 --
3 --% Category: Package Declaration
4 --
5 --% Release: $Name: $
6 --
7 --% Version: $Revision: 2.0 $
8 --
9 --% Author: $Author: gec $
10 --
11 --% Revision Log:
12 -- $Log: interrupts.ads,v $
13 -- Revision 2.0 2003/04/04 08:50:31 gec
14 -- Initial release of source files serving as baseline for OBOSS-III project.
15 --
16 -- Revision 1.1.1.1 2003/04/04 08:13:05 gec
17 -- Imported using TkCVS
18 --
19 --
20 --
21 --% Project: OBOSS
22 --
23 --% Copyright (C) 2003 by Terma A/S
24 -- Proprietary and intellectual rights of Terma A/S, Denmark,
25 -- are involved in the subject-matter of this material and
26 -- all manufacturing, reproduction, use, disclosure, and
27 -- sales rights pertaining to such subject-matter are
28 -- expressly reserved. This material is submitted for a
29 -- specific purpose as agreed, and the recipient by
30 -- accepting this material agrees that this material will
31 -- not be used, copied, or reproduced in whole or in part
32 -- nor its contents revealed in any manner or to any person,
33 -- except to meet the purpose for which it was submitted and
34 -- subject to the terms of the agreement.
35 --
36 --% Target Dependencies:
37 -- None
38 --% Compiler Dependencies:
39 -- None
40
41 --~-----------------------------------------------------------------------------
42
43 with Ada.Interrupts;
44 package Interrupts is
45
46 --% Library Package:
47 -- Various operations related to interrupts on the ERC32
48 --% Active Tasks:
49 --> None
50 --% Passive Tasks:
51 --> None
52
53 -- Raised to indicate that the Interrupt ID passed to the given operation is
54 --+ not identifying an external user interrupt.
55 Illegal_Interrupt_ID : exception;
56
57 --% Subprogram:
58 -- Enable (i.e. unmask) interrupt identified by Inaterrupt_Name.
59 --% Parameter Constraints:
60 --> Interrupt_Name : Must identify anm external interrupt.
61 --% Exceptions Raised:
62 --> Illegal_Interrupt_ID : Interrupt_Name does not identify external user
63 --+ interrupt.
64 procedure Enable
65 (Interrupt_Name : in Ada.Interrupts.Interrupt_ID);
66
67 --% Subprogram:
68 -- Force generation of interrupt identified by Interrupt_Name.
69 --% Parameter Constraints:
70 --> Interrupt_Name : Must identify anm external interrupt.
71 --% Exceptions Raised:
72 --> Illegal_Interrupt_ID : Interrupt_Name does not identify external user
73 --+ interrupt.
74 procedure Force
75 (Interrupt_Name : in Ada.Interrupts.Interrupt_ID);
76
77 end Interrupts;
78
79 --~-----------------------------------------------------------------------------
80