Changeset 7b0e8b7 for libcfa/src/containers

Timestamp:

Oct 18, 2021, 4:31:04 PM (3 years ago)

Author:

Michael Brooks <mlbrooks@…>

Branches:

ADT, ast-experimental, enum, master, pthread-emulation, qualifiedEnum

Children:

6f7aff3

Parents:

804bf677

Message:

String heap growth implemented

Location:

libcfa/src/containers

Files:

• string_res.cfa (modified) (9 diffs)
• string_res.hfa (modified) (1 diff)

libcfa/src/containers/string_res.cfa

@@ -44 +44 @@
     
 static inline void compaction( VbyteHeap & );                           // compaction of the byte area
-static inline void garbage( VbyteHeap & );                              // garbage collect the byte area
+static inline void garbage( VbyteHeap &, int );                         // garbage collect the byte area
 static inline void extend( VbyteHeap &, int );                  // extend the size of the byte area
 static inline void reduce( VbyteHeap &, int );                  // reduce the size of the byte area
@@ -179 +179 @@
 }
 
+size_t DEBUG_string_bytes_in_heap( VbyteHeap * heap ) {
+    return heap->CurrSize;
+}
+
 const char * DEBUG_string_heap_start( VbyteHeap * heap ) {
     return heap->StartVbyte;
 }
-
 
 // Returns the size of the string in bytes
@@ -759 +762 @@
     NoBytes = ( uintptr_t )EndVbyte + size;
     if ( NoBytes > ( uintptr_t )ExtVbyte ) {            // enough room for new byte-string ?
-                garbage( this );                                        // firer up the garbage collector
+                garbage( this, size );                                  // firer up the garbage collector
                 NoBytes = ( uintptr_t )EndVbyte + size;         // try again
                 if ( NoBytes > ( uintptr_t )ExtVbyte ) {        // enough room for new byte-string ?
-// unimplemented feature - assert, not verify
-assert( 0 && "need to implement actual growth" );
-                        // extend( size );                              // extend the byte-string area
+            assert( 0 && "garbage run did not free up required space" );
                 } // if
     } // if
@@ -925 +926 @@
 // the heap.  The heap is then compacted in the existing heap or into the newly allocated heap.
 
-void garbage(VbyteHeap & this ) with(this) {
+void garbage(VbyteHeap & this, int minreq ) with(this) {
 #ifdef VbyteDebug
     serr | "enter:garbage";
@@ -949 +950 @@
     AmountFree = ( uintptr_t )ExtVbyte - ( uintptr_t )StartVbyte - AmountUsed;
     
-    if ( AmountFree < ( int )( CurrSize * 0.1 )) {      // free space less than 10% ?
-
-// unimplemented feature - assert, not verify
-assert( 0 && "need to implement actual growth" );
-//              extend( CurrSize );                             // extend the heap
+    if ( ( double ) AmountFree < ( CurrSize * 0.1 ) || AmountFree < minreq ) {  // free space less than 10%  or not enough to serve cur request
+
+                extend( this, max( CurrSize, minreq ) );                                // extend the heap
 
                         //  Peter says, "This needs work before it should be used."
@@ -980 +979 @@
 #undef VbyteDebug
 
-//WIP
-#if 0
 
 
@@ -987 +984 @@
 // area is deleted.
 
-void VbyteHeap::extend( int size ) {
+void extend( VbyteHeap & this, int size ) with (this) {
 #ifdef VbyteDebug
     serr | "enter:extend, size:" | size;
@@ -997 +994 @@
     
     CurrSize += size > InitSize ? size : InitSize;      // minimum extension, initial size
-    StartVbyte = EndVbyte = new char[CurrSize];
+    StartVbyte = EndVbyte = alloc(CurrSize);
     ExtVbyte = (void *)( StartVbyte + CurrSize );
-    compaction();                                       // copy from old heap to new & adjust pointers to new heap
-    delete OldStartVbyte;                               // release old heap
+    compaction(this);                                   // copy from old heap to new & adjust pointers to new heap
+    free( OldStartVbyte );                              // release old heap
 #ifdef VbyteDebug
     serr | "exit:extend, CurrSize:" | CurrSize;
@@ -1006 +1003 @@
 } // extend
 
+//WIP
+#if 0
 
 // Extend the size of the byte-string area by creating a new area and copying the old area into it. The old byte-string

libcfa/src/containers/string_res.hfa

@@ -34 +34 @@
 
 VbyteHeap * DEBUG_string_heap();
+size_t DEBUG_string_bytes_in_heap( VbyteHeap * heap );
 size_t DEBUG_string_bytes_avail_until_gc( VbyteHeap * heap );
 const char * DEBUG_string_heap_start( VbyteHeap * heap );