1 files changed, 38 insertions, 0 deletions
diff --git a/cpukit/ada/rtems-multiprocessing.adb b/cpukit/ada/rtems-multiprocessing.adb
new file mode 100644
index 0000000000..9e196f5e8b
--- /dev/null
+++ b/cpukit/ada/rtems-multiprocessing.adb
@@ -0,0 +1,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;