1 files changed, 11 insertions, 10 deletions
diff --git a/c/src/ada-tests/sptests/sp09/sptest.ads b/c/src/ada-tests/sptests/sp09/sptest.ads
index 97eb00d04f..c825016234 100644
--- a/c/src/ada-tests/sptests/sp09/sptest.ads
+++ b/c/src/ada-tests/sptests/sp09/sptest.ads
@@ -10,7 +10,7 @@
 --
 --  
 --
---  COPYRIGHT (c) 1989-1997.
+--  COPYRIGHT (c) 1989-2011.
 --  On-Line Applications Research Corporation (OAR).
 --
 --  The license and distribution terms for this file may in
@@ -21,6 +21,7 @@
 --
 
 with RTEMS;
+with RTEMS.TASKS;
 with SYSTEM;
 with System.Storage_Elements;
 
@@ -121,7 +122,7 @@ package SPTEST is
 
    INTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
       of RTEMS.UNSIGNED8;
-   for INTERNAL_PORT_AREA use at INTERNAL_PORT_AREA_ADDRESS;
+   for INTERNAL_PORT_AREA'Address use INTERNAL_PORT_AREA_ADDRESS;
 
 --
 --  The following area defines a memory area to be used as the
@@ -133,7 +134,7 @@ package SPTEST is
 
    EXTERNAL_PORT_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
       of RTEMS.UNSIGNED8;
-   for EXTERNAL_PORT_AREA use at EXTERNAL_PORT_AREA_ADDRESS;
+   for EXTERNAL_PORT_AREA'Address use EXTERNAL_PORT_AREA_ADDRESS;
 
 --
 --  The following area defines a memory area to be used as the
@@ -154,7 +155,7 @@ package SPTEST is
 
    PARTITION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
       of RTEMS.UNSIGNED8;
-   for PARTITION_BAD_AREA use at PARTITION_BAD_AREA_ADDRESS;
+   for PARTITION_BAD_AREA'Address use PARTITION_BAD_AREA_ADDRESS;
 
 --
 --  The following area defines a memory area to be used as the
@@ -179,7 +180,7 @@ package SPTEST is
 
    REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
       of RTEMS.UNSIGNED8;
-   for REGION_BAD_AREA use at REGION_BAD_AREA_ADDRESS;
+   for REGION_BAD_AREA'Address use REGION_BAD_AREA_ADDRESS;
 
 --
 --  INIT
@@ -190,7 +191,7 @@ package SPTEST is
 --
 
    procedure INIT (
-      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    );
    pragma Convention (C, INIT);
 
@@ -218,7 +219,7 @@ package SPTEST is
 --
 
    procedure TASK_1 (
-      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    );
    pragma Convention (C, TASK_1);
 
@@ -231,7 +232,7 @@ package SPTEST is
 --
 
    procedure TASK_2 (
-      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    );
    pragma Convention (C, TASK_2);
 
@@ -244,7 +245,7 @@ package SPTEST is
 --
 
    procedure TASK_3 (
-      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    );
    pragma Convention (C, TASK_3);
 
@@ -257,7 +258,7 @@ package SPTEST is
 --
 
    procedure TASK_4 (
-      ARGUMENT : in     RTEMS.TASK_ARGUMENT
+      ARGUMENT : in     RTEMS.TASKS.ARGUMENT
    );
    pragma Convention (C, TASK_4);