forked from Imagelibrary/rtems
2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>
* ada-tests/mptests/mp01/mp01.adb, ada-tests/mptests/mp01/mptest.adb, ada-tests/mptests/mp01/mptest.ads, ada-tests/mptests/mp01/node1/mp01_node1.adb, ada-tests/mptests/mp01/node2/mp01_node2.adb, ada-tests/mptests/mp02/mptest.adb, ada-tests/mptests/mp02/mptest.ads, ada-tests/mptests/mp02/node1/mp02_node1.adb, ada-tests/mptests/mp02/node2/mp02_node2.adb, ada-tests/mptests/mp03/mptest.adb, ada-tests/mptests/mp03/mptest.ads, ada-tests/mptests/mp03/node1/mp03_node1.adb, ada-tests/mptests/mp03/node2/mp03_node2.adb, ada-tests/mptests/mp04/mptest.adb, ada-tests/mptests/mp04/mptest.ads, ada-tests/mptests/mp04/node1/mp04_node1.adb, ada-tests/mptests/mp04/node2/mp04_node2.adb, ada-tests/mptests/mp05/mptest.adb, ada-tests/mptests/mp05/mptest.ads, ada-tests/mptests/mp05/node1/mp05_node1.adb, ada-tests/mptests/mp05/node2/mp05_node2.adb, ada-tests/mptests/mp06/mptest.adb, ada-tests/mptests/mp06/mptest.ads, ada-tests/mptests/mp06/node1/mp06_node1.adb, ada-tests/mptests/mp06/node2/mp06_node2.adb, ada-tests/mptests/mp07/mptest.adb, ada-tests/mptests/mp07/mptest.ads, ada-tests/mptests/mp07/node1/mp07_node1.adb, ada-tests/mptests/mp07/node2/mp07_node2.adb, ada-tests/mptests/mp08/mptest.adb, ada-tests/mptests/mp08/mptest.ads, ada-tests/mptests/mp08/node1/mp08_node1.adb, ada-tests/mptests/mp08/node2/mp08_node2.adb, ada-tests/mptests/mp09/mptest.adb, ada-tests/mptests/mp09/mptest.ads, ada-tests/mptests/mp09/node1/mp09_node1.adb, ada-tests/mptests/mp09/node2/mp09_node2.adb, ada-tests/mptests/mp10/mptest.adb, ada-tests/mptests/mp10/mptest.ads, ada-tests/mptests/mp10/node1/mp10_node1.adb, ada-tests/mptests/mp10/node2/mp10_node2.adb, ada-tests/mptests/mp11/mptest.adb, ada-tests/mptests/mp11/mptest.ads, ada-tests/mptests/mp11/node1/mp11_node1.adb, ada-tests/mptests/mp11/node2/mp11_node2.adb, ada-tests/mptests/mp12/mptest.adb, ada-tests/mptests/mp12/mptest.ads, ada-tests/mptests/mp12/node1/mp12_node1.adb, ada-tests/mptests/mp12/node2/mp12_node2.adb, ada-tests/mptests/mp13/mptest.adb, ada-tests/mptests/mp13/mptest.ads, ada-tests/mptests/mp13/node1/mp13_node1.adb, ada-tests/mptests/mp13/node2/mp13_node2.adb, ada-tests/mptests/mp14/mptest.adb, ada-tests/mptests/mp14/mptest.ads, ada-tests/mptests/mp14/node1/mp14_node1.adb, ada-tests/mptests/mp14/node2/mp14_node2.adb, ada-tests/samples/base_mp/mptest.adb, ada-tests/samples/base_mp/mptest.ads, ada-tests/samples/base_sp/base_sp.adb, ada-tests/samples/base_sp/sptest.adb, ada-tests/samples/base_sp/sptest.ads, ada-tests/samples/hello/hello.adb, ada-tests/samples/hello/sptest.adb, ada-tests/samples/hello/sptest.ads, ada-tests/samples/nsecs/nsecs.adb, ada-tests/samples/nsecs/sptest.adb, ada-tests/samples/nsecs/sptest.ads, ada-tests/samples/ticker/sptest.adb, ada-tests/samples/ticker/sptest.ads, ada-tests/samples/ticker/ticker.adb, ada-tests/sptests/sp01/sp01.adb, ada-tests/sptests/sp01/sptest.adb, ada-tests/sptests/sp01/sptest.ads, ada-tests/sptests/sp02/sp02.adb, ada-tests/sptests/sp02/sptest.adb, ada-tests/sptests/sp02/sptest.ads, ada-tests/sptests/sp03/sp03.adb, ada-tests/sptests/sp03/sptest.adb, ada-tests/sptests/sp03/sptest.ads, ada-tests/sptests/sp04/sp04.adb, ada-tests/sptests/sp04/sptest.adb, ada-tests/sptests/sp04/sptest.ads, ada-tests/sptests/sp05/sp05.adb, ada-tests/sptests/sp05/sptest.adb, ada-tests/sptests/sp05/sptest.ads, ada-tests/sptests/sp06/sp06.adb, ada-tests/sptests/sp06/sptest.adb, ada-tests/sptests/sp06/sptest.ads, ada-tests/sptests/sp07/sp07.adb, ada-tests/sptests/sp07/sptest.adb, ada-tests/sptests/sp07/sptest.ads, ada-tests/sptests/sp08/sp08.adb, ada-tests/sptests/sp08/sptest.adb, ada-tests/sptests/sp08/sptest.ads, ada-tests/sptests/sp09/sp09.adb, ada-tests/sptests/sp09/sptest.adb, ada-tests/sptests/sp09/sptest.ads, ada-tests/sptests/sp11/sp11.adb, ada-tests/sptests/sp11/sptest.adb, ada-tests/sptests/sp11/sptest.ads, ada-tests/sptests/sp12/sp12.adb, ada-tests/sptests/sp12/sptest.adb, ada-tests/sptests/sp12/sptest.ads, ada-tests/sptests/sp13/sp13.adb, ada-tests/sptests/sp13/sptest.adb, ada-tests/sptests/sp13/sptest.ads, ada-tests/sptests/sp14/sp14.adb, ada-tests/sptests/sp14/sptest.adb, ada-tests/sptests/sp14/sptest.ads, ada-tests/sptests/sp15/sp15.adb, ada-tests/sptests/sp15/sptest.adb, ada-tests/sptests/sp15/sptest.ads, ada-tests/sptests/sp16/sp16.adb, ada-tests/sptests/sp16/sptest.adb, ada-tests/sptests/sp16/sptest.ads, ada-tests/sptests/sp17/sp17.adb, ada-tests/sptests/sp17/sptest.adb, ada-tests/sptests/sp17/sptest.ads, ada-tests/sptests/sp19/sp19.adb, ada-tests/sptests/sp19/sptest.adp, ada-tests/sptests/sp19/sptest.ads, ada-tests/sptests/sp20/sp20.adb, ada-tests/sptests/sp20/sptest.adb, ada-tests/sptests/sp20/sptest.ads, ada-tests/sptests/sp22/sp22.adb, ada-tests/sptests/sp22/sptest.adb, ada-tests/sptests/sp22/sptest.ads, ada-tests/sptests/sp23/sp23.adb, ada-tests/sptests/sp23/sptest.adb, ada-tests/sptests/sp23/sptest.ads, ada-tests/sptests/sp24/sp24.adb, ada-tests/sptests/sp24/sptest.adb, ada-tests/sptests/sp24/sptest.ads, ada-tests/sptests/sp25/sp25.adb, ada-tests/sptests/sp25/sptest.adb, ada-tests/sptests/sp25/sptest.ads, ada-tests/support/test_support.adb, ada-tests/tmtests/tm01/tm01.adb, ada-tests/tmtests/tm01/tmtest.adb, ada-tests/tmtests/tm01/tmtest.ads, ada-tests/tmtests/tm02/tm02.adb, ada-tests/tmtests/tm02/tmtest.adb, ada-tests/tmtests/tm02/tmtest.ads, ada-tests/tmtests/tm03/tm03.adb, ada-tests/tmtests/tm03/tmtest.adb, ada-tests/tmtests/tm03/tmtest.ads, ada-tests/tmtests/tm04/tm04.adb, ada-tests/tmtests/tm04/tmtest.adb, ada-tests/tmtests/tm04/tmtest.ads, ada-tests/tmtests/tm05/tm05.adb, ada-tests/tmtests/tm05/tmtest.adb, ada-tests/tmtests/tm05/tmtest.ads, ada-tests/tmtests/tm06/tm06.adb, ada-tests/tmtests/tm06/tmtest.adb, ada-tests/tmtests/tm06/tmtest.ads, ada-tests/tmtests/tm07/tm07.adb, ada-tests/tmtests/tm07/tmtest.adb, ada-tests/tmtests/tm07/tmtest.ads, ada-tests/tmtests/tm08/tm08.adb, ada-tests/tmtests/tm08/tmtest.adb, ada-tests/tmtests/tm08/tmtest.ads, ada-tests/tmtests/tm09/tm09.adb, ada-tests/tmtests/tm09/tmtest.adb, ada-tests/tmtests/tm09/tmtest.ads, ada-tests/tmtests/tm10/tm10.adb, ada-tests/tmtests/tm10/tmtest.adb, ada-tests/tmtests/tm10/tmtest.ads, ada-tests/tmtests/tm11/tm11.adb, ada-tests/tmtests/tm11/tmtest.adb, ada-tests/tmtests/tm11/tmtest.ads, ada-tests/tmtests/tm12/tm12.adb, ada-tests/tmtests/tm12/tmtest.adb, ada-tests/tmtests/tm12/tmtest.ads, ada-tests/tmtests/tm13/tm13.adb, ada-tests/tmtests/tm13/tmtest.adb, ada-tests/tmtests/tm13/tmtest.ads, ada-tests/tmtests/tm14/tm14.adb, ada-tests/tmtests/tm14/tmtest.adb, ada-tests/tmtests/tm14/tmtest.ads, ada-tests/tmtests/tm15/tm15.adb, ada-tests/tmtests/tm15/tmtest.adb, ada-tests/tmtests/tm15/tmtest.ads, ada-tests/tmtests/tm16/tm16.adb, ada-tests/tmtests/tm16/tmtest.adb, ada-tests/tmtests/tm16/tmtest.ads, ada-tests/tmtests/tm17/tm17.adb, ada-tests/tmtests/tm17/tmtest.adb, ada-tests/tmtests/tm17/tmtest.ads, ada-tests/tmtests/tm18/tm18.adb, ada-tests/tmtests/tm18/tmtest.adb, ada-tests/tmtests/tm18/tmtest.ads, ada-tests/tmtests/tm19/tm19.adb, ada-tests/tmtests/tm19/tmtest.adb, ada-tests/tmtests/tm19/tmtest.ads, ada-tests/tmtests/tm20/tm20.adb, ada-tests/tmtests/tm20/tmtest.adb, ada-tests/tmtests/tm20/tmtest.ads, ada-tests/tmtests/tm21/tm21.adb, ada-tests/tmtests/tm21/tmtest.adb, ada-tests/tmtests/tm21/tmtest.ads, ada-tests/tmtests/tm22/tm22.adb, ada-tests/tmtests/tm22/tmtest.adb, ada-tests/tmtests/tm22/tmtest.ads, ada-tests/tmtests/tm23/tm23.adb, ada-tests/tmtests/tm23/tmtest.adb, ada-tests/tmtests/tm23/tmtest.ads, ada-tests/tmtests/tm24/tm24.adb, ada-tests/tmtests/tm24/tmtest.adb, ada-tests/tmtests/tm24/tmtest.ads, ada-tests/tmtests/tm25/tm25.adb, ada-tests/tmtests/tm25/tmtest.adb, ada-tests/tmtests/tm25/tmtest.ads, ada-tests/tmtests/tm28/tm28.adb, ada-tests/tmtests/tm28/tmtest.adb, ada-tests/tmtests/tm28/tmtest.ads, ada-tests/tmtests/tm29/tm29.adb, ada-tests/tmtests/tm29/tmtest.adb, ada-tests/tmtests/tm29/tmtest.ads, ada-tests/tmtests/tmck/tmck.adb, ada-tests/tmtests/tmck/tmtest.adb, ada-tests/tmtests/tmck/tmtest.ads, ada-tests/tmtests/tmoverhd/dummy_rtems.adb, ada-tests/tmtests/tmoverhd/dummy_rtems.ads, ada-tests/tmtests/tmoverhd/tmoverhd.adb, ada-tests/tmtests/tmoverhd/tmtest.adb, ada-tests/tmtests/tmoverhd/tmtest.ads: Account for RTEMS binding child package rework. Eliminate all warnings.
This commit is contained in:
Joel Sherrill
142
c/src/ChangeLog
142
c/src/ChangeLog
@@ -1,3 +1,145 @@
|
|||||||
|
2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>
|
||||||
|
|
||||||
|
* ada-tests/mptests/mp01/mp01.adb, ada-tests/mptests/mp01/mptest.adb,
|
||||||
|
ada-tests/mptests/mp01/mptest.ads,
|
||||||
|
ada-tests/mptests/mp01/node1/mp01_node1.adb,
|
||||||
|
ada-tests/mptests/mp01/node2/mp01_node2.adb,
|
||||||
|
ada-tests/mptests/mp02/mptest.adb, ada-tests/mptests/mp02/mptest.ads,
|
||||||
|
ada-tests/mptests/mp02/node1/mp02_node1.adb,
|
||||||
|
ada-tests/mptests/mp02/node2/mp02_node2.adb,
|
||||||
|
ada-tests/mptests/mp03/mptest.adb, ada-tests/mptests/mp03/mptest.ads,
|
||||||
|
ada-tests/mptests/mp03/node1/mp03_node1.adb,
|
||||||
|
ada-tests/mptests/mp03/node2/mp03_node2.adb,
|
||||||
|
ada-tests/mptests/mp04/mptest.adb, ada-tests/mptests/mp04/mptest.ads,
|
||||||
|
ada-tests/mptests/mp04/node1/mp04_node1.adb,
|
||||||
|
ada-tests/mptests/mp04/node2/mp04_node2.adb,
|
||||||
|
ada-tests/mptests/mp05/mptest.adb, ada-tests/mptests/mp05/mptest.ads,
|
||||||
|
ada-tests/mptests/mp05/node1/mp05_node1.adb,
|
||||||
|
ada-tests/mptests/mp05/node2/mp05_node2.adb,
|
||||||
|
ada-tests/mptests/mp06/mptest.adb, ada-tests/mptests/mp06/mptest.ads,
|
||||||
|
ada-tests/mptests/mp06/node1/mp06_node1.adb,
|
||||||
|
ada-tests/mptests/mp06/node2/mp06_node2.adb,
|
||||||
|
ada-tests/mptests/mp07/mptest.adb, ada-tests/mptests/mp07/mptest.ads,
|
||||||
|
ada-tests/mptests/mp07/node1/mp07_node1.adb,
|
||||||
|
ada-tests/mptests/mp07/node2/mp07_node2.adb,
|
||||||
|
ada-tests/mptests/mp08/mptest.adb, ada-tests/mptests/mp08/mptest.ads,
|
||||||
|
ada-tests/mptests/mp08/node1/mp08_node1.adb,
|
||||||
|
ada-tests/mptests/mp08/node2/mp08_node2.adb,
|
||||||
|
ada-tests/mptests/mp09/mptest.adb, ada-tests/mptests/mp09/mptest.ads,
|
||||||
|
ada-tests/mptests/mp09/node1/mp09_node1.adb,
|
||||||
|
ada-tests/mptests/mp09/node2/mp09_node2.adb,
|
||||||
|
ada-tests/mptests/mp10/mptest.adb, ada-tests/mptests/mp10/mptest.ads,
|
||||||
|
ada-tests/mptests/mp10/node1/mp10_node1.adb,
|
||||||
|
ada-tests/mptests/mp10/node2/mp10_node2.adb,
|
||||||
|
ada-tests/mptests/mp11/mptest.adb, ada-tests/mptests/mp11/mptest.ads,
|
||||||
|
ada-tests/mptests/mp11/node1/mp11_node1.adb,
|
||||||
|
ada-tests/mptests/mp11/node2/mp11_node2.adb,
|
||||||
|
ada-tests/mptests/mp12/mptest.adb, ada-tests/mptests/mp12/mptest.ads,
|
||||||
|
ada-tests/mptests/mp12/node1/mp12_node1.adb,
|
||||||
|
ada-tests/mptests/mp12/node2/mp12_node2.adb,
|
||||||
|
ada-tests/mptests/mp13/mptest.adb, ada-tests/mptests/mp13/mptest.ads,
|
||||||
|
ada-tests/mptests/mp13/node1/mp13_node1.adb,
|
||||||
|
ada-tests/mptests/mp13/node2/mp13_node2.adb,
|
||||||
|
ada-tests/mptests/mp14/mptest.adb, ada-tests/mptests/mp14/mptest.ads,
|
||||||
|
ada-tests/mptests/mp14/node1/mp14_node1.adb,
|
||||||
|
ada-tests/mptests/mp14/node2/mp14_node2.adb,
|
||||||
|
ada-tests/samples/base_mp/mptest.adb,
|
||||||
|
ada-tests/samples/base_mp/mptest.ads,
|
||||||
|
ada-tests/samples/base_sp/base_sp.adb,
|
||||||
|
ada-tests/samples/base_sp/sptest.adb,
|
||||||
|
ada-tests/samples/base_sp/sptest.ads,
|
||||||
|
ada-tests/samples/hello/hello.adb,
|
||||||
|
ada-tests/samples/hello/sptest.adb,
|
||||||
|
ada-tests/samples/hello/sptest.ads,
|
||||||
|
ada-tests/samples/nsecs/nsecs.adb,
|
||||||
|
ada-tests/samples/nsecs/sptest.adb,
|
||||||
|
ada-tests/samples/nsecs/sptest.ads,
|
||||||
|
ada-tests/samples/ticker/sptest.adb,
|
||||||
|
ada-tests/samples/ticker/sptest.ads,
|
||||||
|
ada-tests/samples/ticker/ticker.adb, ada-tests/sptests/sp01/sp01.adb,
|
||||||
|
ada-tests/sptests/sp01/sptest.adb, ada-tests/sptests/sp01/sptest.ads,
|
||||||
|
ada-tests/sptests/sp02/sp02.adb, ada-tests/sptests/sp02/sptest.adb,
|
||||||
|
ada-tests/sptests/sp02/sptest.ads, ada-tests/sptests/sp03/sp03.adb,
|
||||||
|
ada-tests/sptests/sp03/sptest.adb, ada-tests/sptests/sp03/sptest.ads,
|
||||||
|
ada-tests/sptests/sp04/sp04.adb, ada-tests/sptests/sp04/sptest.adb,
|
||||||
|
ada-tests/sptests/sp04/sptest.ads, ada-tests/sptests/sp05/sp05.adb,
|
||||||
|
ada-tests/sptests/sp05/sptest.adb, ada-tests/sptests/sp05/sptest.ads,
|
||||||
|
ada-tests/sptests/sp06/sp06.adb, ada-tests/sptests/sp06/sptest.adb,
|
||||||
|
ada-tests/sptests/sp06/sptest.ads, ada-tests/sptests/sp07/sp07.adb,
|
||||||
|
ada-tests/sptests/sp07/sptest.adb, ada-tests/sptests/sp07/sptest.ads,
|
||||||
|
ada-tests/sptests/sp08/sp08.adb, ada-tests/sptests/sp08/sptest.adb,
|
||||||
|
ada-tests/sptests/sp08/sptest.ads, ada-tests/sptests/sp09/sp09.adb,
|
||||||
|
ada-tests/sptests/sp09/sptest.adb, ada-tests/sptests/sp09/sptest.ads,
|
||||||
|
ada-tests/sptests/sp11/sp11.adb, ada-tests/sptests/sp11/sptest.adb,
|
||||||
|
ada-tests/sptests/sp11/sptest.ads, ada-tests/sptests/sp12/sp12.adb,
|
||||||
|
ada-tests/sptests/sp12/sptest.adb, ada-tests/sptests/sp12/sptest.ads,
|
||||||
|
ada-tests/sptests/sp13/sp13.adb, ada-tests/sptests/sp13/sptest.adb,
|
||||||
|
ada-tests/sptests/sp13/sptest.ads, ada-tests/sptests/sp14/sp14.adb,
|
||||||
|
ada-tests/sptests/sp14/sptest.adb, ada-tests/sptests/sp14/sptest.ads,
|
||||||
|
ada-tests/sptests/sp15/sp15.adb, ada-tests/sptests/sp15/sptest.adb,
|
||||||
|
ada-tests/sptests/sp15/sptest.ads, ada-tests/sptests/sp16/sp16.adb,
|
||||||
|
ada-tests/sptests/sp16/sptest.adb, ada-tests/sptests/sp16/sptest.ads,
|
||||||
|
ada-tests/sptests/sp17/sp17.adb, ada-tests/sptests/sp17/sptest.adb,
|
||||||
|
ada-tests/sptests/sp17/sptest.ads, ada-tests/sptests/sp19/sp19.adb,
|
||||||
|
ada-tests/sptests/sp19/sptest.adp, ada-tests/sptests/sp19/sptest.ads,
|
||||||
|
ada-tests/sptests/sp20/sp20.adb, ada-tests/sptests/sp20/sptest.adb,
|
||||||
|
ada-tests/sptests/sp20/sptest.ads, ada-tests/sptests/sp22/sp22.adb,
|
||||||
|
ada-tests/sptests/sp22/sptest.adb, ada-tests/sptests/sp22/sptest.ads,
|
||||||
|
ada-tests/sptests/sp23/sp23.adb, ada-tests/sptests/sp23/sptest.adb,
|
||||||
|
ada-tests/sptests/sp23/sptest.ads, ada-tests/sptests/sp24/sp24.adb,
|
||||||
|
ada-tests/sptests/sp24/sptest.adb, ada-tests/sptests/sp24/sptest.ads,
|
||||||
|
ada-tests/sptests/sp25/sp25.adb, ada-tests/sptests/sp25/sptest.adb,
|
||||||
|
ada-tests/sptests/sp25/sptest.ads,
|
||||||
|
ada-tests/support/test_support.adb, ada-tests/tmtests/tm01/tm01.adb,
|
||||||
|
ada-tests/tmtests/tm01/tmtest.adb, ada-tests/tmtests/tm01/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm02/tm02.adb, ada-tests/tmtests/tm02/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm02/tmtest.ads, ada-tests/tmtests/tm03/tm03.adb,
|
||||||
|
ada-tests/tmtests/tm03/tmtest.adb, ada-tests/tmtests/tm03/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm04/tm04.adb, ada-tests/tmtests/tm04/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm04/tmtest.ads, ada-tests/tmtests/tm05/tm05.adb,
|
||||||
|
ada-tests/tmtests/tm05/tmtest.adb, ada-tests/tmtests/tm05/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm06/tm06.adb, ada-tests/tmtests/tm06/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm06/tmtest.ads, ada-tests/tmtests/tm07/tm07.adb,
|
||||||
|
ada-tests/tmtests/tm07/tmtest.adb, ada-tests/tmtests/tm07/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm08/tm08.adb, ada-tests/tmtests/tm08/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm08/tmtest.ads, ada-tests/tmtests/tm09/tm09.adb,
|
||||||
|
ada-tests/tmtests/tm09/tmtest.adb, ada-tests/tmtests/tm09/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm10/tm10.adb, ada-tests/tmtests/tm10/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm10/tmtest.ads, ada-tests/tmtests/tm11/tm11.adb,
|
||||||
|
ada-tests/tmtests/tm11/tmtest.adb, ada-tests/tmtests/tm11/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm12/tm12.adb, ada-tests/tmtests/tm12/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm12/tmtest.ads, ada-tests/tmtests/tm13/tm13.adb,
|
||||||
|
ada-tests/tmtests/tm13/tmtest.adb, ada-tests/tmtests/tm13/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm14/tm14.adb, ada-tests/tmtests/tm14/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm14/tmtest.ads, ada-tests/tmtests/tm15/tm15.adb,
|
||||||
|
ada-tests/tmtests/tm15/tmtest.adb, ada-tests/tmtests/tm15/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm16/tm16.adb, ada-tests/tmtests/tm16/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm16/tmtest.ads, ada-tests/tmtests/tm17/tm17.adb,
|
||||||
|
ada-tests/tmtests/tm17/tmtest.adb, ada-tests/tmtests/tm17/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm18/tm18.adb, ada-tests/tmtests/tm18/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm18/tmtest.ads, ada-tests/tmtests/tm19/tm19.adb,
|
||||||
|
ada-tests/tmtests/tm19/tmtest.adb, ada-tests/tmtests/tm19/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm20/tm20.adb, ada-tests/tmtests/tm20/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm20/tmtest.ads, ada-tests/tmtests/tm21/tm21.adb,
|
||||||
|
ada-tests/tmtests/tm21/tmtest.adb, ada-tests/tmtests/tm21/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm22/tm22.adb, ada-tests/tmtests/tm22/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm22/tmtest.ads, ada-tests/tmtests/tm23/tm23.adb,
|
||||||
|
ada-tests/tmtests/tm23/tmtest.adb, ada-tests/tmtests/tm23/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm24/tm24.adb, ada-tests/tmtests/tm24/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm24/tmtest.ads, ada-tests/tmtests/tm25/tm25.adb,
|
||||||
|
ada-tests/tmtests/tm25/tmtest.adb, ada-tests/tmtests/tm25/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tm28/tm28.adb, ada-tests/tmtests/tm28/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tm28/tmtest.ads, ada-tests/tmtests/tm29/tm29.adb,
|
||||||
|
ada-tests/tmtests/tm29/tmtest.adb, ada-tests/tmtests/tm29/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tmck/tmck.adb, ada-tests/tmtests/tmck/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tmck/tmtest.ads,
|
||||||
|
ada-tests/tmtests/tmoverhd/dummy_rtems.adb,
|
||||||
|
ada-tests/tmtests/tmoverhd/dummy_rtems.ads,
|
||||||
|
ada-tests/tmtests/tmoverhd/tmoverhd.adb,
|
||||||
|
ada-tests/tmtests/tmoverhd/tmtest.adb,
|
||||||
|
ada-tests/tmtests/tmoverhd/tmtest.ads: Account for RTEMS binding
|
||||||
|
child package rework. Eliminate all warnings.
|
||||||
|
|
||||||
2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>
|
2011-02-16 Joel Sherrill <joel.sherrill@oarcorp.com>
|
||||||
|
|
||||||
* ada/Makefile.am, ada/preinstall.am, ada/rtems.adb, ada/rtems.ads:
|
* ada/Makefile.am, ada/preinstall.am, ada/rtems.adb, ada/rtems.ads:
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure MP01 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,20 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.CLOCK;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
C : CHARACTER;
|
C : CHARACTER;
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -61,12 +62,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
RTEMS.CLOCK.SET( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 1 (Global)" );
|
TEXT_IO.PUT_LINE( "Creating task 1 (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 1 ),
|
MPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -79,7 +80,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 2 (Global)" );
|
TEXT_IO.PUT_LINE( "Creating task 2 (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 2 ),
|
MPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -92,7 +93,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating task 3 (Local)" );
|
TEXT_IO.PUT_LINE( "Creating task 3 (Local)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 3 ),
|
MPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -103,7 +104,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -111,7 +112,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 2 ),
|
MPTEST.TASK_ID( 2 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -119,7 +120,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 3 ),
|
MPTEST.TASK_ID( 3 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -127,28 +128,27 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME(
|
TEST_SUPPORT.PUT_NAME(
|
||||||
@@ -159,14 +159,14 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME(
|
TEST_SUPPORT.PUT_NAME(
|
||||||
@@ -186,7 +186,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( " - deleting self" );
|
TEXT_IO.PUT_LINE( " - deleting self" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
else if TEST_SUPPORT.TASK_NUMBER( TID ) = 2 then -- TASK 2
|
else if TEST_SUPPORT.TASK_NUMBER( TID ) = 2 then -- TASK 2
|
||||||
@@ -205,7 +205,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT( " - getting TID of " );
|
TEXT_IO.PUT( " - getting TID of " );
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( 2 ),
|
MPTEST.TASK_NAME( 2 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
TID,
|
TID,
|
||||||
@@ -217,7 +217,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT( " - deleting " );
|
TEXT_IO.PUT( " - deleting " );
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( 2 ), TRUE );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( TID, STATUS );
|
RTEMS.TASKS.DELETE( TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP01_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP01_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,19 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -52,7 +52,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating test task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating test task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -63,7 +63,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -71,18 +71,17 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
TEST_TID : RTEMS.ID;
|
TEST_TID : RTEMS.ID;
|
||||||
@@ -92,7 +91,7 @@ package body MPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
@@ -105,7 +104,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( REMOTE_NODE ),
|
MPTEST.TASK_NAME( REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
REMOTE_TID,
|
REMOTE_TID,
|
||||||
@@ -121,7 +120,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task (1 node)" );
|
TEXT_IO.PUT_LINE( "Getting TID of remote task (1 node)" );
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( REMOTE_NODE ),
|
MPTEST.TASK_NAME( REMOTE_NODE ),
|
||||||
REMOTE_NODE,
|
REMOTE_NODE,
|
||||||
TEST_TID,
|
TEST_TID,
|
||||||
@@ -134,7 +133,7 @@ package body MPTEST is
|
|||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
|
RTEMS.TASKS.DELETE( REMOTE_TID, STATUS );
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
||||||
@@ -144,7 +143,7 @@ package body MPTEST is
|
|||||||
"task_delete of remote task returned the correct error"
|
"task_delete of remote task returned the correct error"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_START( REMOTE_TID, MPTEST.TEST_TASK'ACCESS, 0, STATUS );
|
RTEMS.TASKS.START( REMOTE_TID, MPTEST.TEST_TASK'ACCESS, 0, STATUS );
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
||||||
@@ -154,7 +153,7 @@ package body MPTEST is
|
|||||||
"task_start of remote task returned the correct error"
|
"task_start of remote task returned the correct error"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_RESTART( REMOTE_TID, 0, STATUS );
|
RTEMS.TASKS.RESTART( REMOTE_TID, 0, STATUS );
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
||||||
@@ -170,7 +169,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT( " of the remote task to " );
|
TEXT_IO.PUT( " of the remote task to " );
|
||||||
UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ), WIDTH=>1 );
|
UNSIGNED32_IO.PUT( RTEMS.GET_NODE( TID ), WIDTH=>1 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
RTEMS.TASK_SET_NOTE(
|
RTEMS.TASKS.SET_NOTE(
|
||||||
REMOTE_TID,
|
REMOTE_TID,
|
||||||
RTEMS.GET_NODE( TID ),
|
RTEMS.GET_NODE( TID ),
|
||||||
RTEMS.GET_NODE( TID ),
|
RTEMS.GET_NODE( TID ),
|
||||||
@@ -179,7 +178,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting a notepad of the remote task" );
|
TEXT_IO.PUT_LINE( "Getting a notepad of the remote task" );
|
||||||
RTEMS.TASK_GET_NOTE(
|
RTEMS.TASKS.GET_NOTE(
|
||||||
REMOTE_TID,
|
REMOTE_TID,
|
||||||
RTEMS.GET_NODE( TID ),
|
RTEMS.GET_NODE( TID ),
|
||||||
NOTE,
|
NOTE,
|
||||||
@@ -200,7 +199,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( REMOTE_TID, STATUS );
|
RTEMS.TASKS.DELETE( REMOTE_TID, STATUS );
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
|
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
|
||||||
|
|
||||||
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
RTEMS.SHUTDOWN_EXECUTIVE( 0 );
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP02_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP02_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -6,7 +6,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -18,19 +18,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.EVENT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
with RTEMS.TIMER;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -47,7 +49,7 @@ package body MPTEST is
|
|||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -59,7 +61,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -69,7 +71,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
MPTEST.TIMER_NAME( 1 ),
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -77,12 +79,11 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- DELAYED_SEND_EVENT
|
-- DELAYED_SEND_EVENT
|
||||||
--
|
--
|
||||||
@@ -94,24 +95,23 @@ package body MPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.EVENT_SEND( MPTEST.TASK_ID( 1 ), RTEMS.EVENT_16, STATUS );
|
RTEMS.EVENT.SEND( MPTEST.TASK_ID( 1 ), RTEMS.EVENT_16, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_SEND" );
|
||||||
|
|
||||||
end DELAYED_SEND_EVENT;
|
end DELAYED_SEND_EVENT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
||||||
@@ -126,7 +126,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
@@ -137,7 +137,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
10 * TEST_SUPPORT.TICKS_PER_SECOND,
|
10 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
||||||
@@ -148,7 +148,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.TEST_TASK_SUPPORT( 1 );
|
MPTEST.TEST_TASK_SUPPORT( 1 );
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
11 * TEST_SUPPORT.TICKS_PER_SECOND,
|
11 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
||||||
@@ -159,7 +159,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 2 then
|
if TEST_SUPPORT.NODE = 2 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -175,7 +175,6 @@ package body MPTEST is
|
|||||||
|
|
||||||
end TEST_TASK;
|
end TEST_TASK;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_SUPPORT
|
-- TEST_TASK_SUPPORT
|
||||||
--
|
--
|
||||||
@@ -192,7 +191,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.NO_WAIT,
|
RTEMS.NO_WAIT,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -208,7 +207,7 @@ package body MPTEST is
|
|||||||
"EVENT_RECEIVE"
|
"EVENT_RECEIVE"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -216,10 +215,10 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
||||||
TEXT_IO.PUT_LINE( " - Suspending remote task" );
|
TEXT_IO.PUT_LINE( " - Suspending remote task" );
|
||||||
RTEMS.TASK_SUSPEND( MPTEST.REMOTE_TID, STATUS );
|
RTEMS.TASKS.SUSPEND( MPTEST.REMOTE_TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -228,7 +227,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( NODE ), FALSE );
|
||||||
TEXT_IO.PUT_LINE( " - Resuming remote task" );
|
TEXT_IO.PUT_LINE( " - Resuming remote task" );
|
||||||
|
|
||||||
RTEMS.TASK_RESUME( MPTEST.REMOTE_TID, STATUS );
|
RTEMS.TASKS.RESUME( MPTEST.REMOTE_TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME" );
|
||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
@@ -237,7 +236,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.NO_WAIT,
|
RTEMS.NO_WAIT,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -255,7 +254,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( REMOTE_NODE ), FALSE );
|
TEST_SUPPORT.PUT_NAME( MPTEST.TASK_NAME( REMOTE_NODE ), FALSE );
|
||||||
TEXT_IO.PUT_LINE( " - have I been suspended???" );
|
TEXT_IO.PUT_LINE( " - have I been suspended???" );
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND / 2,
|
TEST_SUPPORT.TICKS_PER_SECOND / 2,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -63,7 +64,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -91,7 +92,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP03_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP03_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,19 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -52,7 +52,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
2048,
|
2048,
|
||||||
@@ -65,7 +65,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -75,26 +75,25 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
PREVIOUS_PRIORITY_1 : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY_1 : RTEMS.TASKS.PRIORITY;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
||||||
@@ -109,7 +108,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
@@ -120,7 +119,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -142,9 +141,9 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
RTEMS.SELF,
|
RTEMS.SELF,
|
||||||
RTEMS.CURRENT_PRIORITY,
|
RTEMS.TASKS.CURRENT_PRIORITY,
|
||||||
PREVIOUS_PRIORITY_1,
|
PREVIOUS_PRIORITY_1,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -55,7 +56,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -68,7 +69,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP04_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP04_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,22 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.FATAL;
|
||||||
|
with RTEMS.SIGNAL;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
with RTEMS.TIMER;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -52,7 +55,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -65,7 +68,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -76,7 +79,7 @@ package body MPTEST is
|
|||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
||||||
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -85,12 +88,11 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- PROCESS_ASR
|
-- PROCESS_ASR
|
||||||
--
|
--
|
||||||
@@ -109,7 +111,7 @@ package body MPTEST is
|
|||||||
UNSIGNED32_IO.PUT( SIGNAL, BASE => 16 );
|
UNSIGNED32_IO.PUT( SIGNAL, BASE => 16 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.FATAL_ERROR_OCCURRED( 16#000F_0000# );
|
RTEMS.FATAL.ERROR_OCCURRED( 16#000F_0000# );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
@@ -117,7 +119,6 @@ package body MPTEST is
|
|||||||
|
|
||||||
end PROCESS_ASR;
|
end PROCESS_ASR;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- STOP_TEST_TSR
|
-- STOP_TEST_TSR
|
||||||
--
|
--
|
||||||
@@ -132,13 +133,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
end STOP_TEST_TSR;
|
end STOP_TEST_TSR;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -149,7 +149,7 @@ package body MPTEST is
|
|||||||
MPTEST.SIGNAL_COUNT := 0;
|
MPTEST.SIGNAL_COUNT := 0;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "signal_catch: initializing signal catcher" );
|
TEXT_IO.PUT_LINE( "signal_catch: initializing signal catcher" );
|
||||||
RTEMS.SIGNAL_CATCH(
|
RTEMS.SIGNAL.CATCH(
|
||||||
MPTEST.PROCESS_ASR'ACCESS,
|
MPTEST.PROCESS_ASR'ACCESS,
|
||||||
RTEMS.NO_ASR + RTEMS.NO_PREEMPT,
|
RTEMS.NO_ASR + RTEMS.NO_PREEMPT,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -172,7 +172,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
@@ -183,7 +183,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
3 * TEST_SUPPORT.TICKS_PER_SECOND,
|
3 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
MPTEST.STOP_TEST_TSR'ACCESS,
|
||||||
@@ -196,7 +196,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sending signal to remote task" );
|
TEXT_IO.PUT_LINE( "Sending signal to remote task" );
|
||||||
loop
|
loop
|
||||||
RTEMS.SIGNAL_SEND(
|
RTEMS.SIGNAL.SEND(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
MPTEST.REMOTE_SIGNAL,
|
MPTEST.REMOTE_SIGNAL,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -228,7 +228,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.SIGNAL_SEND(
|
RTEMS.SIGNAL.SEND(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
MPTEST.REMOTE_SIGNAL,
|
MPTEST.REMOTE_SIGNAL,
|
||||||
STATUS
|
STATUS
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,8 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.SIGNAL;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -95,7 +97,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -135,7 +137,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP05_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP05_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.EVENT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
with RTEMS.TIMER;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -52,7 +54,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
2048,
|
2048,
|
||||||
@@ -65,7 +67,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -76,7 +78,7 @@ package body MPTEST is
|
|||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
||||||
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
MPTEST.TIMER_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'M', '2', ' ' );
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TIMER_NAME( TEST_SUPPORT.NODE ),
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -85,12 +87,11 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- STOP_TEST_TSR
|
-- STOP_TEST_TSR
|
||||||
--
|
--
|
||||||
@@ -105,13 +106,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
end STOP_TEST_TSR;
|
end STOP_TEST_TSR;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
EVENT_OUT : RTEMS.EVENT_SET;
|
EVENT_OUT : RTEMS.EVENT_SET;
|
||||||
@@ -134,7 +134,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
@@ -151,7 +151,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "Receiving events from remote task" );
|
TEXT_IO.PUT_LINE( "Receiving events from remote task" );
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
MPTEST.STOP_TEST_TSR'ACCESS,
|
||||||
@@ -173,7 +173,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
RTEMS.EVENT.SEND(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
EVENT_FOR_THIS_ITERATION,
|
EVENT_FOR_THIS_ITERATION,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -182,7 +182,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
else
|
else
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
EVENT_FOR_THIS_ITERATION,
|
EVENT_FOR_THIS_ITERATION,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
@@ -227,7 +227,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 2 then
|
if TEST_SUPPORT.NODE = 2 then
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,8 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.EVENT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -114,7 +116,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -141,7 +143,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP06_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP06_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.EVENT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
with RTEMS.TIMER;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -51,7 +53,7 @@ package body MPTEST is
|
|||||||
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
MPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( '2', '2', '2', ' ' );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
2048,
|
2048,
|
||||||
@@ -63,7 +65,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -73,7 +75,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
MPTEST.TIMER_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'M', '1', ' ' );
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
MPTEST.TIMER_NAME( 1 ),
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -81,12 +83,11 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- STOP_TEST_TSR
|
-- STOP_TEST_TSR
|
||||||
--
|
--
|
||||||
@@ -101,13 +102,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
end STOP_TEST_TSR;
|
end STOP_TEST_TSR;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
EVENT_OUT : RTEMS.EVENT_SET;
|
EVENT_OUT : RTEMS.EVENT_SET;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -126,7 +126,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
TEXT_IO.PUT_LINE( "Getting TID of remote task" );
|
||||||
loop
|
loop
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
MPTEST.TASK_NAME( MPTEST.REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
@@ -140,7 +140,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sending first event to remote task" );
|
TEXT_IO.PUT_LINE( "Sending first event to remote task" );
|
||||||
RTEMS.EVENT_SEND(
|
RTEMS.EVENT.SEND(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -149,7 +149,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
MPTEST.STOP_TEST_TSR'ACCESS,
|
MPTEST.STOP_TEST_TSR'ACCESS,
|
||||||
@@ -165,7 +165,7 @@ package body MPTEST is
|
|||||||
for COUNT in 1 .. MPTEST.PER_DOT
|
for COUNT in 1 .. MPTEST.PER_DOT
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
@@ -182,7 +182,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "EVENT_RECEIVE" );
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
RTEMS.EVENT.SEND(
|
||||||
MPTEST.REMOTE_TID,
|
MPTEST.REMOTE_TID,
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
STATUS
|
STATUS
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -74,7 +75,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -101,7 +102,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP07_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP07_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.OBJECT;
|
||||||
|
with RTEMS.SEMAPHORE;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -56,7 +58,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore(Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore(Global)" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
RTEMS.SEMAPHORE.CREATE(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.GLOBAL,
|
RTEMS.GLOBAL,
|
||||||
@@ -68,7 +70,7 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
2048,
|
2048,
|
||||||
@@ -80,7 +82,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -89,18 +91,17 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
DOTS : RTEMS.UNSIGNED32;
|
DOTS : RTEMS.UNSIGNED32;
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
@@ -110,7 +111,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
TEXT_IO.PUT_LINE( "Getting SMID of semaphore" );
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
RTEMS.SEMAPHORE.IDENT(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
@@ -123,7 +124,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 2 then
|
if TEST_SUPPORT.NODE = 2 then
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_DELETE(
|
RTEMS.SEMAPHORE.DELETE(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -145,7 +146,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "p" );
|
TEST_SUPPORT.PUT_DOT( "p" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -175,14 +176,14 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 and then
|
if TEST_SUPPORT.NODE = 1 and then
|
||||||
COUNT >= 1000 then
|
COUNT >= 1000 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting global semaphore" );
|
TEXT_IO.PUT_LINE( "Deleting global semaphore" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
RTEMS.SEMAPHORE.DELETE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_DELETE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
|
TEXT_IO.PUT_LINE( "*** END OF TEST 8 ***" );
|
||||||
@@ -193,7 +194,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEST_SUPPORT.PUT_DOT( "v" );
|
TEST_SUPPORT.PUT_DOT( "v" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
||||||
|
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -69,7 +70,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -82,7 +83,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP08_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP08_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.MESSAGE_QUEUE;
|
||||||
|
with RTEMS.OBJECT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -75,7 +77,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
RTEMS.MESSAGE_QUEUE.CREATE(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
3,
|
3,
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
RTEMS.GLOBAL + RTEMS.LIMIT,
|
||||||
@@ -87,7 +89,7 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
MPTEST.TASK_NAME( TEST_SUPPORT.NODE ),
|
||||||
TEST_SUPPORT.NODE,
|
TEST_SUPPORT.NODE,
|
||||||
2048,
|
2048,
|
||||||
@@ -99,7 +101,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -108,12 +110,11 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- SEND_MESSAGES
|
-- SEND_MESSAGES
|
||||||
--
|
--
|
||||||
@@ -127,7 +128,7 @@ package body MPTEST is
|
|||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_1 );
|
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_1 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
RTEMS.MESSAGE_QUEUE.SEND(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFER_1,
|
MPTEST.BUFFER_1,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -135,7 +136,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -145,7 +146,7 @@ package body MPTEST is
|
|||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_2 );
|
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_2 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_URGENT(
|
RTEMS.MESSAGE_QUEUE.URGENT(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFER_2,
|
MPTEST.BUFFER_2,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -153,7 +154,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_URGENT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_URGENT" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -163,7 +164,7 @@ package body MPTEST is
|
|||||||
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_3 );
|
MPTEST.PUT_BUFFER( MPTEST.BUFFER_AREA_3 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_BROADCAST(
|
RTEMS.MESSAGE_QUEUE.BROADCAST(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFER_3,
|
MPTEST.BUFFER_3,
|
||||||
BROADCAST_COUNT,
|
BROADCAST_COUNT,
|
||||||
@@ -172,7 +173,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_BROADCAST" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_BROADCAST" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
TEXT_IO.PUT_LINE( "Delaying for a second" );
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
1 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -180,7 +181,6 @@ package body MPTEST is
|
|||||||
|
|
||||||
end SEND_MESSAGES;
|
end SEND_MESSAGES;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- RECEIVE_MESSAGES
|
-- RECEIVE_MESSAGES
|
||||||
--
|
--
|
||||||
@@ -194,7 +194,7 @@ package body MPTEST is
|
|||||||
loop
|
loop
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.RECEIVE_BUFFER,
|
MPTEST.RECEIVE_BUFFER,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -211,12 +211,11 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiver delaying for a second" );
|
TEXT_IO.PUT_LINE( "Receiver delaying for a second" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
end RECEIVE_MESSAGES;
|
end RECEIVE_MESSAGES;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- FILL_BUFFER
|
-- FILL_BUFFER
|
||||||
--
|
--
|
||||||
@@ -243,7 +242,6 @@ package body MPTEST is
|
|||||||
|
|
||||||
end FILL_BUFFER;
|
end FILL_BUFFER;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- PUT_BUFFER
|
-- PUT_BUFFER
|
||||||
--
|
--
|
||||||
@@ -264,26 +262,25 @@ package body MPTEST is
|
|||||||
|
|
||||||
end PUT_BUFFER;
|
end PUT_BUFFER;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK
|
-- TEST_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting QID of message queue" );
|
TEXT_IO.PUT_LINE( "Getting QID of message queue" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
RTEMS.MESSAGE_QUEUE.IDENT(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
@@ -296,7 +293,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 2 then
|
if TEST_SUPPORT.NODE = 2 then
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
RTEMS.MESSAGE_QUEUE.DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
||||||
|
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
@@ -313,7 +310,7 @@ package body MPTEST is
|
|||||||
MPTEST.RECEIVE_MESSAGES;
|
MPTEST.RECEIVE_MESSAGES;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Flushing remote empty queue" );
|
TEXT_IO.PUT_LINE( "Flushing remote empty queue" );
|
||||||
RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
RTEMS.MESSAGE_QUEUE.FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
||||||
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
||||||
TEXT_IO.PUT_LINE(
|
TEXT_IO.PUT_LINE(
|
||||||
@@ -323,7 +320,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE(
|
TEXT_IO.PUT_LINE(
|
||||||
"Send messages to be flushed from remote queue"
|
"Send messages to be flushed from remote queue"
|
||||||
);
|
);
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
RTEMS.MESSAGE_QUEUE.SEND(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFER_1,
|
MPTEST.BUFFER_1,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -331,7 +328,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_SEND" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Flushing remote queue" );
|
TEXT_IO.PUT_LINE( "Flushing remote queue" );
|
||||||
RTEMS.MESSAGE_QUEUE_FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
RTEMS.MESSAGE_QUEUE.FLUSH( MPTEST.QUEUE_ID( 1 ), COUNT, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_FLUSH" );
|
||||||
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
UNSIGNED32_IO.PUT( COUNT, WIDTH => 1 );
|
||||||
TEXT_IO.PUT_LINE(
|
TEXT_IO.PUT_LINE(
|
||||||
@@ -339,7 +336,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Waiting for message queue to be deleted" );
|
TEXT_IO.PUT_LINE( "Waiting for message queue to be deleted" );
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.RECEIVE_BUFFER,
|
MPTEST.RECEIVE_BUFFER,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -358,13 +355,13 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.SEND_MESSAGES;
|
MPTEST.SEND_MESSAGES;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
5 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
RTEMS.MESSAGE_QUEUE.DELETE( MPTEST.QUEUE_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_DELETE" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -86,7 +87,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -144,7 +145,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP09_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP09_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.MESSAGE_QUEUE;
|
||||||
|
with RTEMS.SEMAPHORE;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -59,7 +61,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
RTEMS.MESSAGE_QUEUE.CREATE(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
3,
|
3,
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
RTEMS.GLOBAL + RTEMS.LIMIT,
|
||||||
@@ -69,7 +71,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
RTEMS.SEMAPHORE.CREATE(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
0,
|
0,
|
||||||
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
||||||
@@ -78,13 +80,13 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 10 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
else
|
else
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 1 ),
|
MPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -96,7 +98,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK_1'ACCESS,
|
MPTEST.TEST_TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -105,7 +107,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 2 ),
|
MPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -117,7 +119,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 2 ),
|
MPTEST.TASK_ID( 2 ),
|
||||||
MPTEST.TEST_TASK_2'ACCESS,
|
MPTEST.TEST_TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -126,7 +128,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 3 (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task 3 (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 3 ),
|
MPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -138,7 +140,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 3 (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task 3 (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 3 ),
|
MPTEST.TASK_ID( 3 ),
|
||||||
MPTEST.TEST_TASK_3'ACCESS,
|
MPTEST.TEST_TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -147,19 +149,19 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sleeping for 1 second ..." );
|
TEXT_IO.PUT_LINE( "Sleeping for 1 second ..." );
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Test_task 2" );
|
TEXT_IO.PUT_LINE( "Deleting Test_task 2" );
|
||||||
RTEMS.TASK_DELETE( MPTEST.TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.DELETE( MPTEST.TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Test_task 1" );
|
TEXT_IO.PUT_LINE( "Deleting Test_task 1" );
|
||||||
RTEMS.TASK_DELETE( MPTEST.TASK_ID( 1 ), STATUS );
|
RTEMS.TASKS.DELETE( MPTEST.TASK_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF 1" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Restarting Test_task 3" );
|
TEXT_IO.PUT_LINE( "Restarting Test_task 3" );
|
||||||
RTEMS.TASK_RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
|
RTEMS.TASKS.RESTART( MPTEST.TASK_ID( 3 ), 1, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF 3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF 3" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
@@ -170,13 +172,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_1
|
-- TEST_TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
procedure TEST_TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
||||||
@@ -191,7 +192,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
RTEMS.MESSAGE_QUEUE.IDENT(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
@@ -203,7 +204,7 @@ package body MPTEST is
|
|||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to receive message ..." );
|
TEXT_IO.PUT_LINE( "Attempting to receive message ..." );
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
RECEIVE_BUFFER,
|
RECEIVE_BUFFER,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -214,13 +215,12 @@ package body MPTEST is
|
|||||||
|
|
||||||
end TEST_TASK_1;
|
end TEST_TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_2
|
-- TEST_TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
procedure TEST_TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -229,7 +229,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
RTEMS.SEMAPHORE.IDENT(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
@@ -241,7 +241,7 @@ package body MPTEST is
|
|||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -251,20 +251,19 @@ package body MPTEST is
|
|||||||
|
|
||||||
end TEST_TASK_2;
|
end TEST_TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_3
|
-- TEST_TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_3 (
|
procedure TEST_TASK_3 (
|
||||||
RESTART : in RTEMS.TASK_ARGUMENT
|
RESTART : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
if RESTART = 1 then
|
if RESTART = 1 then
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
@@ -273,7 +272,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
RTEMS.SEMAPHORE.IDENT(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
@@ -285,7 +284,7 @@ package body MPTEST is
|
|||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
TEXT_IO.PUT_LINE( "Attempting to acquire semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -77,7 +78,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -90,7 +91,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
procedure TEST_TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK_1);
|
pragma Convention (C, TEST_TASK_1);
|
||||||
|
|
||||||
@@ -103,7 +104,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
procedure TEST_TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK_2);
|
pragma Convention (C, TEST_TASK_2);
|
||||||
|
|
||||||
@@ -116,7 +117,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_3 (
|
procedure TEST_TASK_3 (
|
||||||
RESTART : in RTEMS.TASK_ARGUMENT
|
RESTART : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK_3);
|
pragma Convention (C, TEST_TASK_3);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP10_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP10_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,22 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.MESSAGE_QUEUE;
|
||||||
|
with RTEMS.PARTITION;
|
||||||
|
with RTEMS.SEMAPHORE;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -59,7 +62,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to create Test_task (Global)" );
|
TEXT_IO.PUT_LINE( "Attempting to create Test_task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 1 ),
|
MPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -76,7 +79,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "task_create correctly returned TOO_MANY" );
|
TEXT_IO.PUT_LINE( "task_create correctly returned TOO_MANY" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Attempting to create Message Queue (Global)" );
|
TEXT_IO.PUT_LINE( "Attempting to create Message Queue (Global)" );
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
RTEMS.MESSAGE_QUEUE.CREATE(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
3,
|
3,
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
RTEMS.GLOBAL + RTEMS.LIMIT,
|
||||||
@@ -93,7 +96,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
RTEMS.SEMAPHORE.CREATE(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.GLOBAL,
|
RTEMS.GLOBAL,
|
||||||
@@ -108,7 +111,7 @@ package body MPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "semaphore_create correctly returned TOO_MANY" );
|
TEXT_IO.PUT_LINE( "semaphore_create correctly returned TOO_MANY" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
||||||
RTEMS.PARTITION_CREATE(
|
RTEMS.PARTITION.CREATE(
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
MPTEST.PARTITION_NAME( 1 ),
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
||||||
128,
|
128,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -73,7 +74,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP11_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP11_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,20 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.PARTITION;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
BUFFER_ADDRESS : RTEMS.ADDRESS;
|
BUFFER_ADDRESS : RTEMS.ADDRESS;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -57,14 +58,14 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 2 then
|
if TEST_SUPPORT.NODE = 2 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting ID of remote Partition (Global)" );
|
TEXT_IO.PUT_LINE( "Getting ID of remote Partition (Global)" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.PARTITION_IDENT(
|
RTEMS.PARTITION.IDENT(
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
MPTEST.PARTITION_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
@@ -79,7 +80,7 @@ package body MPTEST is
|
|||||||
"Attempting to delete remote Partition (Global)"
|
"Attempting to delete remote Partition (Global)"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
RTEMS.ILLEGAL_ON_REMOTE_OBJECT,
|
||||||
@@ -92,7 +93,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
|
TEXT_IO.PUT_LINE( "Obtaining a buffer from the global partition" );
|
||||||
|
|
||||||
RTEMS.PARTITION_GET_BUFFER(
|
RTEMS.PARTITION.GET_BUFFER(
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
BUFFER_ADDRESS,
|
BUFFER_ADDRESS,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -106,20 +107,20 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.PARTITION_RETURN_BUFFER(
|
RTEMS.PARTITION.RETURN_BUFFER(
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
BUFFER_ADDRESS,
|
BUFFER_ADDRESS,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_RETURN_BUFFER" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
else
|
else
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
||||||
RTEMS.PARTITION_CREATE(
|
RTEMS.PARTITION.CREATE(
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
MPTEST.PARTITION_NAME( 1 ),
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
||||||
128,
|
128,
|
||||||
@@ -131,11 +132,11 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Sleeping for three seconds" );
|
TEXT_IO.PUT_LINE( "Sleeping for three seconds" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 3 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
|
TEXT_IO.PUT_LINE( "Deleting Partition (Global)" );
|
||||||
RTEMS.PARTITION_DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
RTEMS.PARTITION.DELETE( MPTEST.PARTITION_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_DELETE" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -63,7 +64,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP12_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP12_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,21 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.MESSAGE_QUEUE;
|
||||||
|
with RTEMS.SEMAPHORE;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -57,7 +59,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
RTEMS.MESSAGE_QUEUE.CREATE(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
3,
|
3,
|
||||||
RTEMS.GLOBAL + RTEMS.LIMIT,
|
RTEMS.GLOBAL + RTEMS.LIMIT,
|
||||||
@@ -67,7 +69,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
RTEMS.SEMAPHORE.CREATE(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
RTEMS.GLOBAL + RTEMS.PRIORITY,
|
||||||
@@ -76,7 +78,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -87,7 +89,7 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task 1 (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 1 ),
|
MPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -99,7 +101,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task 1 (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK_1'ACCESS,
|
MPTEST.TEST_TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -108,7 +110,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
TEXT_IO.PUT_LINE( "Creating Test_task 2 (local)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 2 ),
|
MPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -120,7 +122,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
TEXT_IO.PUT_LINE( "Starting Test_task 2 (local)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 2 ),
|
MPTEST.TASK_ID( 2 ),
|
||||||
MPTEST.TEST_TASK_2'ACCESS,
|
MPTEST.TEST_TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -130,7 +132,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
|
TEXT_IO.PUT_LINE( "*** END OF TEST 13 ***" );
|
||||||
@@ -140,18 +142,17 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
TEXT_IO.PUT_LINE( "Deleting initialization task" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_1
|
-- TEST_TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
procedure TEST_TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
RECEIVE_BUFFER_AREA : RTEMS.BUFFER;
|
||||||
@@ -166,7 +167,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
RTEMS.MESSAGE_QUEUE.IDENT(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
@@ -180,7 +181,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
RECEIVE_BUFFER,
|
RECEIVE_BUFFER,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -192,11 +193,11 @@ package body MPTEST is
|
|||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
TEXT_IO.PUT_LINE( "Receiving message ..." );
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
RECEIVE_BUFFER,
|
RECEIVE_BUFFER,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -219,18 +220,17 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Deleting self" );
|
TEXT_IO.PUT_LINE( "Deleting self" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end TEST_TASK_1;
|
end TEST_TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TEST_TASK_2
|
-- TEST_TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
procedure TEST_TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -239,7 +239,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
RTEMS.SEMAPHORE.IDENT(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
@@ -252,18 +252,18 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -272,7 +272,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -283,11 +283,11 @@ package body MPTEST is
|
|||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -296,14 +296,14 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
TEXT_IO.PUT_LINE( "Releasing semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
TEXT_IO.PUT_LINE( "Getting semaphore ..." );
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
2 * TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -71,7 +72,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -84,7 +85,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_1 (
|
procedure TEST_TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK_1);
|
pragma Convention (C, TEST_TASK_1);
|
||||||
|
|
||||||
@@ -97,7 +98,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK_2 (
|
procedure TEST_TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK_2);
|
pragma Convention (C, TEST_TASK_2);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP13_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP13_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,6 +23,12 @@
|
|||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with INTERFACES.C;
|
with INTERFACES.C;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.EVENT;
|
||||||
|
with RTEMS.MESSAGE_QUEUE;
|
||||||
|
with RTEMS.PARTITION;
|
||||||
|
with RTEMS.SEMAPHORE;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
with RTEMS.TIMER;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
@@ -31,7 +37,6 @@ with System.Storage_Elements; use System.Storage_Elements;
|
|||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- STOP_TEST_TSR
|
-- STOP_TEST_TSR
|
||||||
--
|
--
|
||||||
@@ -46,7 +51,6 @@ package body MPTEST is
|
|||||||
|
|
||||||
end STOP_TEST_TSR;
|
end STOP_TEST_TSR;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- EXIT_TEST
|
-- EXIT_TEST
|
||||||
--
|
--
|
||||||
@@ -58,7 +62,7 @@ package body MPTEST is
|
|||||||
pragma Import (C, BSP_MPCI_PRINT_STATISTICS, "MPCI_Print_statistics" );
|
pragma Import (C, BSP_MPCI_PRINT_STATISTICS, "MPCI_Print_statistics" );
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);
|
RTEMS.TASKS.MODE(RTEMS.NO_PREEMPT, RTEMS.PREEMPT_MASK, OLD_MODE, STATUS);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
||||||
|
|
||||||
BSP_MPCI_PRINT_STATISTICS;
|
BSP_MPCI_PRINT_STATISTICS;
|
||||||
@@ -67,17 +71,16 @@ package body MPTEST is
|
|||||||
|
|
||||||
end EXIT_TEST;
|
end EXIT_TEST;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
INDEX : RTEMS.UNSIGNED32;
|
INDEX : RTEMS.UNSIGNED32;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
TEXT_IO.NEW_LINE( 2 );
|
||||||
@@ -92,14 +95,14 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.STOP_TEST := FALSE;
|
MPTEST.STOP_TEST := FALSE;
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.STOP_TIMER_NAME,
|
MPTEST.STOP_TIMER_NAME,
|
||||||
MPTEST.STOP_TIMER_ID,
|
MPTEST.STOP_TIMER_ID,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
||||||
|
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.STOP_TIMER_ID,
|
MPTEST.STOP_TIMER_ID,
|
||||||
TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION *
|
TEST_SUPPORT.MAXIMUM_LONG_TEST_DURATION *
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
@@ -144,7 +147,7 @@ package body MPTEST is
|
|||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore (Global)" );
|
||||||
RTEMS.SEMAPHORE_CREATE(
|
RTEMS.SEMAPHORE.CREATE(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.GLOBAL,
|
RTEMS.GLOBAL,
|
||||||
@@ -154,7 +157,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Message Queue (Global)" );
|
||||||
RTEMS.MESSAGE_QUEUE_CREATE(
|
RTEMS.MESSAGE_QUEUE.CREATE(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.GLOBAL,
|
RTEMS.GLOBAL,
|
||||||
@@ -164,7 +167,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "MESSAGE_QUEUE_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Partition (Global)" );
|
||||||
RTEMS.PARTITION_CREATE(
|
RTEMS.PARTITION.CREATE(
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
MPTEST.PARTITION_NAME( 1 ),
|
||||||
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
MPTEST.PARTITION_AREA( 0 )'ADDRESS,
|
||||||
16#8000#,
|
16#8000#,
|
||||||
@@ -178,7 +181,7 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Event task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Event task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.EVENT_TASK_NAME(
|
MPTEST.EVENT_TASK_NAME(
|
||||||
TEST_SUPPORT.NODE
|
TEST_SUPPORT.NODE
|
||||||
),
|
),
|
||||||
@@ -192,7 +195,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Event task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Event task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.EVENT_TASK_ID( 1 ),
|
MPTEST.EVENT_TASK_ID( 1 ),
|
||||||
MPTEST.TEST_TASK'ACCESS,
|
MPTEST.TEST_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -201,7 +204,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Semaphore task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Semaphore task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.SEMAPHORE_TASK_NAME(
|
MPTEST.SEMAPHORE_TASK_NAME(
|
||||||
TEST_SUPPORT.NODE
|
TEST_SUPPORT.NODE
|
||||||
),
|
),
|
||||||
@@ -215,7 +218,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Semaphore task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Semaphore task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.SEMAPHORE_TASK_ID( 1 ),
|
MPTEST.SEMAPHORE_TASK_ID( 1 ),
|
||||||
MPTEST.SEMAPHORE_TASK'ACCESS,
|
MPTEST.SEMAPHORE_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -224,7 +227,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Message Queue task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Message Queue task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.QUEUE_TASK_NAME(
|
MPTEST.QUEUE_TASK_NAME(
|
||||||
TEST_SUPPORT.NODE
|
TEST_SUPPORT.NODE
|
||||||
),
|
),
|
||||||
@@ -238,7 +241,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Message Queue task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Message Queue task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.QUEUE_TASK_ID( 1 ),
|
MPTEST.QUEUE_TASK_ID( 1 ),
|
||||||
MPTEST.MESSAGE_QUEUE_TASK'ACCESS,
|
MPTEST.MESSAGE_QUEUE_TASK'ACCESS,
|
||||||
1, -- index of buffer
|
1, -- index of buffer
|
||||||
@@ -247,7 +250,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Creating Partition task (Global)" );
|
TEXT_IO.PUT_LINE( "Creating Partition task (Global)" );
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.PARTITION_TASK_NAME(
|
MPTEST.PARTITION_TASK_NAME(
|
||||||
TEST_SUPPORT.NODE
|
TEST_SUPPORT.NODE
|
||||||
),
|
),
|
||||||
@@ -261,7 +264,7 @@ package body MPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "Starting Partition task (Global)" );
|
TEXT_IO.PUT_LINE( "Starting Partition task (Global)" );
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.PARTITION_TASK_ID( 1 ),
|
MPTEST.PARTITION_TASK_ID( 1 ),
|
||||||
MPTEST.PARTITION_TASK'ACCESS,
|
MPTEST.PARTITION_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -269,7 +272,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START" );
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY( RTEMS.SELF, 2, PREVIOUS_PRIORITY, STATUS );
|
RTEMS.TASKS.SET_PRIORITY( RTEMS.SELF, 2, PREVIOUS_PRIORITY, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
||||||
|
|
||||||
MPTEST.DELAYED_EVENTS_TASK( 1 );
|
MPTEST.DELAYED_EVENTS_TASK( 1 );
|
||||||
@@ -292,7 +295,7 @@ package body MPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.EVENT_SEND(
|
RTEMS.EVENT.SEND(
|
||||||
MPTEST.TASK_ID( RTEMS.GET_INDEX( TIMER_ID ) ),
|
MPTEST.TASK_ID( RTEMS.GET_INDEX( TIMER_ID ) ),
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -310,7 +313,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
REMOTE_NODE : RTEMS.UNSIGNED32;
|
REMOTE_NODE : RTEMS.UNSIGNED32;
|
||||||
REMOTE_TID : RTEMS.ID;
|
REMOTE_TID : RTEMS.ID;
|
||||||
@@ -326,7 +329,7 @@ package body MPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "About to go to sleep!" );
|
TEXT_IO.PUT_LINE( "About to go to sleep!" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 1 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
TEXT_IO.PUT_LINE( "Waking up!" );
|
TEXT_IO.PUT_LINE( "Waking up!" );
|
||||||
|
|
||||||
@@ -337,7 +340,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
MPTEST.EVENT_TASK_NAME( REMOTE_NODE ),
|
MPTEST.EVENT_TASK_NAME( REMOTE_NODE ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
REMOTE_TID,
|
REMOTE_TID,
|
||||||
@@ -358,7 +361,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
for COUNT in 1 .. MPTEST.EVENT_TASK_DOT_COUNT
|
for COUNT in 1 .. MPTEST.EVENT_TASK_DOT_COUNT
|
||||||
loop
|
loop
|
||||||
RTEMS.EVENT_SEND(
|
RTEMS.EVENT.SEND(
|
||||||
REMOTE_TID,
|
REMOTE_TID,
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -384,7 +387,7 @@ package body MPTEST is
|
|||||||
loop
|
loop
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
exit when MPTEST.STOP_TEST = TRUE;
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -412,7 +415,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure DELAYED_EVENTS_TASK (
|
procedure DELAYED_EVENTS_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
PREVIOUS_MODE : RTEMS.MODE;
|
PREVIOUS_MODE : RTEMS.MODE;
|
||||||
@@ -420,7 +423,7 @@ package body MPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.PREEMPT + RTEMS.TIMESLICE,
|
RTEMS.PREEMPT + RTEMS.TIMESLICE,
|
||||||
RTEMS.PREEMPT_MASK + RTEMS.TIMESLICE_MASK,
|
RTEMS.PREEMPT_MASK + RTEMS.TIMESLICE_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -428,14 +431,14 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
||||||
|
|
||||||
RTEMS.TIMER_CREATE(
|
RTEMS.TIMER.CREATE(
|
||||||
MPTEST.TIMER_NAME( 1 ),
|
MPTEST.TIMER_NAME( 1 ),
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_CREATE" );
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
RTEMS.SELF,
|
RTEMS.SELF,
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.TASK_ID( RTEMS.GET_INDEX( MPTEST.TIMER_ID( 1 ) ) ),
|
MPTEST.TASK_ID( RTEMS.GET_INDEX( MPTEST.TIMER_ID( 1 ) ) ),
|
||||||
@@ -447,7 +450,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
for COUNT in 1 .. MPTEST.DELAYED_EVENT_DOT_COUNT
|
for COUNT in 1 .. MPTEST.DELAYED_EVENT_DOT_COUNT
|
||||||
loop
|
loop
|
||||||
RTEMS.TIMER_FIRE_AFTER(
|
RTEMS.TIMER.FIRE_AFTER(
|
||||||
MPTEST.TIMER_ID( 1 ),
|
MPTEST.TIMER_ID( 1 ),
|
||||||
1,
|
1,
|
||||||
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
MPTEST.DELAYED_SEND_EVENT'ACCESS,
|
||||||
@@ -456,7 +459,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TIMER_FIRE_AFTER" );
|
||||||
|
|
||||||
RTEMS.EVENT_RECEIVE(
|
RTEMS.EVENT.RECEIVE(
|
||||||
RTEMS.EVENT_16,
|
RTEMS.EVENT_16,
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -484,7 +487,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure MESSAGE_QUEUE_TASK (
|
procedure MESSAGE_QUEUE_TASK (
|
||||||
INDEX : in RTEMS.TASK_ARGUMENT
|
INDEX : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
YIELD_COUNT : RTEMS.UNSIGNED32;
|
YIELD_COUNT : RTEMS.UNSIGNED32;
|
||||||
@@ -502,7 +505,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_IDENT(
|
RTEMS.MESSAGE_QUEUE.IDENT(
|
||||||
MPTEST.QUEUE_NAME( 1 ),
|
MPTEST.QUEUE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
@@ -516,7 +519,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
RTEMS.MESSAGE_QUEUE.SEND(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFERS( INDEX ),
|
MPTEST.BUFFERS( INDEX ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -554,7 +557,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
exit when MPTEST.STOP_TEST = TRUE;
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_RECEIVE(
|
RTEMS.MESSAGE_QUEUE.RECEIVE(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFERS( INDEX ),
|
MPTEST.BUFFERS( INDEX ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
@@ -573,7 +576,7 @@ package body MPTEST is
|
|||||||
BUFFER_COUNT.ALL := BUFFER_COUNT.ALL + 1;
|
BUFFER_COUNT.ALL := BUFFER_COUNT.ALL + 1;
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.MESSAGE_QUEUE_SEND(
|
RTEMS.MESSAGE_QUEUE.SEND(
|
||||||
MPTEST.QUEUE_ID( 1 ),
|
MPTEST.QUEUE_ID( 1 ),
|
||||||
MPTEST.BUFFERS( INDEX ),
|
MPTEST.BUFFERS( INDEX ),
|
||||||
STATUS
|
STATUS
|
||||||
@@ -587,7 +590,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if YIELD_COUNT = 0 then
|
if YIELD_COUNT = 0 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
YIELD_COUNT := 100;
|
||||||
@@ -617,7 +620,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure PARTITION_TASK (
|
procedure PARTITION_TASK (
|
||||||
IGNORED : in RTEMS.TASK_ARGUMENT
|
IGNORED : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
BUFFER : RTEMS.ADDRESS;
|
BUFFER : RTEMS.ADDRESS;
|
||||||
@@ -628,7 +631,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.PARTITION_IDENT(
|
RTEMS.PARTITION.IDENT(
|
||||||
MPTEST.PARTITION_NAME( 1 ),
|
MPTEST.PARTITION_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
@@ -649,14 +652,14 @@ package body MPTEST is
|
|||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
exit when MPTEST.STOP_TEST = TRUE;
|
||||||
|
|
||||||
RTEMS.PARTITION_GET_BUFFER(
|
RTEMS.PARTITION.GET_BUFFER(
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
BUFFER,
|
BUFFER,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "PARTITION_GET_BUFFER" );
|
||||||
|
|
||||||
RTEMS.PARTITION_RETURN_BUFFER(
|
RTEMS.PARTITION.RETURN_BUFFER(
|
||||||
MPTEST.PARTITION_ID( 1 ),
|
MPTEST.PARTITION_ID( 1 ),
|
||||||
BUFFER,
|
BUFFER,
|
||||||
STATUS
|
STATUS
|
||||||
@@ -668,7 +671,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
@@ -692,7 +695,7 @@ package body MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure SEMAPHORE_TASK (
|
procedure SEMAPHORE_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
COUNT : RTEMS.UNSIGNED32;
|
COUNT : RTEMS.UNSIGNED32;
|
||||||
YIELD_COUNT : RTEMS.UNSIGNED32;
|
YIELD_COUNT : RTEMS.UNSIGNED32;
|
||||||
@@ -703,7 +706,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_IDENT(
|
RTEMS.SEMAPHORE.IDENT(
|
||||||
MPTEST.SEMAPHORE_NAME( 1 ),
|
MPTEST.SEMAPHORE_NAME( 1 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
@@ -726,7 +729,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
exit when MPTEST.STOP_TEST = TRUE;
|
exit when MPTEST.STOP_TEST = TRUE;
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_OBTAIN(
|
RTEMS.SEMAPHORE.OBTAIN(
|
||||||
MPTEST.SEMAPHORE_ID( 1 ),
|
MPTEST.SEMAPHORE_ID( 1 ),
|
||||||
RTEMS.DEFAULT_OPTIONS,
|
RTEMS.DEFAULT_OPTIONS,
|
||||||
RTEMS.NO_TIMEOUT,
|
RTEMS.NO_TIMEOUT,
|
||||||
@@ -734,7 +737,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_OBTAIN" );
|
||||||
|
|
||||||
RTEMS.SEMAPHORE_RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
RTEMS.SEMAPHORE.RELEASE( MPTEST.SEMAPHORE_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "SEMAPHORE_RELEASE" );
|
||||||
|
|
||||||
if TEST_SUPPORT.NODE = 1 then
|
if TEST_SUPPORT.NODE = 1 then
|
||||||
@@ -743,7 +746,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
if YIELD_COUNT = 0 then
|
if YIELD_COUNT = 0 then
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "YIELD" );
|
||||||
|
|
||||||
YIELD_COUNT := 100;
|
YIELD_COUNT := 100;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -175,7 +176,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -188,7 +189,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TEST_TASK (
|
procedure TEST_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TEST_TASK);
|
pragma Convention (C, TEST_TASK);
|
||||||
|
|
||||||
@@ -201,7 +202,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure DELAYED_EVENTS_TASK (
|
procedure DELAYED_EVENTS_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, DELAYED_EVENTS_TASK);
|
pragma Convention (C, DELAYED_EVENTS_TASK);
|
||||||
|
|
||||||
@@ -214,7 +215,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure MESSAGE_QUEUE_TASK (
|
procedure MESSAGE_QUEUE_TASK (
|
||||||
INDEX : in RTEMS.TASK_ARGUMENT
|
INDEX : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, MESSAGE_QUEUE_TASK);
|
pragma Convention (C, MESSAGE_QUEUE_TASK);
|
||||||
|
|
||||||
@@ -227,7 +228,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure PARTITION_TASK (
|
procedure PARTITION_TASK (
|
||||||
IGNORED : in RTEMS.TASK_ARGUMENT
|
IGNORED : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, PARTITION_TASK);
|
pragma Convention (C, PARTITION_TASK);
|
||||||
|
|
||||||
@@ -240,7 +241,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure SEMAPHORE_TASK (
|
procedure SEMAPHORE_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, SEMAPHORE_TASK);
|
pragma Convention (C, SEMAPHORE_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP14_NODE1 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with MPTEST;
|
with MPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure MP14_NODE2 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
MPTEST.INIT'ACCESS,
|
MPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -22,19 +22,20 @@
|
|||||||
|
|
||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.INTERRUPT;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
|
||||||
package body MPTEST is
|
package body MPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -46,7 +47,7 @@ package body MPTEST is
|
|||||||
|
|
||||||
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
MPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
MPTEST.TASK_NAME( 1 ),
|
MPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -57,7 +58,7 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
MPTEST.TASK_ID( 1 ),
|
MPTEST.TASK_ID( 1 ),
|
||||||
MPTEST.APPLICATION_TASK'ACCESS,
|
MPTEST.APPLICATION_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -65,24 +66,23 @@ package body MPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- APPLICATION_TASK
|
-- APPLICATION_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
procedure APPLICATION_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
TEXT_IO.PUT( "This task was invoked with node argument (" );
|
TEXT_IO.PUT( "This task was invoked with node argument (" );
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package MPTEST is
|
package MPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -56,7 +57,7 @@ package MPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
procedure APPLICATION_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, APPLICATION_TASK);
|
pragma Convention (C, APPLICATION_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -29,7 +30,7 @@ procedure Base_SP is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -41,7 +42,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -26,13 +26,12 @@ with UNSIGNED32_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -44,7 +43,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -55,7 +54,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.APPLICATION_TASK'ACCESS,
|
SPTEST.APPLICATION_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -63,24 +62,23 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- APPLICATION_TASK
|
-- APPLICATION_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
procedure APPLICATION_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
|
|
||||||
TEXT_IO.PUT( "Application task was invoked with argument (" );
|
TEXT_IO.PUT( "Application task was invoked with argument (" );
|
||||||
UNSIGNED32_IO.PUT( ARGUMENT );
|
UNSIGNED32_IO.PUT( ARGUMENT );
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure APPLICATION_TASK (
|
procedure APPLICATION_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, APPLICATION_TASK);
|
pragma Convention (C, APPLICATION_TASK);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure Hello is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -24,13 +24,12 @@ with TEXT_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
begin
|
begin
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure Nsecs is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -39,7 +40,7 @@ begin
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,6 +23,7 @@
|
|||||||
with Ada.Integer_Text_IO;
|
with Ada.Integer_Text_IO;
|
||||||
with Interfaces.C;
|
with Interfaces.C;
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.Clock;
|
||||||
with Text_IO;
|
with Text_IO;
|
||||||
use type Interfaces.C.Long;
|
use type Interfaces.C.Long;
|
||||||
use type RTEMS.Time_T;
|
use type RTEMS.Time_T;
|
||||||
@@ -54,13 +55,12 @@ package body SPTEST is
|
|||||||
end Subtract_Em;
|
end Subtract_Em;
|
||||||
|
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
Status : RTEMS.Status_Codes;
|
Status : RTEMS.Status_Codes;
|
||||||
@@ -88,8 +88,8 @@ package body SPTEST is
|
|||||||
|
|
||||||
for Index in 1 .. 10 loop
|
for Index in 1 .. 10 loop
|
||||||
|
|
||||||
RTEMS.Clock_Get_Uptime( Start, Status );
|
RTEMS.Clock.Get_Uptime( Start, Status );
|
||||||
RTEMS.Clock_Get_Uptime( Stop, Status );
|
RTEMS.Clock.Get_Uptime( Stop, Status );
|
||||||
|
|
||||||
Subtract_Em( Start, Stop, Diff );
|
Subtract_Em( Start, Stop, Diff );
|
||||||
|
|
||||||
@@ -118,11 +118,11 @@ package body SPTEST is
|
|||||||
|
|
||||||
for Index in 1 .. 10 loop
|
for Index in 1 .. 10 loop
|
||||||
Max := (Index * 10000);
|
Max := (Index * 10000);
|
||||||
RTEMS.Clock_Get_Uptime( Start, Status );
|
RTEMS.Clock.Get_Uptime( Start, Status );
|
||||||
for j in 1 .. Max loop
|
for j in 1 .. Max loop
|
||||||
Simple_Procedure;
|
Simple_Procedure;
|
||||||
end loop;
|
end loop;
|
||||||
RTEMS.Clock_Get_Uptime( Stop, Status );
|
RTEMS.Clock.Get_Uptime( Stop, Status );
|
||||||
|
|
||||||
Subtract_Em( Start, Stop, Diff );
|
Subtract_Em( Start, Stop, Diff );
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -33,7 +34,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,16 +23,16 @@
|
|||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
|
with RTEMS.CLOCK;
|
||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -44,14 +44,14 @@ package body SPTEST is
|
|||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
RTEMS.CLOCK.SET( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
||||||
|
|
||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
||||||
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -62,7 +62,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -73,7 +73,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -84,7 +84,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -92,7 +92,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -100,7 +100,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -108,18 +108,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1_THROUGH_3
|
-- TASK_1_THROUGH_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1_THROUGH_3 (
|
procedure TASK_1_THROUGH_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
@@ -127,12 +126,12 @@ package body SPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
if TIME.SECOND >= 35 then
|
if TIME.SECOND >= 35 then
|
||||||
@@ -148,7 +147,7 @@ package body SPTEST is
|
|||||||
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1_THROUGH_3 (
|
procedure TASK_1_THROUGH_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1_THROUGH_3);
|
pragma Convention (C, TASK_1_THROUGH_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure Ticker is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP01 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,16 +23,16 @@
|
|||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
|
with RTEMS.CLOCK;
|
||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -44,14 +44,14 @@ package body SPTEST is
|
|||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
TIME := ( 1988, 12, 31, 9, 0, 0, 0 );
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
RTEMS.CLOCK.SET( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
||||||
|
|
||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
||||||
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -62,7 +62,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -73,7 +73,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -84,7 +84,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -92,7 +92,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -100,7 +100,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
SPTEST.TASK_1_THROUGH_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -108,18 +108,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1_THROUGH_3
|
-- TASK_1_THROUGH_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1_THROUGH_3 (
|
procedure TASK_1_THROUGH_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TID : RTEMS.ID;
|
TID : RTEMS.ID;
|
||||||
@@ -127,12 +126,12 @@ package body SPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
RTEMS.TASKS.IDENT( RTEMS.SELF, RTEMS.SEARCH_ALL_NODES, TID, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF SELF" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
if TIME.SECOND >= 35 then
|
if TIME.SECOND >= 35 then
|
||||||
@@ -148,7 +147,7 @@ package body SPTEST is
|
|||||||
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
TEST_SUPPORT.PRINT_TIME( "- clock_get - ", TIME, "" );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER(
|
RTEMS.TASKS.WAKE_AFTER(
|
||||||
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
TEST_SUPPORT.TASK_NUMBER( TID ) * 5 *
|
||||||
TEST_SUPPORT.TICKS_PER_SECOND,
|
TEST_SUPPORT.TICKS_PER_SECOND,
|
||||||
STATUS
|
STATUS
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1_THROUGH_3 (
|
procedure TASK_1_THROUGH_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1_THROUGH_3);
|
pragma Convention (C, TASK_1_THROUGH_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP02 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -27,13 +27,12 @@ with UNSIGNED32_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -44,7 +43,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
SPTEST.PREEMPT_TASK_NAME := RTEMS.BUILD_NAME( 'P', 'R', 'M', 'T' );
|
SPTEST.PREEMPT_TASK_NAME := RTEMS.BUILD_NAME( 'P', 'R', 'M', 'T' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.PREEMPT_TASK_NAME,
|
SPTEST.PREEMPT_TASK_NAME,
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -55,7 +54,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF PREEMPT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF PREEMPT" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.PREEMPT_TASK_ID,
|
SPTEST.PREEMPT_TASK_ID,
|
||||||
SPTEST.PREEMPT_TASK'ACCESS,
|
SPTEST.PREEMPT_TASK'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -64,14 +63,14 @@ package body SPTEST is
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF PREEMPT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF PREEMPT" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "INIT - task_wake_after - yielding processor" );
|
TEXT_IO.PUT_LINE( "INIT - task_wake_after - yielding processor" );
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
||||||
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
3,
|
3,
|
||||||
2048,
|
2048,
|
||||||
@@ -82,7 +81,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
3,
|
3,
|
||||||
2048,
|
2048,
|
||||||
@@ -93,7 +92,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
3,
|
3,
|
||||||
2048,
|
2048,
|
||||||
@@ -104,7 +103,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -112,7 +111,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -120,7 +119,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -132,19 +131,19 @@ package body SPTEST is
|
|||||||
"INIT - suspending TA2 while middle task on a ready chain"
|
"INIT - suspending TA2 while middle task on a ready chain"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 1 ), STATUS );
|
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 3 ), STATUS );
|
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 3 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -155,7 +154,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
3,
|
3,
|
||||||
2048,
|
2048,
|
||||||
@@ -166,7 +165,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
3,
|
3,
|
||||||
2048,
|
2048,
|
||||||
@@ -177,7 +176,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -185,7 +184,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -193,7 +192,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -201,49 +200,47 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- PREEMPT_TASK
|
-- PREEMPT_TASK
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure PREEMPT_TASK (
|
procedure PREEMPT_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "PREEMPT - task_delete - deleting self" );
|
TEXT_IO.PUT_LINE( "PREEMPT - task_delete - deleting self" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF PREEMPT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF PREEMPT" );
|
||||||
|
|
||||||
end PREEMPT_TASK;
|
end PREEMPT_TASK;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TID2 : RTEMS.ID;
|
TID2 : RTEMS.ID;
|
||||||
TID3 : RTEMS.ID;
|
TID3 : RTEMS.ID;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 1 second" );
|
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 1 second" );
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
TID2,
|
TID2,
|
||||||
@@ -255,7 +252,7 @@ package body SPTEST is
|
|||||||
UNSIGNED32_IO.PUT( TID2, WIDTH => 8, BASE => 10#16# );
|
UNSIGNED32_IO.PUT( TID2, WIDTH => 8, BASE => 10#16# );
|
||||||
TEXT_IO.PUT_LINE( ")" );
|
TEXT_IO.PUT_LINE( ")" );
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
RTEMS.SEARCH_ALL_NODES,
|
RTEMS.SEARCH_ALL_NODES,
|
||||||
TID3,
|
TID3,
|
||||||
@@ -267,7 +264,7 @@ package body SPTEST is
|
|||||||
UNSIGNED32_IO.PUT( TID3, WIDTH => 8, BASE => 10#16# );
|
UNSIGNED32_IO.PUT( TID3, WIDTH => 8, BASE => 10#16# );
|
||||||
TEXT_IO.PUT_LINE( ")" );
|
TEXT_IO.PUT_LINE( ")" );
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY( TID3, 2, PREVIOUS_PRIORITY, STATUS );
|
RTEMS.TASKS.SET_PRIORITY( TID3, 2, PREVIOUS_PRIORITY, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE(
|
TEXT_IO.PUT_LINE(
|
||||||
@@ -275,15 +272,15 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
||||||
RTEMS.TASK_SUSPEND( TID2, STATUS );
|
RTEMS.TASKS.SUSPEND( TID2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_delete - delete TA2" );
|
||||||
RTEMS.TASK_DELETE( TID2, STATUS );
|
RTEMS.TASKS.DELETE( TID2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep for 5 seconds" );
|
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep for 5 seconds" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
|
TEXT_IO.PUT_LINE( "*** END OF TEST 2 ***" );
|
||||||
@@ -291,42 +288,40 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 minute" );
|
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 minute" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 60 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 60 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA2" );
|
||||||
|
|
||||||
end TASK_2;
|
end TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_3
|
-- TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 5 seconds" );
|
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 5 seconds" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER IN TA3" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA3 - task_delete - delete self" );
|
TEXT_IO.PUT_LINE( "TA3 - task_delete - delete self" );
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
||||||
|
|
||||||
end TASK_3;
|
end TASK_3;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -44,7 +45,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -57,7 +58,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure PREEMPT_TASK (
|
procedure PREEMPT_TASK (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, PREEMPT_TASK);
|
pragma Convention (C, PREEMPT_TASK);
|
||||||
|
|
||||||
@@ -70,7 +71,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -83,7 +84,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -96,7 +97,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP03 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,16 +23,16 @@
|
|||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
|
with RTEMS.CLOCK;
|
||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -44,7 +44,7 @@ package body SPTEST is
|
|||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -55,7 +55,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -66,7 +66,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -74,7 +74,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -82,18 +82,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -102,7 +101,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
|
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
RTEMS.CLOCK.SET( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
||||||
@@ -111,7 +110,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
||||||
@@ -125,7 +124,7 @@ package body SPTEST is
|
|||||||
TIME.MINUTE := TIME.MINUTE mod 60;
|
TIME.MINUTE := TIME.MINUTE mod 60;
|
||||||
TIME.HOUR := TIME.HOUR mod 24;
|
TIME.HOUR := TIME.HOUR mod 24;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_WHEN( TIME, STATUS );
|
RTEMS.TASKS.WAKE_WHEN( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_WHEN" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_WHEN" );
|
||||||
|
|
||||||
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
TEST_SUPPORT.PUT_NAME( SPTEST.TASK_NAME( 1 ), FALSE );
|
||||||
@@ -136,13 +135,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -151,10 +149,10 @@ package body SPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
if TIME.SECOND >= 17 then
|
if TIME.SECOND >= 17 then
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -55,7 +56,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -69,7 +70,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP04 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -23,6 +23,9 @@
|
|||||||
with INTERFACES; use INTERFACES;
|
with INTERFACES; use INTERFACES;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
|
with RTEMS.CLOCK;
|
||||||
|
with RTEMS.EXTENSION;
|
||||||
|
with RTEMS.FATAL;
|
||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
@@ -43,7 +46,7 @@ package body SPTEST is
|
|||||||
) is
|
) is
|
||||||
begin
|
begin
|
||||||
if Task_Events_Index = Task_Events'Last then
|
if Task_Events_Index = Task_Events'Last then
|
||||||
RTEMS.Fatal_Error_Occurred ( 1 ); -- no other choice
|
RTEMS.Fatal.Error_Occurred ( 1 ); -- no other choice
|
||||||
else
|
else
|
||||||
Task_Events (Task_Events_Index).Task_Index := Task_Index;
|
Task_Events (Task_Events_Index).Task_Index := Task_Index;
|
||||||
Task_Events (Task_Events_Index).When_Switched := When_Switched;
|
Task_Events (Task_Events_Index).When_Switched := When_Switched;
|
||||||
@@ -65,13 +68,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end Flush_Task_Event_Log;
|
end Flush_Task_Event_Log;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TIME : RTEMS.TIME_OF_DAY;
|
TIME : RTEMS.TIME_OF_DAY;
|
||||||
@@ -83,12 +85,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
|
TIME := ( 1988, 12, 31, 9, 15, 0, 0 );
|
||||||
|
|
||||||
RTEMS.CLOCK_SET( TIME, STATUS );
|
RTEMS.CLOCK.SET( TIME, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_SET" );
|
||||||
|
|
||||||
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
|
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
|
||||||
|
|
||||||
RTEMS.EXTENSION_CREATE(
|
RTEMS.EXTENSION.CREATE(
|
||||||
SPTEST.EXTENSION_NAME( 1 ),
|
SPTEST.EXTENSION_NAME( 1 ),
|
||||||
SPTEST.EXTENSIONS'ACCESS,
|
SPTEST.EXTENSIONS'ACCESS,
|
||||||
EXTENSION_ID( 1 ),
|
EXTENSION_ID( 1 ),
|
||||||
@@ -104,7 +106,7 @@ package body SPTEST is
|
|||||||
SPTEST.RUN_COUNT( 2 ) := 0;
|
SPTEST.RUN_COUNT( 2 ) := 0;
|
||||||
SPTEST.RUN_COUNT( 3 ) := 0;
|
SPTEST.RUN_COUNT( 3 ) := 0;
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -115,7 +117,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -126,7 +128,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -137,7 +139,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -145,7 +147,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -153,7 +155,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -161,18 +163,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
SECONDS : RTEMS.UNSIGNED32;
|
SECONDS : RTEMS.UNSIGNED32;
|
||||||
@@ -185,25 +186,25 @@ package body SPTEST is
|
|||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 2" );
|
||||||
RTEMS.TASK_SUSPEND( TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.SUSPEND( TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 3" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - on Task 3" );
|
||||||
RTEMS.TASK_SUSPEND( TASK_ID( 3 ), STATUS );
|
RTEMS.TASKS.SUSPEND( TASK_ID( 3 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - killing time" );
|
TEXT_IO.PUT_LINE( "TA1 - killing time" );
|
||||||
|
|
||||||
RTEMS.CLOCK_GET(
|
RTEMS.CLOCK.GET(
|
||||||
RTEMS.CLOCK_GET_SECONDS_SINCE_EPOCH,
|
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
|
||||||
START_TIME'ADDRESS,
|
START_TIME'ADDRESS,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
RTEMS.CLOCK_GET(
|
RTEMS.CLOCK.GET(
|
||||||
RTEMS.CLOCK_GET_SECONDS_SINCE_EPOCH,
|
RTEMS.CLOCK.GET_SECONDS_SINCE_EPOCH,
|
||||||
END_TIME'ADDRESS,
|
END_TIME'ADDRESS,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -213,11 +214,11 @@ package body SPTEST is
|
|||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 2" );
|
||||||
RTEMS.TASK_RESUME( TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.RESUME( TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 3" );
|
TEXT_IO.PUT_LINE( "TA1 - task_resume - on Task 3" );
|
||||||
RTEMS.TASK_RESUME( TASK_ID( 3 ), STATUS );
|
RTEMS.TASKS.RESUME( TASK_ID( 3 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
@@ -227,7 +228,7 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT_LINE(
|
TEXT_IO.PUT_LINE(
|
||||||
"TA1 - task_mode - change mode to NO PREEMPT"
|
"TA1 - task_mode - change mode to NO PREEMPT"
|
||||||
);
|
);
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_PREEMPT,
|
RTEMS.NO_PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -235,7 +236,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_MODE" );
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
OLD_SECONDS := TIME.SECOND;
|
OLD_SECONDS := TIME.SECOND;
|
||||||
@@ -245,7 +246,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
exit when SECONDS >= 6;
|
exit when SECONDS >= 6;
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
if TIME.SECOND /= OLD_SECONDS then
|
if TIME.SECOND /= OLD_SECONDS then
|
||||||
@@ -261,7 +262,7 @@ package body SPTEST is
|
|||||||
"TA1 - task_mode - change mode to PREEMPT"
|
"TA1 - task_mode - change mode to PREEMPT"
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.PREEMPT,
|
RTEMS.PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -282,13 +283,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
begin
|
begin
|
||||||
@@ -299,13 +299,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_2;
|
end TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_3
|
-- TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
begin
|
begin
|
||||||
@@ -316,7 +315,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_3;
|
end TASK_3;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_SWITCH
|
-- TASK_SWITCH
|
||||||
--
|
--
|
||||||
@@ -342,7 +340,7 @@ package body SPTEST is
|
|||||||
when 1 | 2 | 3 =>
|
when 1 | 2 | 3 =>
|
||||||
SPTEST.RUN_COUNT( INDEX ) := SPTEST.RUN_COUNT( INDEX ) + 1;
|
SPTEST.RUN_COUNT( INDEX ) := SPTEST.RUN_COUNT( INDEX ) + 1;
|
||||||
|
|
||||||
RTEMS.CLOCK_GET( RTEMS.CLOCK_GET_TOD, TIME'ADDRESS, STATUS );
|
RTEMS.CLOCK.GET( RTEMS.CLOCK.GET_TOD, TIME'ADDRESS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "CLOCK_GET" );
|
||||||
|
|
||||||
Log_Task_Event ( INDEX, TIME );
|
Log_Task_Event ( INDEX, TIME );
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -56,7 +57,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -69,7 +70,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -83,7 +84,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -97,7 +98,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP05 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -26,13 +26,12 @@ with TEXT_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -45,7 +44,7 @@ package body SPTEST is
|
|||||||
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
SPTEST.TASK_NAME( 2 ) := RTEMS.BUILD_NAME( 'T', 'A', '2', ' ' );
|
||||||
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -56,7 +55,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -67,7 +66,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -78,7 +77,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -86,7 +85,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -94,7 +93,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -102,18 +101,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
TID2 : RTEMS.ID;
|
TID2 : RTEMS.ID;
|
||||||
@@ -121,7 +119,7 @@ package body SPTEST is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
TID2,
|
TID2,
|
||||||
@@ -129,7 +127,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_IDENT OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_IDENT(
|
RTEMS.TASKS.IDENT(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
1,
|
1,
|
||||||
TID3,
|
TID3,
|
||||||
@@ -141,11 +139,11 @@ package body SPTEST is
|
|||||||
loop
|
loop
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
|
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA1" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA3" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA3" );
|
||||||
RTEMS.TASK_SUSPEND( TID3, STATUS );
|
RTEMS.TASKS.SUSPEND( TID3, STATUS );
|
||||||
if PASS = 1 then
|
if PASS = 1 then
|
||||||
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
|
||||||
STATUS,
|
STATUS,
|
||||||
@@ -157,19 +155,19 @@ package body SPTEST is
|
|||||||
end if;
|
end if;
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA2" );
|
||||||
RTEMS.TASK_RESUME( TID2, STATUS );
|
RTEMS.TASKS.RESUME( TID2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
|
TEXT_IO.PUT_LINE( "TA1 - task_wake_after - sleep 5 seconds" );
|
||||||
RTEMS.TASK_WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 5 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
||||||
RTEMS.TASK_SUSPEND( TID2, STATUS );
|
RTEMS.TASKS.SUSPEND( TID2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA3" );
|
TEXT_IO.PUT_LINE( "TA1 - task_resume - resume TA3" );
|
||||||
RTEMS.TASK_RESUME( TID3, STATUS );
|
RTEMS.TASKS.RESUME( TID3, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESUME OF TA3" );
|
||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
@@ -179,49 +177,47 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend self" );
|
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend self" );
|
||||||
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA2" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 second" );
|
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1 second" );
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA2" );
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
end TASK_2;
|
end TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_3
|
-- TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA3 - task_suspend - suspend self" );
|
TEXT_IO.PUT_LINE( "TA3 - task_suspend - suspend self" );
|
||||||
RTEMS.TASK_SUSPEND( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.SUSPEND( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND OF TA3" );
|
||||||
|
|
||||||
loop
|
loop
|
||||||
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 1 second" );
|
TEXT_IO.PUT_LINE( "TA3 - task_wake_after - sleep 1 second" );
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER OF TA3" );
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -54,7 +55,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -67,7 +68,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -80,7 +81,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP06 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -26,17 +26,16 @@ with TEXT_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEXT_IO.NEW_LINE( 2 );
|
TEXT_IO.NEW_LINE( 2 );
|
||||||
@@ -49,7 +48,7 @@ package body SPTEST is
|
|||||||
SPTEST.ARGUMENT := 0;
|
SPTEST.ARGUMENT := 0;
|
||||||
SPTEST.RESTART_ARGUMENT := 1;
|
SPTEST.RESTART_ARGUMENT := 1;
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -60,7 +59,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -71,7 +70,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
10,
|
10,
|
||||||
2048,
|
2048,
|
||||||
@@ -82,7 +81,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -90,7 +89,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
SPTEST.ARGUMENT,
|
SPTEST.ARGUMENT,
|
||||||
@@ -98,7 +97,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
SPTEST.ARGUMENT,
|
SPTEST.ARGUMENT,
|
||||||
@@ -106,7 +105,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
5,
|
5,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -114,18 +113,17 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
PASS : RTEMS.UNSIGNED32;
|
PASS : RTEMS.UNSIGNED32;
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -142,45 +140,44 @@ package body SPTEST is
|
|||||||
|
|
||||||
if PASS = 1 then
|
if PASS = 1 then
|
||||||
TEXT_IO.PUT_LINE( "TA1 - restarting TA3" );
|
TEXT_IO.PUT_LINE( "TA1 - restarting TA3" );
|
||||||
RTEMS.TASK_RESTART(
|
RTEMS.TASKS.RESTART(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.RESTART_ARGUMENT,
|
SPTEST.RESTART_ARGUMENT,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting TA2" );
|
||||||
RTEMS.TASK_RESTART(
|
RTEMS.TASKS.RESTART(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.RESTART_ARGUMENT,
|
SPTEST.RESTART_ARGUMENT,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting self" );
|
TEXT_IO.PUT_LINE( "TA1 - task_restart - restarting self" );
|
||||||
RTEMS.TASK_RESTART( SPTEST.TASK_ID( 1 ), PASS, STATUS );
|
RTEMS.TASKS.RESTART( SPTEST.TASK_ID( 1 ), PASS, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF SELF" );
|
||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
@@ -188,33 +185,32 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT_LINE( "TA2 - is beginning to run" );
|
TEXT_IO.PUT_LINE( "TA2 - is beginning to run" );
|
||||||
|
|
||||||
if ARGUMENT = SPTEST.ARGUMENT then
|
if ARGUMENT = SPTEST.ARGUMENT then
|
||||||
RTEMS.TASK_WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( 2 * TEST_SUPPORT.TICKS_PER_SECOND, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
end if;
|
end if;
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1/2 second" );
|
TEXT_IO.PUT_LINE( "TA2 - task_wake_after - sleep 1/2 second" );
|
||||||
RTEMS.TASK_WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( TEST_SUPPORT.TICKS_PER_SECOND / 2, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
end TASK_2;
|
end TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_3
|
-- TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end TASK_3;
|
end TASK_3;
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -48,7 +49,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -61,7 +62,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -74,7 +75,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -87,7 +88,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP07 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -24,6 +24,8 @@ with INTERFACES; use INTERFACES;
|
|||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
with TEXT_IO;
|
with TEXT_IO;
|
||||||
with UNSIGNED32_IO;
|
with UNSIGNED32_IO;
|
||||||
|
with RTEMS.EXTENSION;
|
||||||
|
with RTEMS.FATAL;
|
||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
@@ -50,7 +52,7 @@ package body SPTEST is
|
|||||||
) is
|
) is
|
||||||
begin
|
begin
|
||||||
if Task_Events_Index = Task_Events'Last then
|
if Task_Events_Index = Task_Events'Last then
|
||||||
RTEMS.Fatal_Error_Occurred ( 1 ); -- no other choice
|
RTEMS.Fatal.Error_Occurred ( 1 ); -- no other choice
|
||||||
else
|
else
|
||||||
Task_Events (Task_Events_Index).The_Event := The_Event;
|
Task_Events (Task_Events_Index).The_Event := The_Event;
|
||||||
Task_Events (Task_Events_Index).Task1 := Task1;
|
Task_Events (Task_Events_Index).Task1 := Task1;
|
||||||
@@ -110,7 +112,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end Flush_Task_Event_Log;
|
end Flush_Task_Event_Log;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TCB_To_ID
|
-- TCB_To_ID
|
||||||
--
|
--
|
||||||
@@ -120,13 +121,12 @@ package body SPTEST is
|
|||||||
) return RTEMS.ID;
|
) return RTEMS.ID;
|
||||||
pragma Import (C, TCB_To_ID, "tcb_to_id" );
|
pragma Import (C, TCB_To_ID, "tcb_to_id" );
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -137,7 +137,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
|
SPTEST.EXTENSION_NAME( 1 ) := RTEMS.BUILD_NAME( 'E', 'X', 'T', ' ' );
|
||||||
|
|
||||||
RTEMS.EXTENSION_CREATE(
|
RTEMS.EXTENSION.CREATE(
|
||||||
SPTEST.EXTENSION_NAME( 1 ),
|
SPTEST.EXTENSION_NAME( 1 ),
|
||||||
SPTEST.EXTENSIONS'ACCESS,
|
SPTEST.EXTENSIONS'ACCESS,
|
||||||
EXTENSION_ID( 1 ),
|
EXTENSION_ID( 1 ),
|
||||||
@@ -150,7 +150,7 @@ package body SPTEST is
|
|||||||
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
SPTEST.TASK_NAME( 3 ) := RTEMS.BUILD_NAME( 'T', 'A', '3', ' ' );
|
||||||
SPTEST.TASK_NAME( 4 ) := RTEMS.BUILD_NAME( 'T', 'A', '4', ' ' );
|
SPTEST.TASK_NAME( 4 ) := RTEMS.BUILD_NAME( 'T', 'A', '4', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
4,
|
4,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -161,7 +161,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 2 ),
|
SPTEST.TASK_NAME( 2 ),
|
||||||
4,
|
4,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -172,7 +172,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 3 ),
|
SPTEST.TASK_NAME( 3 ),
|
||||||
250,
|
250,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -183,7 +183,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 4 ),
|
SPTEST.TASK_NAME( 4 ),
|
||||||
254,
|
254,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -194,7 +194,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA4" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -202,7 +202,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
SPTEST.TASK_2'ACCESS,
|
SPTEST.TASK_2'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -210,7 +210,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
SPTEST.TASK_3'ACCESS,
|
SPTEST.TASK_3'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -218,7 +218,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 4 ),
|
SPTEST.TASK_ID( 4 ),
|
||||||
SPTEST.TASK_4'ACCESS,
|
SPTEST.TASK_4'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -226,45 +226,44 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA4" );
|
||||||
|
|
||||||
RTEMS.TASK_RESTART( SPTEST.TASK_ID( 3 ), 0, STATUS );
|
RTEMS.TASKS.RESTART( SPTEST.TASK_ID( 3 ), 0, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_RESTART OF TA3" );
|
||||||
|
|
||||||
Flush_Task_Event_Log;
|
Flush_Task_Event_Log;
|
||||||
|
|
||||||
RTEMS.TASK_SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
|
RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 1 ), 8, 4, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA1" );
|
||||||
TEXT_IO.PUT( "INIT - task_set_note - set TA1's NOTEPAD_8" );
|
TEXT_IO.PUT( "INIT - task_set_note - set TA1's NOTEPAD_8" );
|
||||||
TEXT_IO.PUT_LINE( " to TA1's initial priority: 4" );
|
TEXT_IO.PUT_LINE( " to TA1's initial priority: 4" );
|
||||||
|
|
||||||
RTEMS.TASK_SET_NOTE( SPTEST.TASK_ID( 2 ), 8, 4, STATUS );
|
RTEMS.TASKS.SET_NOTE( SPTEST.TASK_ID( 2 ), 8, 4, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_NOTE OF TA2" );
|
||||||
TEXT_IO.PUT( "INIT - task_set_note - set TA2's NOTEPAD_8" );
|
TEXT_IO.PUT( "INIT - task_set_note - set TA2's NOTEPAD_8" );
|
||||||
TEXT_IO.PUT_LINE( " to TA2's initial priority: 4" );
|
TEXT_IO.PUT_LINE( " to TA2's initial priority: 4" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
THE_PRIORITY : RTEMS.TASK_PRIORITY;
|
THE_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
TEST_SUPPORT.PAUSE;
|
TEST_SUPPORT.PAUSE;
|
||||||
|
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
RTEMS.SELF,
|
RTEMS.SELF,
|
||||||
RTEMS.CURRENT_PRIORITY,
|
RTEMS.TASKS.CURRENT_PRIORITY,
|
||||||
THE_PRIORITY,
|
THE_PRIORITY,
|
||||||
STATUS
|
STATUS
|
||||||
);
|
);
|
||||||
@@ -276,7 +275,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
|
RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
|
||||||
TEXT_IO.PUT( "TA1 - task_get_note - ");
|
TEXT_IO.PUT( "TA1 - task_get_note - ");
|
||||||
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
|
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
|
||||||
@@ -287,12 +286,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
if THE_PRIORITY = 0 then
|
if THE_PRIORITY = 0 then
|
||||||
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
TEXT_IO.PUT_LINE( "TA1 - task_suspend - suspend TA2" );
|
||||||
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
||||||
|
|
||||||
TEXT_IO.PUT( "TA1 - task_set_priority - ");
|
TEXT_IO.PUT( "TA1 - task_set_priority - ");
|
||||||
TEXT_IO.PUT_LINE( "set priority of TA2 ( blocked )");
|
TEXT_IO.PUT_LINE( "set priority of TA2 ( blocked )");
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
5,
|
5,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -300,10 +299,10 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( SPTEST.TASK_ID( 2 ), STATUS );
|
RTEMS.TASKS.DELETE( SPTEST.TASK_ID( 2 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA2" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end if;
|
end if;
|
||||||
@@ -311,7 +310,7 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT( "TA1 - task_set_note - set TA2's NOTEPAD_8: " );
|
TEXT_IO.PUT( "TA1 - task_set_note - set TA2's NOTEPAD_8: " );
|
||||||
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
RTEMS.TASK_SET_NOTE(
|
RTEMS.TASKS.SET_NOTE(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
8,
|
8,
|
||||||
THE_PRIORITY,
|
THE_PRIORITY,
|
||||||
@@ -322,7 +321,7 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT("TA1 - task_set_priority - set TA2's priority: ");
|
TEXT_IO.PUT("TA1 - task_set_priority - set TA2's priority: ");
|
||||||
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
SPTEST.TASK_ID( 2 ),
|
SPTEST.TASK_ID( 2 ),
|
||||||
THE_PRIORITY,
|
THE_PRIORITY,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -334,23 +333,22 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_1;
|
end TASK_1;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_2
|
-- TASK_2
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
THE_PRIORITY : RTEMS.TASK_PRIORITY;
|
THE_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY;
|
PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
|
RTEMS.TASKS.GET_NOTE( RTEMS.SELF, 8, THE_PRIORITY, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_GET_NOTE" );
|
||||||
TEXT_IO.PUT( "TA2 - task_get_note - ");
|
TEXT_IO.PUT( "TA2 - task_get_note - ");
|
||||||
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
|
TEXT_IO.PUT( "get NOTEPAD_8 - current priority: " );
|
||||||
@@ -361,12 +359,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
if THE_PRIORITY = 0 then
|
if THE_PRIORITY = 0 then
|
||||||
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend TA1" );
|
TEXT_IO.PUT_LINE( "TA2 - task_suspend - suspend TA1" );
|
||||||
RTEMS.TASK_SUSPEND( SPTEST.TASK_ID( 1 ), STATUS );
|
RTEMS.TASKS.SUSPEND( SPTEST.TASK_ID( 1 ), STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SUSPEND" );
|
||||||
|
|
||||||
TEXT_IO.PUT( "TA2 - task_set_priority - ");
|
TEXT_IO.PUT( "TA2 - task_set_priority - ");
|
||||||
TEXT_IO.PUT_LINE( "set priority of TA1 ( blocked )");
|
TEXT_IO.PUT_LINE( "set priority of TA1 ( blocked )");
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
5,
|
5,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -374,19 +372,19 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_SET_PRIORITY" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE(
|
RTEMS.TASKS.DELETE(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
STATUS
|
STATUS
|
||||||
); -- TA1 is blocked
|
); -- TA1 is blocked
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE(
|
RTEMS.TASKS.DELETE(
|
||||||
SPTEST.TASK_ID( 3 ),
|
SPTEST.TASK_ID( 3 ),
|
||||||
STATUS
|
STATUS
|
||||||
); -- TA3 is ready
|
); -- TA3 is ready
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF TA3" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
else
|
else
|
||||||
@@ -394,7 +392,7 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT( "TA2 - task_set_note - set TA1's NOTEPAD_8: " );
|
TEXT_IO.PUT( "TA2 - task_set_note - set TA1's NOTEPAD_8: " );
|
||||||
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2 );
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
RTEMS.TASK_SET_NOTE(
|
RTEMS.TASKS.SET_NOTE(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
8,
|
8,
|
||||||
THE_PRIORITY,
|
THE_PRIORITY,
|
||||||
@@ -406,7 +404,7 @@ package body SPTEST is
|
|||||||
TEXT_IO.PUT( "set TA1's priority: ");
|
TEXT_IO.PUT( "set TA1's priority: ");
|
||||||
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2);
|
UNSIGNED32_IO.PUT( THE_PRIORITY, BASE => 10, WIDTH => 2);
|
||||||
TEXT_IO.NEW_LINE;
|
TEXT_IO.NEW_LINE;
|
||||||
RTEMS.TASK_SET_PRIORITY(
|
RTEMS.TASKS.SET_PRIORITY(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
THE_PRIORITY,
|
THE_PRIORITY,
|
||||||
PREVIOUS_PRIORITY,
|
PREVIOUS_PRIORITY,
|
||||||
@@ -420,13 +418,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_2;
|
end TASK_2;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_3
|
-- TASK_3
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -434,20 +431,19 @@ package body SPTEST is
|
|||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
RTEMS.TASK_WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
RTEMS.TASKS.WAKE_AFTER( RTEMS.YIELD_PROCESSOR, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_WAKE_AFTER" );
|
||||||
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
end TASK_3;
|
end TASK_3;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_4
|
-- TASK_4
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_4 (
|
procedure TASK_4 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
begin
|
begin
|
||||||
@@ -458,7 +454,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_4;
|
end TASK_4;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_EXIT_EXTENSION
|
-- TASK_EXIT_EXTENSION
|
||||||
--
|
--
|
||||||
@@ -477,7 +472,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_EXIT_EXTENSION;
|
end TASK_EXIT_EXTENSION;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_CREATE_EXTENSION
|
-- TASK_CREATE_EXTENSION
|
||||||
--
|
--
|
||||||
@@ -501,7 +495,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_CREATE_EXTENSION;
|
end TASK_CREATE_EXTENSION;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_DELETE_EXTENSION
|
-- TASK_DELETE_EXTENSION
|
||||||
--
|
--
|
||||||
@@ -523,7 +516,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_DELETE_EXTENSION;
|
end TASK_DELETE_EXTENSION;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_RESTART_EXTENSION
|
-- TASK_RESTART_EXTENSION
|
||||||
--
|
--
|
||||||
@@ -545,7 +537,6 @@ package body SPTEST is
|
|||||||
|
|
||||||
end TASK_RESTART_EXTENSION;
|
end TASK_RESTART_EXTENSION;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_START_EXTENSION
|
-- TASK_START_EXTENSION
|
||||||
--
|
--
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2007.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -49,7 +50,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -62,7 +63,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -75,7 +76,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -88,7 +89,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
@@ -101,7 +102,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_4 (
|
procedure TASK_4 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_4);
|
pragma Convention (C, TASK_4);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP08 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-2009.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -27,13 +27,12 @@ with UNSIGNED32_IO;
|
|||||||
|
|
||||||
package body SPTEST is
|
package body SPTEST is
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
@@ -44,7 +43,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
SPTEST.TASK_NAME( 1 ) := RTEMS.BUILD_NAME( 'T', 'A', '1', ' ' );
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
SPTEST.TASK_NAME( 1 ),
|
SPTEST.TASK_NAME( 1 ),
|
||||||
1,
|
1,
|
||||||
2048,
|
2048,
|
||||||
@@ -55,7 +54,7 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
SPTEST.TASK_ID( 1 ),
|
SPTEST.TASK_ID( 1 ),
|
||||||
SPTEST.TASK_1'ACCESS,
|
SPTEST.TASK_1'ACCESS,
|
||||||
0,
|
0,
|
||||||
@@ -63,12 +62,11 @@ package body SPTEST is
|
|||||||
);
|
);
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_START OF TA1" );
|
||||||
|
|
||||||
RTEMS.TASK_DELETE( RTEMS.SELF, STATUS );
|
RTEMS.TASKS.DELETE( RTEMS.SELF, STATUS );
|
||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_DELETE OF SELF" );
|
||||||
|
|
||||||
end INIT;
|
end INIT;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- PUT_MODE
|
-- PUT_MODE
|
||||||
--
|
--
|
||||||
@@ -85,13 +83,12 @@ package body SPTEST is
|
|||||||
|
|
||||||
end PUT_MODE;
|
end PUT_MODE;
|
||||||
|
|
||||||
--PAGE
|
|
||||||
--
|
--
|
||||||
-- TASK_1
|
-- TASK_1
|
||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
) is
|
) is
|
||||||
pragma Unreferenced(ARGUMENT);
|
pragma Unreferenced(ARGUMENT);
|
||||||
PREVIOUS_MODE : RTEMS.MODE;
|
PREVIOUS_MODE : RTEMS.MODE;
|
||||||
@@ -100,7 +97,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
-- BEGINNING OF ASR
|
-- BEGINNING OF ASR
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.ASR,
|
RTEMS.ASR,
|
||||||
RTEMS.ASR_MASK,
|
RTEMS.ASR_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -112,7 +109,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_ASR,
|
RTEMS.NO_ASR,
|
||||||
RTEMS.ASR_MASK,
|
RTEMS.ASR_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -124,7 +121,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_ASR,
|
RTEMS.NO_ASR,
|
||||||
RTEMS.ASR_MASK,
|
RTEMS.ASR_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -136,7 +133,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.ASR,
|
RTEMS.ASR,
|
||||||
RTEMS.ASR_MASK,
|
RTEMS.ASR_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -152,7 +149,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
-- BEGINNING OF TIMESLICE
|
-- BEGINNING OF TIMESLICE
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_TIMESLICE,
|
RTEMS.NO_TIMESLICE,
|
||||||
RTEMS.TIMESLICE_MASK,
|
RTEMS.TIMESLICE_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -164,7 +161,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.TIMESLICE,
|
RTEMS.TIMESLICE,
|
||||||
RTEMS.TIMESLICE_MASK,
|
RTEMS.TIMESLICE_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -176,7 +173,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.TIMESLICE,
|
RTEMS.TIMESLICE,
|
||||||
RTEMS.TIMESLICE_MASK,
|
RTEMS.TIMESLICE_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -188,7 +185,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_TIMESLICE,
|
RTEMS.NO_TIMESLICE,
|
||||||
RTEMS.TIMESLICE_MASK,
|
RTEMS.TIMESLICE_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -204,7 +201,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
-- BEGINNING OF PREEMPT
|
-- BEGINNING OF PREEMPT
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.PREEMPT,
|
RTEMS.PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -216,7 +213,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_PREEMPT,
|
RTEMS.NO_PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -228,7 +225,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.NO_PREEMPT,
|
RTEMS.NO_PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -240,7 +237,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.PREEMPT,
|
RTEMS.PREEMPT,
|
||||||
RTEMS.PREEMPT_MASK,
|
RTEMS.PREEMPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -254,9 +251,9 @@ package body SPTEST is
|
|||||||
|
|
||||||
-- END OF PREEMPT
|
-- END OF PREEMPT
|
||||||
|
|
||||||
-- BEGINNING OF INTERRUPT LEVEL
|
-- BEGINNING OF INTERRUPT_LEVEL
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.INTERRUPT_LEVEL( 3 ),
|
RTEMS.INTERRUPT_LEVEL( 3 ),
|
||||||
RTEMS.INTERRUPT_MASK,
|
RTEMS.INTERRUPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -268,7 +265,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.INTERRUPT_LEVEL( 5 ),
|
RTEMS.INTERRUPT_LEVEL( 5 ),
|
||||||
RTEMS.INTERRUPT_MASK,
|
RTEMS.INTERRUPT_MASK,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
@@ -280,11 +277,11 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
-- END OF INTERRUPT LEVEL
|
-- END OF INTERRUPT_LEVEL
|
||||||
|
|
||||||
-- BEGINNING OF COMBINATIONS
|
-- BEGINNING OF COMBINATIONS
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
|
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
|
||||||
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
|
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
|
||||||
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
||||||
@@ -298,7 +295,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
|
RTEMS.INTERRUPT_LEVEL( 3 ) + RTEMS.NO_ASR +
|
||||||
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
|
RTEMS.TIMESLICE + RTEMS.NO_PREEMPT,
|
||||||
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
||||||
@@ -312,7 +309,7 @@ package body SPTEST is
|
|||||||
PREVIOUS_MODE
|
PREVIOUS_MODE
|
||||||
);
|
);
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.INTERRUPT_LEVEL( 0 ) + RTEMS.ASR +
|
RTEMS.INTERRUPT_LEVEL( 0 ) + RTEMS.ASR +
|
||||||
RTEMS.NO_TIMESLICE + RTEMS.PREEMPT,
|
RTEMS.NO_TIMESLICE + RTEMS.PREEMPT,
|
||||||
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
RTEMS.INTERRUPT_MASK + RTEMS.ASR_MASK +
|
||||||
@@ -330,7 +327,7 @@ package body SPTEST is
|
|||||||
|
|
||||||
-- BEGINNING OF CURRENT MODE
|
-- BEGINNING OF CURRENT MODE
|
||||||
|
|
||||||
RTEMS.TASK_MODE(
|
RTEMS.TASKS.MODE(
|
||||||
RTEMS.CURRENT_MODE,
|
RTEMS.CURRENT_MODE,
|
||||||
RTEMS.CURRENT_MODE,
|
RTEMS.CURRENT_MODE,
|
||||||
PREVIOUS_MODE,
|
PREVIOUS_MODE,
|
||||||
|
|||||||
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
|
|
||||||
package SPTEST is
|
package SPTEST is
|
||||||
|
|
||||||
@@ -41,7 +42,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -68,7 +69,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP09 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@@ -10,7 +10,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -21,6 +21,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SYSTEM;
|
with SYSTEM;
|
||||||
with System.Storage_Elements;
|
with System.Storage_Elements;
|
||||||
|
|
||||||
@@ -121,7 +122,7 @@ package SPTEST is
|
|||||||
|
|
||||||
INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
||||||
of RTEMS.UNSIGNED8;
|
of RTEMS.UNSIGNED8;
|
||||||
for INTERNAL_PORT_AREA use at INTERNAL_PORT_AREA_ADDRESS;
|
for INTERNAL_PORT_AREA'Address use INTERNAL_PORT_AREA_ADDRESS;
|
||||||
|
|
||||||
--
|
--
|
||||||
-- The following area defines a memory area to be used as the
|
-- The following area defines a memory area to be used as the
|
||||||
@@ -133,7 +134,7 @@ package SPTEST is
|
|||||||
|
|
||||||
EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
||||||
of RTEMS.UNSIGNED8;
|
of RTEMS.UNSIGNED8;
|
||||||
for EXTERNAL_PORT_AREA use at EXTERNAL_PORT_AREA_ADDRESS;
|
for EXTERNAL_PORT_AREA'Address use EXTERNAL_PORT_AREA_ADDRESS;
|
||||||
|
|
||||||
--
|
--
|
||||||
-- The following area defines a memory area to be used as the
|
-- The following area defines a memory area to be used as the
|
||||||
@@ -154,7 +155,7 @@ package SPTEST is
|
|||||||
|
|
||||||
PARTITION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
PARTITION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
||||||
of RTEMS.UNSIGNED8;
|
of RTEMS.UNSIGNED8;
|
||||||
for PARTITION_BAD_AREA use at PARTITION_BAD_AREA_ADDRESS;
|
for PARTITION_BAD_AREA'Address use PARTITION_BAD_AREA_ADDRESS;
|
||||||
|
|
||||||
--
|
--
|
||||||
-- The following area defines a memory area to be used as the
|
-- The following area defines a memory area to be used as the
|
||||||
@@ -179,7 +180,7 @@ package SPTEST is
|
|||||||
|
|
||||||
REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
|
||||||
of RTEMS.UNSIGNED8;
|
of RTEMS.UNSIGNED8;
|
||||||
for REGION_BAD_AREA use at REGION_BAD_AREA_ADDRESS;
|
for REGION_BAD_AREA'Address use REGION_BAD_AREA_ADDRESS;
|
||||||
|
|
||||||
--
|
--
|
||||||
-- INIT
|
-- INIT
|
||||||
@@ -190,7 +191,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure INIT (
|
procedure INIT (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, INIT);
|
pragma Convention (C, INIT);
|
||||||
|
|
||||||
@@ -218,7 +219,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_1 (
|
procedure TASK_1 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_1);
|
pragma Convention (C, TASK_1);
|
||||||
|
|
||||||
@@ -231,7 +232,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_2 (
|
procedure TASK_2 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_2);
|
pragma Convention (C, TASK_2);
|
||||||
|
|
||||||
@@ -244,7 +245,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_3 (
|
procedure TASK_3 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_3);
|
pragma Convention (C, TASK_3);
|
||||||
|
|
||||||
@@ -257,7 +258,7 @@ package SPTEST is
|
|||||||
--
|
--
|
||||||
|
|
||||||
procedure TASK_4 (
|
procedure TASK_4 (
|
||||||
ARGUMENT : in RTEMS.TASK_ARGUMENT
|
ARGUMENT : in RTEMS.TASKS.ARGUMENT
|
||||||
);
|
);
|
||||||
pragma Convention (C, TASK_4);
|
pragma Convention (C, TASK_4);
|
||||||
|
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
--
|
--
|
||||||
--
|
--
|
||||||
--
|
--
|
||||||
-- COPYRIGHT (c) 1989-1997.
|
-- COPYRIGHT (c) 1989-2011.
|
||||||
-- On-Line Applications Research Corporation (OAR).
|
-- On-Line Applications Research Corporation (OAR).
|
||||||
--
|
--
|
||||||
-- The license and distribution terms for this file may in
|
-- The license and distribution terms for this file may in
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
with RTEMS;
|
with RTEMS;
|
||||||
|
with RTEMS.TASKS;
|
||||||
with SPTEST;
|
with SPTEST;
|
||||||
with TEST_SUPPORT;
|
with TEST_SUPPORT;
|
||||||
|
|
||||||
@@ -28,7 +29,7 @@ procedure SP11 is
|
|||||||
STATUS : RTEMS.STATUS_CODES;
|
STATUS : RTEMS.STATUS_CODES;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
RTEMS.TASK_CREATE(
|
RTEMS.TASKS.CREATE(
|
||||||
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
RTEMS.BUILD_NAME( 'I', 'N', 'I', 'T' ),
|
||||||
1,
|
1,
|
||||||
RTEMS.MINIMUM_STACK_SIZE,
|
RTEMS.MINIMUM_STACK_SIZE,
|
||||||
@@ -40,7 +41,7 @@ begin
|
|||||||
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
TEST_SUPPORT.DIRECTIVE_FAILED( STATUS, "TASK_CREATE OF INIT" );
|
||||||
|
|
||||||
|
|
||||||
RTEMS.TASK_START(
|
RTEMS.TASKS.START(
|
||||||
INIT_ID,
|
INIT_ID,
|
||||||
SPTEST.INIT'ACCESS,
|
SPTEST.INIT'ACCESS,
|
||||||
0,
|
0,
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user