source: rtems/c/src/ada/rtems-signal.adb @ c499856

4.115
Last change on this file since c499856 was c499856, checked in by Chris Johns <chrisj@…>, on Mar 20, 2014 at 9:10:47 PM

Change all references of rtems.com to rtems.org.

  • Property mode set to 100644
File size: 1.3 KB
Line 
1--
2--  RTEMS / Body
3--
4--  DESCRIPTION:
5--
6--  This package provides the interface to the RTEMS API.
7--
8--
9--  DEPENDENCIES:
10--
11--
12--
13--  COPYRIGHT (c) 1997-2011.
14--  On-Line Applications Research Corporation (OAR).
15--
16--  The license and distribution terms for this file may in
17--  the file LICENSE in this distribution or at
18--  http://www.rtems.org/license/LICENSE.
19--
20
21package body RTEMS.Signal is
22
23   --
24   -- Signal Manager
25   --
26
27   procedure Catch
28     (ASR_Handler : in RTEMS.ASR_Handler;
29      Mode_Set    : in RTEMS.Mode;
30      Result      : out RTEMS.Status_Codes)
31   is
32      function Catch_Base
33        (ASR_Handler : RTEMS.ASR_Handler;
34         Mode_Set    : RTEMS.Mode)
35         return        RTEMS.Status_Codes;
36      pragma Import (C, Catch_Base, "rtems_signal_catch");
37   begin
38
39      Result := Catch_Base (ASR_Handler, Mode_Set);
40
41   end Catch;
42
43   procedure Send
44     (ID         : in RTEMS.ID;
45      Signal_Set : in RTEMS.Signal_Set;
46      Result     : out RTEMS.Status_Codes)
47   is
48      function Send_Base
49        (ID         : RTEMS.ID;
50         Signal_Set : RTEMS.Signal_Set)
51         return       RTEMS.Status_Codes;
52      pragma Import (C, Send_Base, "rtems_signal_send");
53   begin
54
55      Result := Send_Base (ID, Signal_Set);
56
57   end Send;
58
59end RTEMS.Signal;
Note: See TracBrowser for help on using the repository browser.