diff options
Diffstat (limited to 'c/src/ada-tests/sptests/sp16/sptest.ads')
-rw-r--r-- | c/src/ada-tests/sptests/sp16/sptest.ads | 6 |
1 files changed, 6 insertions, 0 deletions
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; |