From: Camm Maguire <camm@debian.org>
Date: Sun, 13 Nov 2022 12:55:14 +0000 (+0000)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.7.1-4+rpi1~2^2^2~118
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=aff958b26377501654fcb1d09ec7ed9944feb605;p=gcl27.git

<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.

gcl (2.6.12-23) unstable; urgency=medium

  * Version_2_6_13pre28

Gbp-Pq: Name Version_2_6_13pre29
---

diff --git a/o/alloc.c b/o/alloc.c
index 4a0a321..8518d2b 100644
--- a/o/alloc.c
+++ b/o/alloc.c
@@ -1203,8 +1203,8 @@ object malloc_list=Cnil;
 
 void
 maybe_set_hole_from_maxpages(void) {
-  if (rb_start==heap_end && rb_end==rb_start && rb_limit==rb_start && rb_pointer==rb_start)
-    resize_hole(available_pages/3,t_relocatable,0);
+  if (rb_pointer==rb_begin())
+    resize_hole(ufmin(phys_pages,available_pages/3),t_relocatable,0);
 }
 
 void
@@ -1358,7 +1358,7 @@ gcl_init_alloc(void *cs_start) {
   set_tm_maxpage(tm_table+t_relocatable,1);
   nrbpage=0;
   
-  resize_hole(ufmin(phys_pages,available_pages/3),t_relocatable,0);
+  maybe_set_hole_from_maxpages();
 #ifdef SGC	
   tm_table[(int)t_relocatable].tm_sgc = 50;
 #endif