Changeset d348ad96 in rtems for c/src/ada/rtems.ads

Timestamp:

06/03/97 15:11:39 (26 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

c1ef834

Parents:

7d366f1c

Message:

added more constants and fixed numer

File:

• c/src/ada/rtems.ads (modified) (7 diffs)

c/src/ada/rtems.ads

@@ -10 +10 @@
 --
 --
---  COPYRIGHT (c) 1989 - 1997.
+--  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$
 --
 
@@ -21 +27 @@
 package RTEMS is
 
-   Structure_Alignment : constant := 16;
+   Structure_Alignment : constant := 8;
 
    --
@@ -74 +80 @@
    subtype Option              is RTEMS.Unsigned32;
    subtype Task_Priority       is RTEMS.Unsigned32;
-   subtype Notepad_Index       is RTEMS.Unsigned32;
+   subtype Notepad_Index       is RTEMS.Unsigned32 range 0 .. 15;
 
    subtype Event_Set           is RTEMS.Unsigned32;
@@ -263 +269 @@
    Yield_Processor  : constant RTEMS.Interval := 0;
    Current_Priority : constant RTEMS.Task_Priority := 0;
+   No_Priority      : constant RTEMS.Task_Priority := 0;
 
 
@@ -766 +773 @@
    ) return Standard.Boolean;
 
+   function Subtract (
+      Left   : in     RTEMS.Address;
+      Right  : in     RTEMS.Address
+   ) return RTEMS.Unsigned32;
+
    --
    --  RTEMS API
@@ -999 +1011 @@
 
    procedure Semaphore_Create (
-      Name          : in     RTEMS.Name;
-      Count         : in     RTEMS.Unsigned32;
-      Attribute_Set : in     RTEMS.Attribute;
-      ID            :    out RTEMS.ID;
-      Result        :    out RTEMS.Status_Codes
+      Name             : in     RTEMS.Name;
+      Count            : in     RTEMS.Unsigned32;
+      Attribute_Set    : in     RTEMS.Attribute;
+      Priority_Ceiling : in     RTEMS.Task_Priority;
+      ID               :    out RTEMS.ID;
+      Result           :    out RTEMS.Status_Codes
    );
 
@@ -1385 +1398 @@
    --
 
+   Debug_All_Mask : constant RTEMS.Debug_Set := 16#ffffffff#;
+   Debug_Region   : constant RTEMS.Debug_Set := 16#00000001#;
+
    procedure Debug_Enable (
       To_Be_Enabled : in     RTEMS.Debug_Set