Changeset d348ad96 in rtems for c/src/ada


Ignore:
Timestamp:
06/03/97 15:11:39 (27 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

Location:
c/src/ada
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada/rtems.adb

    r7d366f1c rd348ad96  
    1010--
    1111--
    12 --  COPYRIGHT (c) 1989 - 1997.
     12--  COPYRIGHT (c) 1997.
    1313--  On-Line Applications Research Corporation (OAR).
    1414--
     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$
     20--
    1521
    1622with Ada;
     23with Ada.Unchecked_Conversion;
    1724with System;
    1825with Interfaces; use Interfaces;
    … …  
    172179   end Is_Status_Successful;
    173180
     181   function Subtract (
     182      Left   : in     RTEMS.Address;
     183      Right  : in     RTEMS.Address
     184   ) return RTEMS.Unsigned32 is
     185      function To_Unsigned32 is
     186         new Ada.Unchecked_Conversion (System.Address, RTEMS.Unsigned32);
     187
     188   begin
     189      return To_Unsigned32(Left) - To_Unsigned32(Right);
     190   end Subtract;
     191
    174192   --
    175193   --
    … …  
    823841 
    824842   procedure Semaphore_Create (
    825       Name          : in     RTEMS.Name;
    826       Count         : in     RTEMS.Unsigned32;
    827       Attribute_Set : in     RTEMS.Attribute;
    828       ID            :    out RTEMS.ID;
    829       Result        :    out RTEMS.Status_Codes
     843      Name             : in     RTEMS.Name;
     844      Count            : in     RTEMS.Unsigned32;
     845      Attribute_Set    : in     RTEMS.Attribute;
     846      Priority_Ceiling : in     RTEMS.Task_Priority;
     847      ID               :    out RTEMS.ID;
     848      Result           :    out RTEMS.Status_Codes
    830849   ) is
    831850      function Semaphore_Create_Base (
    832          Name          : RTEMS.Name;
    833          Count         : RTEMS.Unsigned32;
    834          Attribute_Set : RTEMS.Attribute;
    835          ID            : access RTEMS.ID
     851         Name             : RTEMS.Name;
     852         Count            : RTEMS.Unsigned32;
     853         Attribute_Set    : RTEMS.Attribute;
     854         Priority_Ceiling : RTEMS.Task_Priority;
     855         ID               : access RTEMS.ID
    836856      )  return RTEMS.Status_Codes;
    837857      pragma Import (C, Semaphore_Create_Base, "rtems_semaphore_create");
    … …  
    843863         Count,
    844864         Attribute_Set,
     865         Priority_Ceiling,
    845866         ID_Base'Unchecked_Access
    846867      );
    … …  
    935956      --  XXX broken
    936957      function Message_Queue_Create_Base (
    937          Name          : RTEMS.Name;
    938          Count         : RTEMS.Unsigned32;
    939          Attribute_Set : RTEMS.Attribute;
    940          ID            : access RTEMS.ID
     958         Name             : RTEMS.Name;
     959         Count            : RTEMS.Unsigned32;
     960         Max_Message_Size : RTEMS.Unsigned32;
     961         Attribute_Set    : RTEMS.Attribute;
     962         ID               : access RTEMS.ID
    941963      )  return RTEMS.Status_Codes;
    942964      pragma Import (C,
    … …  
    948970         Name,
    949971         Count,
     972         Max_Message_Size,
    950973         Attribute_Set,
    951974         ID_Base'Unchecked_Access
    … …  
    19321955   ) is
    19331956      function Rate_Monotonic_Period_Base (
    1934          ID : RTEMS.ID
     1957         ID     : RTEMS.ID;
     1958         Length : RTEMS.Interval
    19351959      )  return RTEMS.Status_Codes;
    19361960      pragma Import (C, Rate_Monotonic_Period_Base,
    … …  
    19381962   begin
    19391963 
    1940       Result := Rate_Monotonic_Period_base ( ID );
     1964      Result := Rate_Monotonic_Period_base ( ID, Length );
    19411965
    19421966   end Rate_Monotonic_Period;

  • 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.