Changeset 6221625 in rtems


Ignore:
Timestamp:
May 2, 2005, 2:33:06 PM (15 years ago)
Author:
Ralf Corsepius <ralf.corsepius@…>
Branches:
4.10, 4.11, 4.8, 4.9, master
Children:
b7acc4ad
Parents:
5a35cfcd
Message:

2005-05-02 Ralf Corsepius <ralf.corsepius@…>

PR 782/rtems

  • rtems.ads: Remove stray ';'.
  • rtems.adb: Stub Task_Variable_Add, Task_Variable_Get, Task_Variable_Delete.
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/ChangeLog

    r5a35cfcd r6221625  
     12005-05-02      Ralf Corsepius <ralf.corsepius@rtems.org>
     2
     3        PR 782/rtems
     4        * rtems.ads: Remove stray ';'.
     5        * rtems.adb: Stub Task_Variable_Add, Task_Variable_Get,
     6        Task_Variable_Delete.
     7
    182005-04-30      Ralf Corsepius <ralf.corsepius@rtems.org>
    29
  • c/src/ada/rtems.adb

    r5a35cfcd r6221625  
    500500   end Task_Set_Note;
    501501 
     502   procedure Task_Variable_Add (
     503      ID            : in     RTEMS.ID;
     504      Task_Variable : in     RTEMS.Address;
     505      Dtor          : in     RTEMS.Task_Variable_Dtor;
     506      Result        :    out RTEMS.Status_Codes
     507   ) is
     508   begin
     509     -- FIXME
     510     Result := Internal_Error;
     511   end Task_Variable_Add;
     512
     513   procedure Task_Variable_Get (
     514      ID                  : in     RTEMS.ID;
     515      Task_Variable       :    out RTEMS.Address;
     516      Task_Variable_Value :    out RTEMS.Address;
     517      Result              :    out RTEMS.Status_Codes
     518   ) is
     519   begin
     520     -- FIXME
     521     Result := Internal_Error;
     522   end Task_Variable_Get;
     523
     524   procedure Task_Variable_Delete (
     525      ID                  : in     RTEMS.ID;
     526      Task_Variable       :    out RTEMS.Address;
     527      Result              :    out RTEMS.Status_Codes
     528   ) is
     529   begin
     530     -- FIXME
     531     Result := Internal_Error;
     532   end Task_Variable_Delete;
     533
    502534   procedure Task_Wake_When (
    503535      Time_Buffer : in     RTEMS.Time_Of_Day;
  • c/src/ada/rtems.ads

    r5a35cfcd r6221625  
    900900   
    901901   type Task_Variable_Dtor is access procedure (
    902       Argument : in     RTEMS.Address;
     902      Argument : in     RTEMS.Address
    903903   );
    904904
  • cpukit/ada/ChangeLog

    r5a35cfcd r6221625  
     12005-05-02      Ralf Corsepius <ralf.corsepius@rtems.org>
     2
     3        PR 782/rtems
     4        * rtems.ads: Remove stray ';'.
     5        * rtems.adb: Stub Task_Variable_Add, Task_Variable_Get,
     6        Task_Variable_Delete.
     7
    182005-04-30      Ralf Corsepius <ralf.corsepius@rtems.org>
    29
  • cpukit/ada/rtems.adb

    r5a35cfcd r6221625  
    500500   end Task_Set_Note;
    501501 
     502   procedure Task_Variable_Add (
     503      ID            : in     RTEMS.ID;
     504      Task_Variable : in     RTEMS.Address;
     505      Dtor          : in     RTEMS.Task_Variable_Dtor;
     506      Result        :    out RTEMS.Status_Codes
     507   ) is
     508   begin
     509     -- FIXME
     510     Result := Internal_Error;
     511   end Task_Variable_Add;
     512
     513   procedure Task_Variable_Get (
     514      ID                  : in     RTEMS.ID;
     515      Task_Variable       :    out RTEMS.Address;
     516      Task_Variable_Value :    out RTEMS.Address;
     517      Result              :    out RTEMS.Status_Codes
     518   ) is
     519   begin
     520     -- FIXME
     521     Result := Internal_Error;
     522   end Task_Variable_Get;
     523
     524   procedure Task_Variable_Delete (
     525      ID                  : in     RTEMS.ID;
     526      Task_Variable       :    out RTEMS.Address;
     527      Result              :    out RTEMS.Status_Codes
     528   ) is
     529   begin
     530     -- FIXME
     531     Result := Internal_Error;
     532   end Task_Variable_Delete;
     533
    502534   procedure Task_Wake_When (
    503535      Time_Buffer : in     RTEMS.Time_Of_Day;
  • cpukit/ada/rtems.ads

    r5a35cfcd r6221625  
    900900   
    901901   type Task_Variable_Dtor is access procedure (
    902       Argument : in     RTEMS.Address;
     902      Argument : in     RTEMS.Address
    903903   );
    904904
Note: See TracChangeset for help on using the changeset viewer.