From: Camm Maguire <camm@debian.org>
Date: Sun, 31 Jul 2022 16:00:02 +0000 (+0100)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.6.12-119+rpi1^2~130
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=48813b152e12b0c6e148db2f36b33f22d9b8b401;p=gcl.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-4) unstable; urgency=medium

  * Version_2_6_13pre3

Gbp-Pq: Name Version_2_6_13pre3a
---

diff --git a/h/bsd.h b/h/bsd.h
index 42026de8..83b8dd05 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 be37deec..963bff44 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);
 
     }