From d43dd822c6d971676c5455cd8e3b58556b759fb5 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Tue, 11 Mar 2008 20:12:52 +0000 Subject: 2008-03-11 Joel Sherrill * 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. --- c/src/ada-tests/tmtests/tm01/tmtest.ads | 2 ++ c/src/ada-tests/tmtests/tm02/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm03/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm04/tmtest.ads | 5 +++++ c/src/ada-tests/tmtests/tm05/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm06/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm07/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm08/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm09/tmtest.ads | 2 ++ c/src/ada-tests/tmtests/tm10/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm11/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm12/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm13/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm14/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm15/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm16/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm17/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm18/tmtest.ads | 6 +++++- c/src/ada-tests/tmtests/tm19/tmtest.ads | 7 +++++++ c/src/ada-tests/tmtests/tm20/tmtest.adb | 1 - c/src/ada-tests/tmtests/tm20/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm21/tmtest.ads | 2 ++ c/src/ada-tests/tmtests/tm22/tmtest.ads | 4 ++++ c/src/ada-tests/tmtests/tm23/tmtest.ads | 7 ++++++- c/src/ada-tests/tmtests/tm24/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm25/tmtest.ads | 3 +++ c/src/ada-tests/tmtests/tm28/tmtest.ads | 2 ++ c/src/ada-tests/tmtests/tm29/tmtest.ads | 7 +++++-- c/src/ada-tests/tmtests/tmck/tmtest.ads | 2 ++ c/src/ada-tests/tmtests/tmoverhd/tmtest.ads | 4 ++++ 30 files changed, 108 insertions(+), 5 deletions(-) (limited to 'c/src/ada-tests/tmtests') 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; -- cgit v1.2.3