diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-03-11 20:12:52 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-03-11 20:12:52 +0000 |
| commit | d43dd822c6d971676c5455cd8e3b58556b759fb5 (patch) | |
| tree | 94f5057d2c122d331a4de5ca1dcd8ecf7b5e6654 /c/src/ada-tests | |
| parent | 2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
| download | rtems-d43dd822c6d971676c5455cd8e3b58556b759fb5.tar.bz2 | |
2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com>
* mptests/mp01/mptest.ads, mptests/mp02/mptest.ads,
mptests/mp03/mptest.ads, mptests/mp04/mptest.ads,
mptests/mp05/mptest.ads, mptests/mp06/mptest.ads,
mptests/mp07/mptest.ads, mptests/mp08/mptest.ads,
mptests/mp09/mptest.ads, mptests/mp10/mptest.ads,
mptests/mp11/mptest.ads, mptests/mp12/mptest.ads,
mptests/mp13/mptest.ads, mptests/mp14/mptest.ads,
samples/base_mp/mptest.ads, samples/base_sp/sptest.ads,
samples/hello/sptest.ads, samples/nsecs/sptest.ads,
samples/ticker/sptest.ads, sptests/sp01/sptest.ads,
sptests/sp02/sptest.ads, sptests/sp03/sptest.ads,
sptests/sp04/sptest.ads, sptests/sp05/sptest.ads,
sptests/sp06/sptest.ads, sptests/sp07/sptest.ads,
sptests/sp08/sptest.ads, sptests/sp09/sptest.ads,
sptests/sp11/sptest.ads, sptests/sp12/sptest.ads,
sptests/sp13/sptest.ads, sptests/sp14/sptest.ads,
sptests/sp15/sptest.ads, sptests/sp16/sptest.ads,
sptests/sp17/sptest.ads, sptests/sp19/sptest.ads,
sptests/sp20/sptest.ads, sptests/sp22/sptest.ads,
sptests/sp23/sptest.ads, sptests/sp24/sptest.ads,
sptests/sp25/sptest.ads, sptests/spname01/spname01.adb,
tmtests/tm01/tmtest.ads, tmtests/tm02/tmtest.ads,
tmtests/tm03/tmtest.ads, tmtests/tm04/tmtest.ads,
tmtests/tm05/tmtest.ads, tmtests/tm06/tmtest.ads,
tmtests/tm07/tmtest.ads, tmtests/tm08/tmtest.ads,
tmtests/tm09/tmtest.ads, tmtests/tm10/tmtest.ads,
tmtests/tm11/tmtest.ads, tmtests/tm12/tmtest.ads,
tmtests/tm13/tmtest.ads, tmtests/tm14/tmtest.ads,
tmtests/tm15/tmtest.ads, tmtests/tm16/tmtest.ads,
tmtests/tm17/tmtest.ads, tmtests/tm18/tmtest.ads,
tmtests/tm19/tmtest.ads, tmtests/tm20/tmtest.adb,
tmtests/tm20/tmtest.ads, tmtests/tm21/tmtest.ads,
tmtests/tm22/tmtest.ads, tmtests/tm23/tmtest.ads,
tmtests/tm24/tmtest.ads, tmtests/tm25/tmtest.ads,
tmtests/tm28/tmtest.ads, tmtests/tm29/tmtest.ads,
tmtests/tmck/tmtest.ads, tmtests/tmoverhd/tmtest.ads:
Added pragma Convention C as required by gcc > 4.3.
Diffstat (limited to 'c/src/ada-tests')
73 files changed, 291 insertions, 8 deletions
diff --git a/c/src/ada-tests/ChangeLog b/c/src/ada-tests/ChangeLog index 37503b49b3..e7ec5ccb65 100644 --- a/c/src/ada-tests/ChangeLog +++ b/c/src/ada-tests/ChangeLog @@ -1,3 +1,43 @@ +2008-03-11 Joel Sherrill <joel.sherrill@oarcorp.com> + + * mptests/mp01/mptest.ads, mptests/mp02/mptest.ads, + mptests/mp03/mptest.ads, mptests/mp04/mptest.ads, + mptests/mp05/mptest.ads, mptests/mp06/mptest.ads, + mptests/mp07/mptest.ads, mptests/mp08/mptest.ads, + mptests/mp09/mptest.ads, mptests/mp10/mptest.ads, + mptests/mp11/mptest.ads, mptests/mp12/mptest.ads, + mptests/mp13/mptest.ads, mptests/mp14/mptest.ads, + samples/base_mp/mptest.ads, samples/base_sp/sptest.ads, + samples/hello/sptest.ads, samples/nsecs/sptest.ads, + samples/ticker/sptest.ads, sptests/sp01/sptest.ads, + sptests/sp02/sptest.ads, sptests/sp03/sptest.ads, + sptests/sp04/sptest.ads, sptests/sp05/sptest.ads, + sptests/sp06/sptest.ads, sptests/sp07/sptest.ads, + sptests/sp08/sptest.ads, sptests/sp09/sptest.ads, + sptests/sp11/sptest.ads, sptests/sp12/sptest.ads, + sptests/sp13/sptest.ads, sptests/sp14/sptest.ads, + sptests/sp15/sptest.ads, sptests/sp16/sptest.ads, + sptests/sp17/sptest.ads, sptests/sp19/sptest.ads, + sptests/sp20/sptest.ads, sptests/sp22/sptest.ads, + sptests/sp23/sptest.ads, sptests/sp24/sptest.ads, + sptests/sp25/sptest.ads, sptests/spname01/spname01.adb, + tmtests/tm01/tmtest.ads, tmtests/tm02/tmtest.ads, + tmtests/tm03/tmtest.ads, tmtests/tm04/tmtest.ads, + tmtests/tm05/tmtest.ads, tmtests/tm06/tmtest.ads, + tmtests/tm07/tmtest.ads, tmtests/tm08/tmtest.ads, + tmtests/tm09/tmtest.ads, tmtests/tm10/tmtest.ads, + tmtests/tm11/tmtest.ads, tmtests/tm12/tmtest.ads, + tmtests/tm13/tmtest.ads, tmtests/tm14/tmtest.ads, + tmtests/tm15/tmtest.ads, tmtests/tm16/tmtest.ads, + tmtests/tm17/tmtest.ads, tmtests/tm18/tmtest.ads, + tmtests/tm19/tmtest.ads, tmtests/tm20/tmtest.adb, + tmtests/tm20/tmtest.ads, tmtests/tm21/tmtest.ads, + tmtests/tm22/tmtest.ads, tmtests/tm23/tmtest.ads, + tmtests/tm24/tmtest.ads, tmtests/tm25/tmtest.ads, + tmtests/tm28/tmtest.ads, tmtests/tm29/tmtest.ads, + tmtests/tmck/tmtest.ads, tmtests/tmoverhd/tmtest.ads: + Added pragma Convention C as required by gcc > 4.3. + 2008-02-04 Joel Sherrill <joel.sherrill@oarcorp.com> * sptests/spname01/config.h: New file. diff --git a/c/src/ada-tests/mptests/mp01/mptest.ads b/c/src/ada-tests/mptests/mp01/mptest.ads index d6b1619cb4..682d1a568c 100644 --- a/c/src/ada-tests/mptests/mp01/mptest.ads +++ b/c/src/ada-tests/mptests/mp01/mptest.ads @@ -43,6 +43,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -55,5 +56,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp02/mptest.ads b/c/src/ada-tests/mptests/mp02/mptest.ads index 493358293f..20f224cc1b 100644 --- a/c/src/ada-tests/mptests/mp02/mptest.ads +++ b/c/src/ada-tests/mptests/mp02/mptest.ads @@ -43,6 +43,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -55,5 +56,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp03/mptest.ads b/c/src/ada-tests/mptests/mp03/mptest.ads index c3a8b91993..6429355a1d 100644 --- a/c/src/ada-tests/mptests/mp03/mptest.ads +++ b/c/src/ada-tests/mptests/mp03/mptest.ads @@ -65,6 +65,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- DELAYED_SEND_EVENT @@ -79,6 +80,7 @@ package MPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, DELAYED_SEND_EVENT); -- -- TEST_TASK @@ -91,6 +93,7 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); -- -- TEST_TASK_SUPPORT diff --git a/c/src/ada-tests/mptests/mp04/mptest.ads b/c/src/ada-tests/mptests/mp04/mptest.ads index 5fde55d835..3c4d311923 100644 --- a/c/src/ada-tests/mptests/mp04/mptest.ads +++ b/c/src/ada-tests/mptests/mp04/mptest.ads @@ -57,6 +57,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -69,5 +70,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp05/mptest.ads b/c/src/ada-tests/mptests/mp05/mptest.ads index c3e5470ba3..08802f41e5 100644 --- a/c/src/ada-tests/mptests/mp05/mptest.ads +++ b/c/src/ada-tests/mptests/mp05/mptest.ads @@ -97,6 +97,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PROCESS_ASR @@ -109,6 +110,7 @@ package MPTEST is procedure PROCESS_ASR ( SIGNAL : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR); -- -- STOP_TEST_TSR @@ -122,6 +124,7 @@ package MPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, STOP_TEST_TSR); -- -- TEST_TASK @@ -134,5 +137,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp06/mptest.ads b/c/src/ada-tests/mptests/mp06/mptest.ads index bdaa10cab1..db6204a549 100644 --- a/c/src/ada-tests/mptests/mp06/mptest.ads +++ b/c/src/ada-tests/mptests/mp06/mptest.ads @@ -116,6 +116,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- STOP_TEST_TSR @@ -129,6 +130,7 @@ package MPTEST is IGNORED1 : in RTEMS.ID; IGNORED2 : in RTEMS.ADDRESS ); + pragma Convention (C, STOP_TEST_TSR); -- -- TEST_TASK @@ -141,5 +143,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp07/mptest.ads b/c/src/ada-tests/mptests/mp07/mptest.ads index 85f4c38f87..c33572f6e1 100644 --- a/c/src/ada-tests/mptests/mp07/mptest.ads +++ b/c/src/ada-tests/mptests/mp07/mptest.ads @@ -76,6 +76,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- STOP_TEST_TSR @@ -89,6 +90,7 @@ package MPTEST is IGNORED1 : in RTEMS.ID; IGNORED2 : in RTEMS.ADDRESS ); + pragma Convention (C, STOP_TEST_TSR); -- -- TEST_TASK @@ -101,5 +103,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp08/mptest.ads b/c/src/ada-tests/mptests/mp08/mptest.ads index 51124eca8a..1779701617 100644 --- a/c/src/ada-tests/mptests/mp08/mptest.ads +++ b/c/src/ada-tests/mptests/mp08/mptest.ads @@ -71,6 +71,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -83,5 +84,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp09/mptest.ads b/c/src/ada-tests/mptests/mp09/mptest.ads index 80cf89e051..1f68ab351d 100644 --- a/c/src/ada-tests/mptests/mp09/mptest.ads +++ b/c/src/ada-tests/mptests/mp09/mptest.ads @@ -88,6 +88,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- SEND_MESSAGES @@ -145,5 +146,6 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp10/mptest.ads b/c/src/ada-tests/mptests/mp10/mptest.ads index b69afdfc11..bcc7a6006b 100644 --- a/c/src/ada-tests/mptests/mp10/mptest.ads +++ b/c/src/ada-tests/mptests/mp10/mptest.ads @@ -79,6 +79,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK_1 @@ -91,6 +92,7 @@ package MPTEST is procedure TEST_TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK_1); -- -- TEST_TASK_2 @@ -103,6 +105,7 @@ package MPTEST is procedure TEST_TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK_2); -- -- TEST_TASK_3 @@ -115,5 +118,6 @@ package MPTEST is procedure TEST_TASK_3 ( RESTART : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK_3); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp11/mptest.ads b/c/src/ada-tests/mptests/mp11/mptest.ads index 3547f7b12c..fc37669b83 100644 --- a/c/src/ada-tests/mptests/mp11/mptest.ads +++ b/c/src/ada-tests/mptests/mp11/mptest.ads @@ -75,5 +75,6 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp12/mptest.ads b/c/src/ada-tests/mptests/mp12/mptest.ads index 8ba7302438..322bac8d17 100644 --- a/c/src/ada-tests/mptests/mp12/mptest.ads +++ b/c/src/ada-tests/mptests/mp12/mptest.ads @@ -65,6 +65,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- This is the area used for the partition. diff --git a/c/src/ada-tests/mptests/mp13/mptest.ads b/c/src/ada-tests/mptests/mp13/mptest.ads index f8371d447f..5ab6882d46 100644 --- a/c/src/ada-tests/mptests/mp13/mptest.ads +++ b/c/src/ada-tests/mptests/mp13/mptest.ads @@ -73,6 +73,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK_1 @@ -85,6 +86,7 @@ package MPTEST is procedure TEST_TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK_1); -- -- TEST_TASK_2 @@ -97,5 +99,6 @@ package MPTEST is procedure TEST_TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK_2); end MPTEST; diff --git a/c/src/ada-tests/mptests/mp14/mptest.ads b/c/src/ada-tests/mptests/mp14/mptest.ads index 2ae8ec85a7..12e4a15451 100644 --- a/c/src/ada-tests/mptests/mp14/mptest.ads +++ b/c/src/ada-tests/mptests/mp14/mptest.ads @@ -177,6 +177,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -189,6 +190,7 @@ package MPTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); -- -- DELAYED_EVENTS_TASK @@ -201,6 +203,7 @@ package MPTEST is procedure DELAYED_EVENTS_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, DELAYED_EVENTS_TASK); -- -- MESSAGE_QUEUE_TASK @@ -213,6 +216,7 @@ package MPTEST is procedure MESSAGE_QUEUE_TASK ( INDEX : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MESSAGE_QUEUE_TASK); -- -- PARTITION_TASK @@ -225,6 +229,7 @@ package MPTEST is procedure PARTITION_TASK ( IGNORED : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, PARTITION_TASK); -- -- SEMAPHORE_TASK @@ -237,5 +242,6 @@ package MPTEST is procedure SEMAPHORE_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, SEMAPHORE_TASK); end MPTEST; diff --git a/c/src/ada-tests/samples/base_mp/mptest.ads b/c/src/ada-tests/samples/base_mp/mptest.ads index 79f0e3392f..eae9e5877f 100644 --- a/c/src/ada-tests/samples/base_mp/mptest.ads +++ b/c/src/ada-tests/samples/base_mp/mptest.ads @@ -43,6 +43,7 @@ package MPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- APPLICATION_TASK @@ -57,5 +58,6 @@ package MPTEST is procedure APPLICATION_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, APPLICATION_TASK); end MPTEST; diff --git a/c/src/ada-tests/samples/base_sp/sptest.ads b/c/src/ada-tests/samples/base_sp/sptest.ads index c34a39f7ed..0808adbab4 100644 --- a/c/src/ada-tests/samples/base_sp/sptest.ads +++ b/c/src/ada-tests/samples/base_sp/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- APPLICATION_TASK @@ -55,5 +56,6 @@ package SPTEST is procedure APPLICATION_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, APPLICATION_TASK); end SPTEST; diff --git a/c/src/ada-tests/samples/hello/sptest.ads b/c/src/ada-tests/samples/hello/sptest.ads index 056744d319..cc53b38ff5 100644 --- a/c/src/ada-tests/samples/hello/sptest.ads +++ b/c/src/ada-tests/samples/hello/sptest.ads @@ -43,5 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); + end SPTEST; diff --git a/c/src/ada-tests/samples/nsecs/sptest.ads b/c/src/ada-tests/samples/nsecs/sptest.ads index 2911de9c6b..7eead85987 100644 --- a/c/src/ada-tests/samples/nsecs/sptest.ads +++ b/c/src/ada-tests/samples/nsecs/sptest.ads @@ -35,5 +35,6 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); end SPTEST; diff --git a/c/src/ada-tests/samples/ticker/sptest.ads b/c/src/ada-tests/samples/ticker/sptest.ads index fc8fd325a7..bb628effde 100644 --- a/c/src/ada-tests/samples/ticker/sptest.ads +++ b/c/src/ada-tests/samples/ticker/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1_THROUGH_3 @@ -55,5 +56,6 @@ package SPTEST is procedure TASK_1_THROUGH_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1_THROUGH_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp01/sptest.ads b/c/src/ada-tests/sptests/sp01/sptest.ads index fc8fd325a7..bb628effde 100644 --- a/c/src/ada-tests/sptests/sp01/sptest.ads +++ b/c/src/ada-tests/sptests/sp01/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1_THROUGH_3 @@ -55,5 +56,6 @@ package SPTEST is procedure TASK_1_THROUGH_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1_THROUGH_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp02/sptest.ads b/c/src/ada-tests/sptests/sp02/sptest.ads index 9c8010ece6..1dd42d3eea 100644 --- a/c/src/ada-tests/sptests/sp02/sptest.ads +++ b/c/src/ada-tests/sptests/sp02/sptest.ads @@ -46,6 +46,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PREEMPT_TASK @@ -58,6 +59,7 @@ package SPTEST is procedure PREEMPT_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, PREEMPT_TASK); -- -- TASK_1 @@ -70,6 +72,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -82,6 +85,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -94,5 +98,6 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp03/sptest.ads b/c/src/ada-tests/sptests/sp03/sptest.ads index f1bff42706..5a54139d89 100644 --- a/c/src/ada-tests/sptests/sp03/sptest.ads +++ b/c/src/ada-tests/sptests/sp03/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -56,9 +57,10 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- --- TASK_1 +-- TASK_2 -- -- DESCRIPTION: -- @@ -69,5 +71,6 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp04/sptest.ads b/c/src/ada-tests/sptests/sp04/sptest.ads index f165636192..6bbd930e85 100644 --- a/c/src/ada-tests/sptests/sp04/sptest.ads +++ b/c/src/ada-tests/sptests/sp04/sptest.ads @@ -58,6 +58,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -70,6 +71,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -83,6 +85,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -96,6 +99,7 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); -- -- TASK_SWITCH @@ -111,6 +115,7 @@ package SPTEST is UNUSED : in RTEMS.TCB_POINTER; HEIR : in RTEMS.TCB_POINTER ); + pragma Convention (C, TASK_SWITCH); -- -- This is the User Extension Table for this test. diff --git a/c/src/ada-tests/sptests/sp05/sptest.ads b/c/src/ada-tests/sptests/sp05/sptest.ads index 24427a5704..f0f7288360 100644 --- a/c/src/ada-tests/sptests/sp05/sptest.ads +++ b/c/src/ada-tests/sptests/sp05/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -55,6 +56,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -67,6 +69,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -79,5 +82,6 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp06/sptest.ads b/c/src/ada-tests/sptests/sp06/sptest.ads index 680b2835b7..ec04f0c1e9 100644 --- a/c/src/ada-tests/sptests/sp06/sptest.ads +++ b/c/src/ada-tests/sptests/sp06/sptest.ads @@ -50,6 +50,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -62,6 +63,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -74,6 +76,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -86,5 +89,6 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp07/sptest.ads b/c/src/ada-tests/sptests/sp07/sptest.ads index bc41a147eb..2195acb399 100644 --- a/c/src/ada-tests/sptests/sp07/sptest.ads +++ b/c/src/ada-tests/sptests/sp07/sptest.ads @@ -51,6 +51,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -63,6 +64,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -75,6 +77,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -87,6 +90,7 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); -- -- TASK_4 @@ -99,6 +103,7 @@ package SPTEST is procedure TASK_4 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_4); -- -- TASK_CREATE_EXTENSION @@ -112,6 +117,7 @@ package SPTEST is UNUSED : in RTEMS.TCB_POINTER; CREATED_TASK : in RTEMS.TCB_POINTER ) return RTEMS.Boolean; + pragma Convention (C, TASK_CREATE_EXTENSION); -- -- TASK_DELETE_EXTENSION @@ -125,6 +131,7 @@ package SPTEST is RUNNING_TASK : in RTEMS.TCB_POINTER; DELETED_TASK : in RTEMS.TCB_POINTER ); + pragma Convention (C, TASK_DELETE_EXTENSION); -- -- TASK_RESTART_EXTENSION @@ -138,6 +145,7 @@ package SPTEST is UNUSED : in RTEMS.TCB_POINTER; RESTARTED_TASK : in RTEMS.TCB_POINTER ); + pragma Convention (C, TASK_RESTART_EXTENSION); -- -- TASK_START_EXTENSION @@ -151,6 +159,7 @@ package SPTEST is UNUSED : in RTEMS.TCB_POINTER; STARTED_TASK : in RTEMS.TCB_POINTER ); + pragma Convention (C, TASK_START_EXTENSION); -- -- TASK_EXIT_EXTENSION @@ -164,6 +173,7 @@ package SPTEST is procedure TASK_EXIT_EXTENSION ( RUNNING_TASK : in RTEMS.TCB_POINTER ); + pragma Convention (C, TASK_EXIT_EXTENSION); -- -- This is the User Extension Table for this test. diff --git a/c/src/ada-tests/sptests/sp08/sptest.ads b/c/src/ada-tests/sptests/sp08/sptest.ads index 6b24e4401c..caabb8280e 100644 --- a/c/src/ada-tests/sptests/sp08/sptest.ads +++ b/c/src/ada-tests/sptests/sp08/sptest.ads @@ -43,6 +43,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PUT_MODE @@ -69,5 +70,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp09/sptest.ads b/c/src/ada-tests/sptests/sp09/sptest.ads index 30670e49c5..97eb00d04f 100644 --- a/c/src/ada-tests/sptests/sp09/sptest.ads +++ b/c/src/ada-tests/sptests/sp09/sptest.ads @@ -192,6 +192,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- DELAYED_SUBPROGRAM @@ -206,6 +207,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, DELAYED_SUBPROGRAM); -- -- TASK_1 @@ -218,6 +220,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -230,6 +233,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -242,6 +246,7 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); -- -- TASK_4 @@ -254,6 +259,7 @@ package SPTEST is procedure TASK_4 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_4); -- -- SCREEN_1 diff --git a/c/src/ada-tests/sptests/sp11/sptest.ads b/c/src/ada-tests/sptests/sp11/sptest.ads index 4788d80e24..62225fedfe 100644 --- a/c/src/ada-tests/sptests/sp11/sptest.ads +++ b/c/src/ada-tests/sptests/sp11/sptest.ads @@ -53,6 +53,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_18_TO_SELF_5_SECONDS); -- -- TA1_SEND_8_TO_SELF_60_SECONDS @@ -67,6 +68,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_8_TO_SELF_60_SECONDS); -- -- TA1_SEND_9_TO_SELF_5_SECONDS @@ -81,6 +83,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_9_TO_SELF_60_SECONDS); -- -- TA1_SEND_10_TO_SELF @@ -95,6 +98,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_10_TO_SELF); -- -- TA1_SEND_1_TO_SELF_EVERY_SECOND @@ -109,6 +113,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_1_TO_SELF_EVERY_SECOND); -- -- TA1_SEND_11_TO_SELF @@ -123,6 +128,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA1_SEND_11_TO_SELF); -- -- TA2_SEND_10_TO_SELF @@ -137,6 +143,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TA2_SEND_10_TO_SELF); -- -- INIT @@ -149,6 +156,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -161,6 +169,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -173,5 +182,6 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp12/sptest.ads b/c/src/ada-tests/sptests/sp12/sptest.ads index 5a324d03c2..fa2e9adb77 100644 --- a/c/src/ada-tests/sptests/sp12/sptest.ads +++ b/c/src/ada-tests/sptests/sp12/sptest.ads @@ -50,6 +50,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PRIORITY_TEST_DRIVER @@ -77,6 +78,7 @@ package SPTEST is procedure PRIORITY_TASK ( ITS_INDEX : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, PRIORITY_TASK); -- -- TASK_1 @@ -89,6 +91,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -101,6 +104,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -113,6 +117,7 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); -- -- TASK_4 @@ -125,6 +130,7 @@ package SPTEST is procedure TASK_4 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_4); -- -- TASK_5 @@ -137,5 +143,6 @@ package SPTEST is procedure TASK_5 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_5); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp13/sptest.ads b/c/src/ada-tests/sptests/sp13/sptest.ads index 0a17a0f096..4eb9588422 100644 --- a/c/src/ada-tests/sptests/sp13/sptest.ads +++ b/c/src/ada-tests/sptests/sp13/sptest.ads @@ -64,6 +64,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- FILL_BUFFER @@ -103,6 +104,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -115,6 +117,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -127,5 +130,6 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp14/sptest.ads b/c/src/ada-tests/sptests/sp14/sptest.ads index 48036a28e8..6a484f3737 100644 --- a/c/src/ada-tests/sptests/sp14/sptest.ads +++ b/c/src/ada-tests/sptests/sp14/sptest.ads @@ -77,6 +77,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- SIGNAL_3_TO_TASK_1 @@ -90,6 +91,7 @@ package SPTEST is ID : in RTEMS.ID; POINTER : in RTEMS.ADDRESS ); + pragma Convention (C, SIGNAL_3_TO_TASK_1); -- -- PROCESS_ASR @@ -102,6 +104,7 @@ package SPTEST is procedure PROCESS_ASR ( THE_SIGNAL_SET : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR); -- -- TASK_1 @@ -114,6 +117,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -126,5 +130,6 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp15/sptest.ads b/c/src/ada-tests/sptests/sp15/sptest.ads index 97164c9c74..ec03089985 100644 --- a/c/src/ada-tests/sptests/sp15/sptest.ads +++ b/c/src/ada-tests/sptests/sp15/sptest.ads @@ -63,6 +63,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PUT_ADDRESS_FROM_AREA_1 @@ -113,5 +114,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp16/sptest.ads b/c/src/ada-tests/sptests/sp16/sptest.ads index 54e9898362..783cf0a210 100644 --- a/c/src/ada-tests/sptests/sp16/sptest.ads +++ b/c/src/ada-tests/sptests/sp16/sptest.ads @@ -76,6 +76,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PUT_ADDRESS_FROM_AREA_1 @@ -145,6 +146,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -157,6 +159,7 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -169,6 +172,7 @@ package SPTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); -- -- TASK_4 @@ -181,6 +185,7 @@ package SPTEST is procedure TASK_4 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_4); -- -- TASK_5 @@ -193,5 +198,6 @@ package SPTEST is procedure TASK_5 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_5); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp17/sptest.ads b/c/src/ada-tests/sptests/sp17/sptest.ads index c6f5ff85d8..b3ff420993 100644 --- a/c/src/ada-tests/sptests/sp17/sptest.ads +++ b/c/src/ada-tests/sptests/sp17/sptest.ads @@ -49,6 +49,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PROCESS_ASR @@ -61,6 +62,7 @@ package SPTEST is procedure PROCESS_ASR ( SIGNALS : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR); -- -- TASK_1 @@ -76,6 +78,7 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -88,5 +91,6 @@ package SPTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp19/sptest.ads b/c/src/ada-tests/sptests/sp19/sptest.ads index 3cb87585f9..ab663850c5 100644 --- a/c/src/ada-tests/sptests/sp19/sptest.ads +++ b/c/src/ada-tests/sptests/sp19/sptest.ads @@ -58,6 +58,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- FIRST_FP_TASK @@ -70,6 +71,7 @@ package SPTEST is procedure FIRST_FP_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, FIRST_FP_TASK); -- -- FP_TASK @@ -83,6 +85,7 @@ package SPTEST is procedure FP_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, FP_TASK); -- -- TASK_1 @@ -97,5 +100,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp20/sptest.ads b/c/src/ada-tests/sptests/sp20/sptest.ads index 5b2eed7548..523bdd7d64 100644 --- a/c/src/ada-tests/sptests/sp20/sptest.ads +++ b/c/src/ada-tests/sptests/sp20/sptest.ads @@ -77,6 +77,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1_THROUGH_6 @@ -89,6 +90,7 @@ package SPTEST is procedure TASK_1_THROUGH_6 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1_THROUGH_6); -- -- GET_ALL_COUNTERS diff --git a/c/src/ada-tests/sptests/sp22/sptest.ads b/c/src/ada-tests/sptests/sp22/sptest.ads index 8abc5281a1..054b3ab15e 100644 --- a/c/src/ada-tests/sptests/sp22/sptest.ads +++ b/c/src/ada-tests/sptests/sp22/sptest.ads @@ -51,6 +51,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- DELAYED_RESUME @@ -65,6 +66,7 @@ package SPTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, DELAYED_RESUME); -- -- PRINT_TIME @@ -87,5 +89,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp23/sptest.ads b/c/src/ada-tests/sptests/sp23/sptest.ads index febce87be1..878d484f69 100644 --- a/c/src/ada-tests/sptests/sp23/sptest.ads +++ b/c/src/ada-tests/sptests/sp23/sptest.ads @@ -101,6 +101,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -113,5 +114,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp24/sptest.ads b/c/src/ada-tests/sptests/sp24/sptest.ads index f6dd6f7326..e0f159cc29 100644 --- a/c/src/ada-tests/sptests/sp24/sptest.ads +++ b/c/src/ada-tests/sptests/sp24/sptest.ads @@ -51,6 +51,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- RESUME_TASK @@ -65,6 +66,7 @@ package SPTEST is TIMER_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, RESUME_TASK); -- -- TASK_1_THROUGH_3 @@ -77,5 +79,6 @@ package SPTEST is procedure TASK_1_THROUGH_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1_THROUGH_3); end SPTEST; diff --git a/c/src/ada-tests/sptests/sp25/sptest.ads b/c/src/ada-tests/sptests/sp25/sptest.ads index 1a61adb0fe..7ba3969f00 100644 --- a/c/src/ada-tests/sptests/sp25/sptest.ads +++ b/c/src/ada-tests/sptests/sp25/sptest.ads @@ -67,6 +67,7 @@ package SPTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PUT_ADDRESS_FROM_AREA_1 @@ -98,5 +99,6 @@ package SPTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end SPTEST; diff --git a/c/src/ada-tests/sptests/spname01/spname01.adb b/c/src/ada-tests/sptests/spname01/spname01.adb index eb35eefc0a..93719602da 100644 --- a/c/src/ada-tests/sptests/spname01/spname01.adb +++ b/c/src/ada-tests/sptests/spname01/spname01.adb @@ -24,8 +24,6 @@ with SPTEST; with TEST_SUPPORT; procedure SPNAME01 is - INIT_ID : RTEMS.ID; - STATUS : RTEMS.STATUS_CODES; begin loop diff --git a/c/src/ada-tests/tmtests/tm01/tmtest.ads b/c/src/ada-tests/tmtests/tm01/tmtest.ads index 0dc37d055f..39d6a01360 100644 --- a/c/src/ada-tests/tmtests/tm01/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm01/tmtest.ads @@ -51,6 +51,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -63,5 +64,6 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm02/tmtest.ads b/c/src/ada-tests/tmtests/tm02/tmtest.ads index e866f2aceb..7b68bcff9e 100644 --- a/c/src/ada-tests/tmtests/tm02/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm02/tmtest.ads @@ -49,6 +49,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -72,6 +73,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -85,6 +87,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LOW_TASK @@ -98,5 +101,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm03/tmtest.ads b/c/src/ada-tests/tmtests/tm03/tmtest.ads index 595a6797d1..8b05e3df41 100644 --- a/c/src/ada-tests/tmtests/tm03/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm03/tmtest.ads @@ -49,6 +49,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -63,6 +64,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- MIDDLE_TASKS @@ -77,6 +79,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- HIGH_TASK @@ -90,5 +93,6 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm04/tmtest.ads b/c/src/ada-tests/tmtests/tm04/tmtest.ads index 4b05c283a3..bc43e89050 100644 --- a/c/src/ada-tests/tmtests/tm04/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm04/tmtest.ads @@ -71,6 +71,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -101,6 +102,7 @@ package TMTEST is procedure HIGHEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGHEST_TASK); -- -- HIGH_TASK @@ -130,6 +132,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- LOW_TASKS @@ -144,6 +147,7 @@ package TMTEST is procedure LOW_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASKS); -- -- RESTART_TASK @@ -156,5 +160,6 @@ package TMTEST is procedure RESTART_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, RESTART_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm05/tmtest.ads b/c/src/ada-tests/tmtests/tm05/tmtest.ads index 9a0256f82f..006be4c7a6 100644 --- a/c/src/ada-tests/tmtests/tm05/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm05/tmtest.ads @@ -53,6 +53,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -78,6 +79,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -92,6 +94,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LOW_TASK @@ -108,5 +111,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm06/tmtest.ads b/c/src/ada-tests/tmtests/tm06/tmtest.ads index ccd3a01c97..c422dd4adc 100644 --- a/c/src/ada-tests/tmtests/tm06/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm06/tmtest.ads @@ -58,6 +58,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -86,6 +87,7 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- NULL_TASK @@ -99,5 +101,6 @@ package TMTEST is procedure NULL_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, NULL_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm07/tmtest.ads b/c/src/ada-tests/tmtests/tm07/tmtest.ads index 245f464e39..6a3491e54f 100644 --- a/c/src/ada-tests/tmtests/tm07/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm07/tmtest.ads @@ -53,6 +53,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -78,6 +79,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -92,6 +94,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LOW_TASK @@ -106,5 +109,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm08/tmtest.ads b/c/src/ada-tests/tmtests/tm08/tmtest.ads index 1a633ccbdb..7f5073a244 100644 --- a/c/src/ada-tests/tmtests/tm08/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm08/tmtest.ads @@ -45,6 +45,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -79,6 +80,7 @@ package TMTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); -- -- TEST_TASK2 @@ -94,5 +96,6 @@ package TMTEST is procedure TEST_TASK1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK1); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm09/tmtest.ads b/c/src/ada-tests/tmtests/tm09/tmtest.ads index eecc64a191..deb91e608e 100644 --- a/c/src/ada-tests/tmtests/tm09/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm09/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -78,6 +79,7 @@ package TMTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); -- -- QUEUE_TEST diff --git a/c/src/ada-tests/tmtests/tm10/tmtest.ads b/c/src/ada-tests/tmtests/tm10/tmtest.ads index 533a6947ac..39bcb423d5 100644 --- a/c/src/ada-tests/tmtests/tm10/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm10/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -87,6 +88,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -99,6 +101,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LOW_TASK @@ -112,5 +115,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm11/tmtest.ads b/c/src/ada-tests/tmtests/tm11/tmtest.ads index efd73c7219..b099ea2ab3 100644 --- a/c/src/ada-tests/tmtests/tm11/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm11/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -78,6 +79,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- HIGH_TASK @@ -96,6 +98,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -109,5 +112,6 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm12/tmtest.ads b/c/src/ada-tests/tmtests/tm12/tmtest.ads index dd35ad55a3..8cf1fc006a 100644 --- a/c/src/ada-tests/tmtests/tm12/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm12/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -74,6 +75,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- HIGH_TASK @@ -88,6 +90,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- LOW_TASKS @@ -100,5 +103,6 @@ package TMTEST is procedure LOW_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm13/tmtest.ads b/c/src/ada-tests/tmtests/tm13/tmtest.ads index ade6a78ca6..e250bd2a1d 100644 --- a/c/src/ada-tests/tmtests/tm13/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm13/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -78,6 +79,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- HIGH_TASK @@ -96,6 +98,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -109,5 +112,6 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm14/tmtest.ads b/c/src/ada-tests/tmtests/tm14/tmtest.ads index 1b1994c831..066aa8cb94 100644 --- a/c/src/ada-tests/tmtests/tm14/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm14/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -74,6 +75,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- HIGH_TASK @@ -88,6 +90,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- LOW_TASKS @@ -100,5 +103,6 @@ package TMTEST is procedure LOW_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm15/tmtest.ads b/c/src/ada-tests/tmtests/tm15/tmtest.ads index 91658d9b75..0ee8361b33 100644 --- a/c/src/ada-tests/tmtests/tm15/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm15/tmtest.ads @@ -58,6 +58,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -90,6 +91,7 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); -- -- HIGH_TASKS @@ -104,5 +106,6 @@ package TMTEST is procedure HIGH_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm16/tmtest.ads b/c/src/ada-tests/tmtests/tm16/tmtest.ads index 81da5fedcd..a1839a56f3 100644 --- a/c/src/ada-tests/tmtests/tm16/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm16/tmtest.ads @@ -58,6 +58,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -72,6 +73,7 @@ package TMTEST is procedure TEST_INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_INIT); -- -- HIGH_TASK @@ -89,6 +91,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -106,5 +109,6 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm17/tmtest.ads b/c/src/ada-tests/tmtests/tm17/tmtest.ads index 932615f9a0..8d26b15b05 100644 --- a/c/src/ada-tests/tmtests/tm17/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm17/tmtest.ads @@ -63,6 +63,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- FIRST_TASK @@ -77,6 +78,7 @@ package TMTEST is procedure FIRST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, FIRST_TASK); -- -- MIDDLE_TASK @@ -90,6 +92,7 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LAST_TASK @@ -104,5 +107,6 @@ package TMTEST is procedure LAST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LAST_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm18/tmtest.ads b/c/src/ada-tests/tmtests/tm18/tmtest.ads index 87aca106d9..294a41b1b3 100644 --- a/c/src/ada-tests/tmtests/tm18/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm18/tmtest.ads @@ -44,6 +44,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_INIT @@ -67,9 +68,10 @@ package TMTEST is procedure FIRST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, FIRST_TASK); -- --- MIDDLE_TASK +-- MIDDLE_TASKS -- -- DESCRIPTION: -- @@ -80,6 +82,7 @@ package TMTEST is ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- -- LAST_TASK -- @@ -92,5 +95,6 @@ package TMTEST is procedure LAST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LAST_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm19/tmtest.ads b/c/src/ada-tests/tmtests/tm19/tmtest.ads index 25f7b03497..fd2c6ba022 100644 --- a/c/src/ada-tests/tmtests/tm19/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm19/tmtest.ads @@ -50,6 +50,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- PROCESS_ASR_FOR_PASS_1 @@ -65,6 +66,7 @@ package TMTEST is procedure PROCESS_ASR_FOR_PASS_1 ( SIGNALS : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR_FOR_PASS_1); -- -- PROCESS_ASR_FOR_PASS_2 @@ -80,6 +82,7 @@ package TMTEST is procedure PROCESS_ASR_FOR_PASS_2 ( SIGNALS : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR_FOR_PASS_2); -- -- TASK_1 @@ -97,6 +100,7 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- PROCESS_ASR_FOR_TASK_2 @@ -109,6 +113,7 @@ package TMTEST is procedure PROCESS_ASR_FOR_TASK_2 ( SIGNALS : in RTEMS.SIGNAL_SET ); + pragma Convention (C, PROCESS_ASR_FOR_TASK_2); -- -- TASK_2 @@ -123,6 +128,7 @@ package TMTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); -- -- TASK_3 @@ -139,5 +145,6 @@ package TMTEST is procedure TASK_3 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_3); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm20/tmtest.adb b/c/src/ada-tests/tmtests/tm20/tmtest.adb index 03cd1b33eb..354827798d 100644 --- a/c/src/ada-tests/tmtests/tm20/tmtest.adb +++ b/c/src/ada-tests/tmtests/tm20/tmtest.adb @@ -98,7 +98,6 @@ package body TMTEST is BUFFER_COUNT : RTEMS.UNSIGNED32; PREVIOUS_MODE : RTEMS.MODE; PREVIOUS_PRIORITY : RTEMS.TASK_PRIORITY; - OVERHEAD : RTEMS.UNSIGNED32; STATUS : RTEMS.STATUS_CODES; begin diff --git a/c/src/ada-tests/tmtests/tm20/tmtest.ads b/c/src/ada-tests/tmtests/tm20/tmtest.ads index 48917c5394..fc75d93b8a 100644 --- a/c/src/ada-tests/tmtests/tm20/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm20/tmtest.ads @@ -99,6 +99,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -130,6 +131,7 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- TASK_2 @@ -146,5 +148,6 @@ package TMTEST is procedure TASK_2 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_2); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm21/tmtest.ads b/c/src/ada-tests/tmtests/tm21/tmtest.ads index d2e5190dc8..e72221db05 100644 --- a/c/src/ada-tests/tmtests/tm21/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm21/tmtest.ads @@ -95,6 +95,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -117,5 +118,6 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm22/tmtest.ads b/c/src/ada-tests/tmtests/tm22/tmtest.ads index d9087fcb39..0f2553784a 100644 --- a/c/src/ada-tests/tmtests/tm22/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm22/tmtest.ads @@ -62,6 +62,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- HIGH_TASK @@ -79,6 +80,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- LOW_TASK @@ -101,6 +103,7 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); -- -- PREEMPT_TASK @@ -114,5 +117,6 @@ package TMTEST is procedure PREEMPT_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, PREEMPT_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm23/tmtest.ads b/c/src/ada-tests/tmtests/tm23/tmtest.ads index ff68a7de46..4a9f9cbfa1 100644 --- a/c/src/ada-tests/tmtests/tm23/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm23/tmtest.ads @@ -58,6 +58,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- NULL_DELAY @@ -72,6 +73,7 @@ package TMTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, NULL_DELAY); -- -- HIGH_TASK @@ -100,6 +102,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- MIDDLE_TASKS @@ -112,9 +115,10 @@ package TMTEST is procedure MIDDLE_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, MIDDLE_TASKS); -- --- MIDDLE_TASKS +-- LOW_TASK -- -- DESCRIPTION: -- @@ -125,5 +129,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm24/tmtest.ads b/c/src/ada-tests/tmtests/tm24/tmtest.ads index f03926d436..1b872e5745 100644 --- a/c/src/ada-tests/tmtests/tm24/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm24/tmtest.ads @@ -66,6 +66,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- HIGH_TASK @@ -80,6 +81,7 @@ package TMTEST is procedure HIGH_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASK); -- -- TASKS @@ -94,5 +96,6 @@ package TMTEST is procedure TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASKS); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm25/tmtest.ads b/c/src/ada-tests/tmtests/tm25/tmtest.ads index a21a267950..66766eaafd 100644 --- a/c/src/ada-tests/tmtests/tm25/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm25/tmtest.ads @@ -49,6 +49,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- HIGH_TASKS @@ -62,6 +63,7 @@ package TMTEST is procedure HIGH_TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, HIGH_TASKS); -- -- LOW_TASK @@ -75,5 +77,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm28/tmtest.ads b/c/src/ada-tests/tmtests/tm28/tmtest.ads index 3c947c2c86..45f081e61e 100644 --- a/c/src/ada-tests/tmtests/tm28/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm28/tmtest.ads @@ -83,6 +83,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TEST_TASK @@ -101,5 +102,6 @@ package TMTEST is procedure TEST_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TEST_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tm29/tmtest.ads b/c/src/ada-tests/tmtests/tm29/tmtest.ads index a82e9b8b06..8082c93bf6 100644 --- a/c/src/ada-tests/tmtests/tm29/tmtest.ads +++ b/c/src/ada-tests/tmtests/tm29/tmtest.ads @@ -65,9 +65,10 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- --- TEST_TASK +-- TASKS -- -- DESCRIPTION: -- @@ -78,9 +79,10 @@ package TMTEST is procedure TASKS ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASKS); -- --- TEST_TASK +-- LOW_TASK -- -- DESCRIPTION: -- @@ -91,5 +93,6 @@ package TMTEST is procedure LOW_TASK ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, LOW_TASK); end TMTEST; diff --git a/c/src/ada-tests/tmtests/tmck/tmtest.ads b/c/src/ada-tests/tmtests/tmck/tmtest.ads index ddfd2eea9c..c5076286fb 100644 --- a/c/src/ada-tests/tmtests/tmck/tmtest.ads +++ b/c/src/ada-tests/tmtests/tmck/tmtest.ads @@ -65,6 +65,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TASK_1 @@ -80,6 +81,7 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); -- -- CHECK_READ_TIMER diff --git a/c/src/ada-tests/tmtests/tmoverhd/tmtest.ads b/c/src/ada-tests/tmtests/tmoverhd/tmtest.ads index b1ff59b7a9..e697dd2be0 100644 --- a/c/src/ada-tests/tmtests/tmoverhd/tmtest.ads +++ b/c/src/ada-tests/tmtests/tmoverhd/tmtest.ads @@ -99,6 +99,7 @@ package TMTEST is procedure INIT ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, INIT); -- -- TIMER_HANDLER @@ -112,6 +113,7 @@ package TMTEST is IGNORED_ID : in RTEMS.ID; IGNORED_ADDRESS : in RTEMS.ADDRESS ); + pragma Convention (C, TIMER_HANDLER); -- -- ISR_HANDLER @@ -136,6 +138,7 @@ package TMTEST is procedure ASR_HANDLER ( SIGNALS : in RTEMS.SIGNAL_SET ); + pragma Convention (C, ASR_HANDLER); -- -- TASK_1 @@ -150,5 +153,6 @@ package TMTEST is procedure TASK_1 ( ARGUMENT : in RTEMS.TASK_ARGUMENT ); + pragma Convention (C, TASK_1); end TMTEST; |