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.

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.

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;

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;

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

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;

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;

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;

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;

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;

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;

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;

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;

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.

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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.

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;

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;

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.

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;

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

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;

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;

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;

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;

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;

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;

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;

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;

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

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;

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;

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;

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;

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

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;

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;

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;

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;

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;

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;

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;