From 526c93bc2ea98ce589bb46a20ed4eda5da8b29ae Mon Sep 17 00:00:00 2001
From: Camm Maguire <camm@debian.org>
Date: Sun, 13 Nov 2022 12:55:14 +0000
Subject: [PATCH] <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-4) unstable; urgency=medium

  * Version_2_6_13pre3

Gbp-Pq: Name Version_2_6_13pre3a
---
 h/bsd.h   |  2 +-
 o/alloc.c | 10 +---------
 2 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/h/bsd.h b/h/bsd.h
index 42026de..83b8dd0 100755
--- a/h/bsd.h
+++ b/h/bsd.h
@@ -33,7 +33,7 @@ filecpy(save, original, stsize - sizeof(stsize))
 
 extern char etext;
 
-#define INIT_ALLOC heap_end = core_end = sbrk(0);
+#define INIT_ALLOC heap_end = core_end = PCEI(sbrk(0),PAGESIZE);
 
 #define SYM_EXTERNAL_P(sym) ((sym)->n_type & N_EXT)
      
diff --git a/o/alloc.c b/o/alloc.c
index be37dee..963bff4 100644
--- a/o/alloc.c
+++ b/o/alloc.c
@@ -229,9 +229,7 @@ alloc_page(long n) {
   
   if (!s) {
 
-    if (nn>(holepage - (in_signal_handler? 0 :
-		       available_pages-n<=reserve_pages_for_signal_handler ? 0 : 
-		       reserve_pages_for_signal_handler))) {
+    if (nn>holepage) {
 
 
       fixnum d=available_pages-nn;
@@ -241,12 +239,6 @@ alloc_page(long n) {
       d=d<0 ? 0 : d;
       d=new_holepage<d ? new_holepage : d;
       
-      if (in_signal_handler)/*FIXME*/
-	fprintf(stderr,"Can't do relocatable gc in signal handler. \
-Try to allocate more space to save for allocation during signals: \
-eg to add 20 more do (si::set-hole-size %ld %d)\n...start over ", 
-		new_holepage, 20+ reserve_pages_for_signal_handler); fflush(stderr); exit(1);
-
       resize_hole(d+nn,t_relocatable);
 
     }
-- 
2.30.2