2000-10-18 Joel Sherrill <joel@OARcorp.com>

	* src/regiongetinfo.c, include/rtems/rtems/region.h,
	include/rtems/rtems/types.h, src/Makefile.am: Added
	region_get_information() and information control block.
	* src/regiongetinfo.c: New file.

5 files changed, 101 insertions, 1 deletions

diff --git a/c/src/exec/rtems/ChangeLog b/c/src/exec/rtems/ChangeLog
index cf2f350f33..1ad3281142 100644
--- a/c/src/exec/rtems/ChangeLog
+++ b/c/src/exec/rtems/ChangeLog
@@ -1,3 +1,10 @@
+2000-10-18	Joel Sherrill <joel@OARcorp.com>
+
+	* src/regiongetinfo.c, include/rtems/rtems/region.h,
+	include/rtems/rtems/types.h, src/Makefile.am: Added
+	region_get_information() and information control block.
+	* src/regiongetinfo.c: New file.
+
 2000-09-29	Stephan Merker <merker@decrc.abb.de>
 
 	* include/rtems/rtems/ratemon.h, src/ratemonperiod.c,
diff --git a/c/src/exec/rtems/include/rtems/rtems/region.h b/c/src/exec/rtems/include/rtems/rtems/region.h
index f8e4bd6512..aa8dae884a 100644
--- a/c/src/exec/rtems/include/rtems/rtems/region.h
+++ b/c/src/exec/rtems/include/rtems/rtems/region.h
@@ -129,6 +129,21 @@ rtems_status_code rtems_region_ident(
 );
 
 /*
+ *  rtems_region_ident
+ *
+ *  DESCRIPTION:
+ *
+ *  This routine implements the rtems_region_get_information directive.
+ *  This directive returns information about the heap associated with
+ *  this region.
+ */
+
+rtems_status_code rtems_region_get_information(
+  Objects_Id              id,
+  Heap_Information_block *the_info
+);
+
+/*
  *  rtems_region_delete
  *
  *  DESCRIPTION:
diff --git a/c/src/exec/rtems/include/rtems/rtems/types.h b/c/src/exec/rtems/include/rtems/rtems/types.h
index dbaabe5f1d..dbaad4f880 100644
--- a/c/src/exec/rtems/include/rtems/rtems/types.h
+++ b/c/src/exec/rtems/include/rtems/rtems/types.h
@@ -19,6 +19,7 @@
 extern "C" {
 #endif
 
+#include <rtems/score/heap.h>
 #include <rtems/score/object.h>
 #include <rtems/score/priority.h>
 #include <rtems/score/tod.h>
@@ -62,6 +63,12 @@ typedef Context_Control_fp         rtems_context_fp;
 typedef CPU_Interrupt_frame        rtems_interrupt_frame;
 
 /*
+ *  Region information block
+ */
+
+typedef Heap_Information_block region_information_block;
+
+/*
  *  Time related 
  */
 
diff --git a/c/src/exec/rtems/src/Makefile.am b/c/src/exec/rtems/src/Makefile.am
index 5682679033..f6ec0adecd 100644
--- a/c/src/exec/rtems/src/Makefile.am
+++ b/c/src/exec/rtems/src/Makefile.am
@@ -43,7 +43,7 @@ SIGNAL_C_FILES = signal.c signalcatch.c signalsend.c
 
 REGION_C_FILES = region.c regioncreate.c regiondelete.c regionextend.c \
     regiongetsegment.c regiongetsegmentsize.c regionident.c \
-    regionreturnsegment.c
+    regionreturnsegment.c regiongetinfo.c
 
 PARTITION_C_FILES = part.c partcreate.c partdelete.c partgetbuffer.c \
     partident.c partreturnbuffer.c
diff --git a/c/src/exec/rtems/src/regiongetinfo.c b/c/src/exec/rtems/src/regiongetinfo.c
new file mode 100644
index 0000000000..597ef38b7e
--- /dev/null
+++ b/c/src/exec/rtems/src/regiongetinfo.c
@@ -0,0 +1,71 @@
+/*
+ *  Region Manager
+ *
+ *
+ *  COPYRIGHT (c) 1989-1999.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.OARcorp.com/rtems/license.html.
+ *
+ *  $Id$
+ */
+
+#include <rtems/system.h>
+#include <rtems/rtems/status.h>
+#include <rtems/rtems/support.h>
+#include <rtems/score/object.h>
+#include <rtems/rtems/options.h>
+#include <rtems/rtems/region.h>
+#include <rtems/score/states.h>
+#include <rtems/score/thread.h>
+
+/*PAGE
+ *
+ *  rtems_region_get_information
+ *
+ *  This directive will return information about the region specified.
+ *
+ *  Input parameters:
+ *    id         - region id
+ *    the_info   - pointer to region information block
+ *
+ *  Output parameters:
+ *    *the_info   - region information block filled in
+ *    RTEMS_SUCCESSFUL - if successful
+ *    error code - if unsuccessful
+ */
+
+rtems_status_code rtems_region_get_information(
+  Objects_Id              id,
+  Heap_Information_block *the_info
+)
+{
+  register Region_Control *the_region;
+  Objects_Locations        location;
+  Thread_Control          *executing;
+
+  if ( !the_info )
+    return RTEMS_INVALID_ADDRESS;
+
+  the_region = _Region_Get( id, &location );
+  switch ( location ) {
+    case OBJECTS_REMOTE:        /* this error cannot be returned */
+      return RTEMS_INTERNAL_ERROR;
+
+    case OBJECTS_ERROR:
+      return RTEMS_INVALID_ID;
+
+    case OBJECTS_LOCAL:
+
+      if ( _Heap_Get_information( &the_region->Memory, the_info ) ) {
+        _Thread_Enable_dispatch();
+        return RTEMS_SUCCESSFUL;
+      }
+      _Thread_Enable_dispatch();
+      return RTEMS_INVALID_ADDRESS;
+  }
+
+  return RTEMS_INTERNAL_ERROR;   /* unreached - only to remove warnings */
+}