Changeset bd58b13 in rtems


Ignore:
Timestamp:
Nov 27, 2007, 9:23:13 PM (13 years ago)
Author:
Glenn Humphrey <glenn.humphrey@…>
Branches:
4.8
Children:
ef47c44f
Parents:
32daf5d
Message:

2007-11-27 Glenn Humphrey <glenn.humphrey@…>

  • rtems.adb, rtems.ads: Fixed errors in the barrier binding.
Location:
c/src/ada
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r32daf5d rbd58b13  
     12007-11-27      Glenn Humphrey <glenn.humphrey@OARcorp.com>
     2
     3        * rtems.adb, rtems.ads: Fixed errors in the barrier binding.
     4
    152007-10-26      Glenn Humphrey <glenn.humphrey@OARcorp.com>
    26
  • c/src/ada/rtems.adb

    r32daf5d rbd58b13  
    19111911   procedure Barrier_Wait (
    19121912      ID         : in     RTEMS.ID;
    1913       Option_Set : in     RTEMS.Option;
    19141913      Timeout    : in     RTEMS.Interval;
    19151914      Result     :    out RTEMS.Status_Codes
     
    19171916      function Barrier_Wait_Base (
    19181917         ID         : RTEMS.ID;
    1919          Option_Set : RTEMS.Option;
    19201918         Timeout    : RTEMS.Interval
    19211919      )  return RTEMS.Status_Codes;
     
    19231921   begin
    19241922
    1925       Result := Barrier_Wait_Base ( ID, Option_Set, Timeout );
     1923      Result := Barrier_Wait_Base ( ID, Timeout );
    19261924
    19271925   end Barrier_Wait;
    19281926
    19291927   procedure Barrier_Release (
    1930       ID     : in     RTEMS.ID;
    1931       Result :    out RTEMS.Status_Codes
     1928      ID       : in     RTEMS.ID;
     1929      Released :    out RTEMS.Unsigned32;
     1930      Result   :    out RTEMS.Status_Codes
    19321931   ) is
    19331932      function Barrier_Release_Base (
    1934          ID : RTEMS.ID
     1933         ID       : RTEMS.ID
     1934         Released : access RTEMS.Unsigned32
    19351935      )  return RTEMS.Status_Codes;
    19361936      pragma Import (C, Barrier_Release_Base, "rtems_barrier_release");
    1937    begin
    1938 
    1939       Result := Barrier_Release_Base ( ID );
     1937      Released_Base : aliased RTEMS.Unsigned32;
     1938   begin
     1939
     1940      Result := Barrier_Release_Base ( ID, Released_Base'Unchecked_Access );
     1941      Released := Released_Base;
    19401942
    19411943   end Barrier_Release;
  • c/src/ada/rtems.ads

    r32daf5d rbd58b13  
    355355   type Rate_Monotonic_Period_Status is
    356356      record
     357         Owner                            : RTEMS.ID;
    357358         State                            : RTEMS.Rate_Monotonic_Period_States;
    358359         Ticks_Since_Last_Period          : RTEMS.Unsigned32;
     
    12141215   procedure Barrier_Wait (
    12151216      ID         : in     RTEMS.ID;
    1216       Option_Set : in     RTEMS.Option;
    12171217      Timeout    : in     RTEMS.Interval;
    12181218      Result     :    out RTEMS.Status_Codes
     
    12201220
    12211221   procedure Barrier_Release (
    1222       ID     : in     RTEMS.ID;
    1223       Result :    out RTEMS.Status_Codes
     1222      ID       : in     RTEMS.ID;
     1223      Released :    out RTEMS.Unsigned32;
     1224      Result   :    out RTEMS.Status_Codes
    12241225   );
    12251226
Note: See TracChangeset for help on using the changeset viewer.