Rename Alloc_Series_Node() to Alloc_Stub()

Stub is a relatively new term, and is what should have been used in naming this routine.
jacereda · Aug 4, 2023 · 55100df · 55100df
1 parent 6926f08
commit 55100df
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/src/core/c-word.c b/src/core/c-word.c
@@ -271,7 +271,7 @@ Symbol(const*) Intern_UTF8_Managed_Core(
   new_interning: {
 
     Binary(*) s = BIN(Make_Series_Into(
-        preallocated ? unwrap(preallocated) : Alloc_Series_Node(),
+        preallocated ? unwrap(preallocated) : Alloc_Stub(),
         size + 1,  // if small, fits in a REBSER node (no data allocation)
         FLAG_FLAVOR(SYMBOL) | SERIES_FLAG_FIXED_SIZE | NODE_FLAG_MANAGED
     ));

diff --git a/src/core/evaluator/c-action.c b/src/core/evaluator/c-action.c
@@ -1233,7 +1233,7 @@ void Push_Action(
     assert(f->varlist == nullptr);
 
     Stub* s = Prep_Stub(
-        Alloc_Series_Node(),  // not preallocated
+        Alloc_Stub(),  // not preallocated
         SERIES_MASK_VARLIST
             | SERIES_FLAG_FIXED_SIZE // FRAME!s don't expand ATM
     );

diff --git a/src/include/datatypes/sys-array.h b/src/include/datatypes/sys-array.h
@@ -235,7 +235,7 @@ inline static Array(*) Make_Array_Core_Into(
 }
 
 #define Make_Array_Core(capacity,flags) \
-    Make_Array_Core_Into(Alloc_Series_Node(), (capacity), (flags))
+    Make_Array_Core_Into(Alloc_Stub(), (capacity), (flags))
 
 #define Make_Array(capacity) \
     Make_Array_Core((capacity), ARRAY_MASK_HAS_FILE_LINE)

diff --git a/src/include/datatypes/sys-context.h b/src/include/datatypes/sys-context.h
@@ -691,7 +691,7 @@ inline static Context(*) Steal_Context_Vars(Context(*) c, Node* keysource) {
     // etc.--use constant assignments and only copy the remaining fields.
     //
     Stub* copy = Prep_Stub(
-        Alloc_Series_Node(),  // not preallocated
+        Alloc_Stub(),  // not preallocated
         SERIES_MASK_VARLIST
             | SERIES_FLAG_FIXED_SIZE
     );

diff --git a/src/include/sys-node.h b/src/include/sys-node.h
@@ -185,8 +185,8 @@ inline static void *Alloc_Pooled(PoolID pool_id) {
     fail (Error_No_Memory(pool->wide * pool->num_units_per_segment));
 }
 
-#define Alloc_Series_Node() ( \
-    (GC_Ballast -= sizeof(REBSER)) <= 0 ? SET_SIGNAL(SIG_RECYCLE) : NOOP, \
+#define Alloc_Stub() ( \
+    (GC_Ballast -= sizeof(Stub)) <= 0 ? SET_SIGNAL(SIG_RECYCLE) : NOOP, \
     Alloc_Pooled(STUB_POOL))  // won't pass SER() yet, don't cast it