1 files changed, 125 insertions, 0 deletions
diff --git a/ext/systemc/src/sysc/datatypes/fx/scfx_mant.cpp b/ext/systemc/src/sysc/datatypes/fx/scfx_mant.cpp
new file mode 100644
index 000000000..fc29764f6
--- /dev/null
+++ b/ext/systemc/src/sysc/datatypes/fx/scfx_mant.cpp
@@ -0,0 +1,125 @@
+/*****************************************************************************
+
+  Licensed to Accellera Systems Initiative Inc. (Accellera) under one or
+  more contributor license agreements.  See the NOTICE file distributed
+  with this work for additional information regarding copyright ownership.
+  Accellera licenses this file to you under the Apache License, Version 2.0
+  (the "License"); you may not use this file except in compliance with the
+  License.  You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+  Unless required by applicable law or agreed to in writing, software
+  distributed under the License is distributed on an "AS IS" BASIS,
+  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+  implied.  See the License for the specific language governing
+  permissions and limitations under the License.
+
+ *****************************************************************************/
+
+/*****************************************************************************
+
+  scfx_mant.cpp - 
+
+  Original Author: Robert Graulich, Synopsys, Inc.
+                   Martin Janssen,  Synopsys, Inc.
+
+ *****************************************************************************/
+
+/*****************************************************************************
+
+  MODIFICATION LOG - modifiers, enter your name, affiliation, date and
+  changes you are making here.
+
+      Name, Affiliation, Date:
+  Description of Modification:
+
+ *****************************************************************************/
+
+
+// $Log: scfx_mant.cpp,v $
+// Revision 1.1.1.1  2006/12/15 20:20:04  acg
+// SystemC 2.3
+//
+// Revision 1.3  2006/01/13 18:53:58  acg
+// Andy Goodrich: added $Log command so that CVS comments are reproduced in
+// the source.
+//
+
+#include "sysc/datatypes/fx/scfx_mant.h"
+
+
+namespace sc_dt
+{
+
+// ----------------------------------------------------------------------------
+//  word memory management
+// ----------------------------------------------------------------------------
+
+class word_list { // Entry in free_words bucket.
+  public:
+    word_list* m_next_p;
+};
+
+static inline
+int
+next_pow2_index( std::size_t size )
+{
+    int index = scfx_find_msb( size );
+    // If this was a power of 2 we are one bucket too low.
+    if( ~ (1 << index) & size ) index ++;
+    // If this is a 64-bit machine and we are using 32-bit words go down
+	// one slot size, as all the slots are 2x in size.
+    if ( index != 0 && ( sizeof(word_list) != sizeof(word) ) ) 
+	{
+		index -= 1;
+	}
+    return index;
+}
+
+static word_list* free_words[32] = { 0 };
+    
+word*
+scfx_mant::alloc_word( std::size_t size )
+{
+    const int ALLOC_SIZE = 128;
+
+    int slot_index = next_pow2_index( size );
+
+    int alloc_size = ( 1 << slot_index );
+
+    word_list*& slot = free_words[slot_index];
+
+    if( ! slot )
+    {
+        slot = new word_list[ALLOC_SIZE * alloc_size];
+	int i;
+	for( i = 0; i < alloc_size*(ALLOC_SIZE-1) ; i+=alloc_size )
+	{
+	    slot[i].m_next_p = &slot[i+alloc_size];
+	}
+	slot[i].m_next_p = 0;
+    }
+
+    word* result = (word*)slot;
+    free_words[slot_index] = slot[0].m_next_p;
+    return result;
+}
+
+void
+scfx_mant::free_word( word* array, std::size_t size )
+{
+    if( array && size )
+    {
+        int slot_index = next_pow2_index( size );
+	word_list* wl_p = (word_list*)array;
+
+	wl_p->m_next_p = free_words[slot_index];
+	free_words[slot_index] = wl_p;
+    }
+}
+
+} // namespace sc_dt
+
+
+// Taf!