From 317a5b52b5060ef98ffe2b3bb3f980165fea8e81 Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Tue, 2 Nov 1999 19:43:52 +0000
Subject: Split object.c into multiple files.

---
 cpukit/score/src/objectallocate.c | 69 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 cpukit/score/src/objectallocate.c

(limited to 'cpukit/score/src/objectallocate.c')

diff --git a/cpukit/score/src/objectallocate.c b/cpukit/score/src/objectallocate.c
new file mode 100644
index 0000000000..787aaad592
--- /dev/null
+++ b/cpukit/score/src/objectallocate.c
@@ -0,0 +1,69 @@
+/*
+ *  Object Handler
+ *
+ *
+ *  COPYRIGHT (c) 1989-1998.
+ *  On-Line Applications Research Corporation (OAR).
+ *  Copyright assigned to U.S. Government, 1994.
+ *
+ *  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/score/address.h>
+#include <rtems/score/chain.h>
+#include <rtems/score/object.h>
+#if defined(RTEMS_MULTIPROCESSING)
+#include <rtems/score/objectmp.h>
+#endif
+#include <rtems/score/thread.h>
+#include <rtems/score/wkspace.h>
+#include <rtems/score/sysstate.h>
+#include <rtems/score/isr.h>
+
+/*PAGE
+ *
+ *  _Objects_Allocate
+ *
+ *  DESCRIPTION:
+ *
+ *  This function allocates a object control block from
+ *  the inactive chain of free object control blocks.
+ */
+
+Objects_Control *_Objects_Allocate(
+  Objects_Information *information
+)
+{
+  Objects_Control *the_object =  
+    (Objects_Control *) _Chain_Get( &information->Inactive );
+
+  if ( information->auto_extend ) {
+    /*
+     *  If the list is empty then we are out of objects and need to
+     *  extend information base.
+     */
+  
+    if ( !the_object ) {
+      _Objects_Extend_information( information );
+      the_object =  (Objects_Control *) _Chain_Get( &information->Inactive );
+    }
+  
+    if ( the_object ) {
+      unsigned32 block;
+    
+      block = _Objects_Get_index( the_object->id ) -
+              _Objects_Get_index( information->minimum_id );
+      block /= information->allocation_size;
+      
+      information->inactive_per_block[ block ]--;
+      information->inactive--;
+    }
+  }
+  
+  return the_object;
+}
-- 
cgit v1.2.3