<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 42026de83fd8737c9305290b88052d2e484c2e38..83b8dd052594a786c028204d3dd329615d09b920 100755 (executable)
--- 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 be37deecee536aad6024bbdba24a67e72287f08c..963bff4436bbb8b0f77a66d578e5940b0470a673 100644 (file)
--- 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);
 
     }