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


Ignore:
Timestamp:
Jun 3, 1997, 3:11:39 PM (25 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:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/rtems.ads

    r7d366f1c rd348ad96  
    1010--
    1111--
    12 --  COPYRIGHT (c) 1989 - 1997.
     12--  COPYRIGHT (c) 1997.
    1313--  On-Line Applications Research Corporation (OAR).
     14--
     15--  The license and distribution terms for this file may in
     16--  the file LICENSE in this distribution or at
     17--  http://www.OARcorp.com/rtems/license.html.
     18--
     19--  $Id$
    1420--
    1521
     
    2127package RTEMS is
    2228
    23    Structure_Alignment : constant := 16;
     29   Structure_Alignment : constant := 8;
    2430
    2531   --
     
    7480   subtype Option              is RTEMS.Unsigned32;
    7581   subtype Task_Priority       is RTEMS.Unsigned32;
    76    subtype Notepad_Index       is RTEMS.Unsigned32;
     82   subtype Notepad_Index       is RTEMS.Unsigned32 range 0 .. 15;
    7783
    7884   subtype Event_Set           is RTEMS.Unsigned32;
     
    263269   Yield_Processor  : constant RTEMS.Interval := 0;
    264270   Current_Priority : constant RTEMS.Task_Priority := 0;
     271   No_Priority      : constant RTEMS.Task_Priority := 0;
    265272
    266273
     
    766773   ) return Standard.Boolean;
    767774
     775   function Subtract (
     776      Left   : in     RTEMS.Address;
     777      Right  : in     RTEMS.Address
     778   ) return RTEMS.Unsigned32;
     779
    768780   --
    769781   --  RTEMS API
     
    9991011
    10001012   procedure Semaphore_Create (
    1001       Name          : in     RTEMS.Name;
    1002       Count         : in     RTEMS.Unsigned32;
    1003       Attribute_Set : in     RTEMS.Attribute;
    1004       ID            :    out RTEMS.ID;
    1005       Result        :    out RTEMS.Status_Codes
     1013      Name             : in     RTEMS.Name;
     1014      Count            : in     RTEMS.Unsigned32;
     1015      Attribute_Set    : in     RTEMS.Attribute;
     1016      Priority_Ceiling : in     RTEMS.Task_Priority;
     1017      ID               :    out RTEMS.ID;
     1018      Result           :    out RTEMS.Status_Codes
    10061019   );
    10071020
     
    13851398   --
    13861399
     1400   Debug_All_Mask : constant RTEMS.Debug_Set := 16#ffffffff#;
     1401   Debug_Region   : constant RTEMS.Debug_Set := 16#00000001#;
     1402
    13871403   procedure Debug_Enable (
    13881404      To_Be_Enabled : in     RTEMS.Debug_Set
Note: See TracChangeset for help on using the changeset viewer.