cpukit/ada/rtems-multiprocessing.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

--
--  RTEMS Multiprocessing Manager/ Body
--  
--  DESCRIPTION:
--  
--  This package provides the interface to the Multiprocessing Manager
--  of the RTEMS API.
--
--  DEPENDENCIES:
--
--
--  COPYRIGHT (c) 1997.
--  On-Line Applications Research Corporation (OAR).
--
--  The license and distribution terms for this file may in
--  the file LICENSE in this distribution or at
--  http://www.OARcorp.com/rtems/license.html.
--
--  $Id$
--

package body RTEMS.Multiprocessing is

   --
   --  Announce
   --

   procedure Announce is
      procedure Multiprocessing_Announce_Base;
      pragma Import (C, Multiprocessing_Announce_Base,
         "rtems_multiprocessing_announce");
   begin

      Multiprocessing_Announce_Base;

   end Announce;

end RTEMS.Multiprocessing;