2003-11-25 Joel Sherrill <joel@OARcorp.com>
PR 528/rtems_misc
* task.t: Fix Ada binding for task variable calls.
RCS file: /usr1/CVS/rtems/doc/user/task.t,v
retrieving revision 1.29
diff -u -r1.29 task.t
|
|
|
1626 | 1626 | |
1627 | 1627 | @ifset is-Ada |
1628 | 1628 | @example |
| 1629 | type Task_Variable_Dtor is access procedure ( |
| 1630 | Argument : in RTEMS.Address; |
| 1631 | ); |
| 1632 | |
1629 | 1633 | procedure Task_Variable_Add ( |
1630 | | Id : in RTEMS.ID; |
1631 | | Ptr : in RTEMS.Address; |
1632 | | Result : out RTEMS.Status_Codes |
| 1634 | ID : in RTEMS.ID; |
| 1635 | Task_Variable : in RTEMS.Address; |
| 1636 | Dtor : in RTEMS.Task_Variable_Dtor; |
| 1637 | Result : out RTEMS.Status_Codes |
1633 | 1638 | ); |
1634 | 1639 | @end example |
1635 | 1640 | @end ifset |
… |
… |
|
1684 | 1689 | @ifset is-Ada |
1685 | 1690 | @example |
1686 | 1691 | procedure Task_Variable_Get ( |
1687 | | Id : in RTEMS.ID; |
1688 | | Ptr : in RTEMS.Address; |
1689 | | Value : out RTEMS.Address; |
1690 | | Result : out RTEMS.Status_Codes |
| 1692 | ID : in RTEMS.ID; |
| 1693 | Task_Variable : out RTEMS.Address; |
| 1694 | Task_Variable_Value : out RTEMS.Address; |
| 1695 | Result : out RTEMS.Status_Codes |
1691 | 1696 | ); |
1692 | 1697 | @end example |
1693 | 1698 | @end ifset |
… |
… |
|
1734 | 1739 | @ifset is-Ada |
1735 | 1740 | @example |
1736 | 1741 | procedure Task_Variable_Delete ( |
1737 | | Id : in RTEMS.ID; |
1738 | | Ptr : in RTEMS.Address; |
1739 | | Result : out RTEMS.Status_Codes |
| 1742 | ID : in RTEMS.ID; |
| 1743 | Task_Variable : out RTEMS.Address; |
| 1744 | Result : out RTEMS.Status_Codes |
1740 | 1745 | ); |
1741 | 1746 | @end example |
1742 | 1747 | @end ifset |