From 7003847359db0ba1e394d2f3f3782f805c9fbb39 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Fri, 1 Feb 2002 18:58:21 +0000 Subject: 2001-02-01 Joel Sherrill * rtems.ads, rtems.adb: Formatting cleaned up. Task based timer directives added. This is Timer_Initiate_Server, Timer_Server_Fire_After, and Timer_Server_Fire_When. --- cpukit/ada/rtems-multiprocessing.adb | 38 ++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 cpukit/ada/rtems-multiprocessing.adb (limited to 'cpukit/ada/rtems-multiprocessing.adb') 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; -- cgit v1.2.3