Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 gcl27 (2.7.0-23) unstable; urgency=medium
 .
   * Version_2_7_0pre26
Author: Camm Maguire <camm@debian.org>

---
The information above should follow the Patch Tagging Guidelines, please
checkout https://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: (upstream|backport|vendor|other), (<patch-url>|commit:<commit-id>)
Bug: <upstream-bugtracker-url>
Bug-Debian: https://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: (no|not-needed|<patch-forwarded-url>)
Applied-Upstream: <version>, (<commit-url>|commit:<commid-id>)
Reviewed-By: <name and email of someone who approved/reviewed the patch>
Last-Update: 2024-04-29

--- gcl27-2.7.0.orig/git.tag
+++ gcl27-2.7.0/git.tag
@@ -1,2 +1,2 @@
-"Version_2_7_0pre25"
+"Version_2_7_0pre26"
 
--- gcl27-2.7.0.orig/o/alloc.c
+++ gcl27-2.7.0/o/alloc.c
@@ -316,20 +316,6 @@ int reserve_pages_for_signal_handler=30;
  */
 
 void
-empty_relblock(void) {
-
-  object o=sSAleaf_collection_thresholdA->s.s_dbind;
-  
-  sSAleaf_collection_thresholdA->s.s_dbind=make_fixnum(0);
-  for (;!rb_emptyp();) {
-    tm_table[t_relocatable].tm_adjgbccnt--;
-    GBC(t_relocatable);
-  }
-  sSAleaf_collection_thresholdA->s.s_dbind=o;
-
-}
-
-void
 setup_rb(bool preserve_rb_pointerp) {
 
   int lowp=rb_high();
@@ -705,6 +691,21 @@ reset_contblock_freelist(void) {
   
 }
 
+void
+empty_relblock(void) {
+
+  object o=sSAleaf_collection_thresholdA->s.s_dbind;
+
+  sSAleaf_collection_thresholdA->s.s_dbind=make_fixnum(0);
+  for (;!rb_emptyp();) {
+    tm_table[t_relocatable].tm_adjgbccnt--;
+    expand_contblock_index_space();
+    GBC(t_relocatable);
+  }
+  sSAleaf_collection_thresholdA->s.s_dbind=o;
+
+}
+
 static inline void *
 alloc_from_freelist(struct typemanager *tm,fixnum n) {
 
