3 files changed, 61 insertions, 3 deletions
diff --git a/c/src/ada-tests/support/init.c b/c/src/ada-tests/support/init.c
index b670bd3510..6247766160 100644
--- a/c/src/ada-tests/support/init.c
+++ b/c/src/ada-tests/support/init.c
@@ -21,7 +21,7 @@ void *POSIX_Init(
 }
 
 /*
- *  Only for sp04
+ *  Only for sp04 and sp07
  */
 
 rtems_id tcb_to_id(
@@ -54,6 +54,20 @@ uint32_t ticks_per_second(void)
   return TOD_TICKS_PER_SECOND;
 }
 
+uint32_t work_space_size(void)
+{
+  return CONFIGURE_EXECUTIVE_RAM_SIZE;
+}
+
+uint32_t is_configured_multiprocessing(void)
+{
+#if defined(RTEMS_MULTIPROCESSING)
+  return 1;
+#else
+  return 0;
+#endif
+}
+
 uint32_t get_node(void)
 {
   /* XXX HACK -- use public API */
diff --git a/c/src/ada-tests/support/test_support.adb b/c/src/ada-tests/support/test_support.adb
index ae676aea09..a5eb073d43 100644
--- a/c/src/ada-tests/support/test_support.adb
+++ b/c/src/ada-tests/support/test_support.adb
@@ -10,7 +10,7 @@
 --
 --  
 --
---  COPYRIGHT (c) 1989-1997.
+--  COPYRIGHT (c) 1989-2007.
 --  On-Line Applications Research Corporation (OAR).
 --
 --  The license and distribution terms for this file may in
@@ -250,6 +250,36 @@ package body Test_Support is
    end Ticks_Per_Second; 
 
 --
+--  Return the size of the RTEMS Workspace
+--
+
+   function Work_Space_Size
+   return RTEMS.Unsigned32 is 
+      function Work_Space_Size_Base return RTEMS.Unsigned32;
+      pragma Import (C, Work_Space_Size_Base, "work_space_size");
+   begin
+      return Work_Space_Size_Base;
+   end Work_Space_Size;
+
+--
+--  Return an indication of whether multiprocessing is configured
+--
+
+   function Is_Configured_Multiprocessing
+   return Boolean is
+      function Is_Configured_Multiprocessing_Base return RTEMS.Unsigned32;
+      pragma Import (
+         C, Is_Configured_Multiprocessing_Base, "is_configured_multiprocessing"
+      );
+   begin
+      if Is_Configured_Multiprocessing_Base = 1 then
+         return True;
+      else
+         return False;
+      end if;
+   end Is_Configured_Multiprocessing;
+
+--
 --  Node is the node number in a multiprocessor configuration
 --
 
diff --git a/c/src/ada-tests/support/test_support.ads b/c/src/ada-tests/support/test_support.ads
index 8122c13f61..d063a7b28d 100644
--- a/c/src/ada-tests/support/test_support.ads
+++ b/c/src/ada-tests/support/test_support.ads
@@ -10,7 +10,7 @@
 --
 --  
 --
---  COPYRIGHT (c) 1989-1997.
+--  COPYRIGHT (c) 1989-2007.
 --  On-Line Applications Research Corporation (OAR).
 --
 --  The license and distribution terms for this file may in
@@ -168,6 +168,20 @@ package Test_Support is
    return RTEMS.Unsigned32;
 
 --
+--  Return the size of the RTEMS Workspace
+--
+
+   function Work_Space_Size
+   return RTEMS.Unsigned32;
+
+--
+--  Return an indication of whether multiprocessing is configured
+--
+
+   function Is_Configured_Multiprocessing 
+   return Boolean;
+
+--
 --  Node is the node number in a multiprocessor configuration
 --