Import Debian changes 5c3-5debian/5c3-5

scm (5c3-5) frozen unstable; urgency=low

  * debian/rules chmod +x's bld.scm. Fixes #30521.

scm (5c3-4) frozen unstable; urgency=low

  * Made bld.scm executable.  Fixes #29578.

scm (5c3-3) frozen unstable; urgency=low

  * -nw
  * Fixes #16762. 
  * Fixes #18163.
  * Fixes #18164.
  * Fixes #23743.
  * Fixes #24098.
  * Fixes #24099.
  * Fixes #24547.

scm (5c3-2) frozen unstable; urgency=low

  * Re-uploading for slink freeze.

scm (5c3-1) unstable; urgency=low

  * New upstream version.

1 files changed, 24 insertions, 11 deletions

diff --git a/setjump.h b/setjump.h
index 17caa49..09a1377 100644
--- a/setjump.h
+++ b/setjump.h
@@ -74,7 +74,7 @@
    is in init_storage() and alloc_some_heap() in sys.c
 
    If INIT_HEAP_SIZE can be allocated initially, the heap will grow by
-   EXPHEAP(heap_size) when more heap is needed.
+   EXPHEAP(heap_cells) when more heap is needed.
 
    MIN_HEAP_SEG_SIZE is minimum size of heap to accept when more heap
    is needed.
@@ -93,21 +93,39 @@
 #  define HEAP_SEG_SIZE (8100L*sizeof(cell))
 # endif
 #endif
-#define EXPHEAP(heap_size) (heap_size*2)
+#define EXPHEAP(heap_cells) (heap_cells*2)
 #define INIT_MALLOC_LIMIT 100000
 
+/* ECACHE_SIZE is the number of cells in the copy-collected environment
+   cache used for environment frames */
+#define ECACHE_SIZE 2000
+
+/* If fewer than MIN_GC_YIELD cells are recovered during a
+   cell-requested garbage collection (GC), then another heap segment
+   is allocated. */
+
+#define MIN_GC_YIELD (heap_cells / 4)
+
+/* If fewer than MIN_MALLOC_YIELD cells are free after a
+   malloc-requested garbage collection (GC), then the mtrigger limit
+   is raised. */
+
+#define MIN_MALLOC_YIELD (mtrigger / 8)
+
+/* NUM_HASH_BUCKETS is the number of symbol hash table buckets.  */
+
+#define NUM_HASH_BUCKETS 137
+
 #ifdef IN_CONTINUE_C
 # include "scm.h"
 # define malloc(size) must_malloc((long)(size), s_cont)
-# define free(obj) must_free((char *)(obj))
+# define free(obj) must_free((char *)(obj), 0)
 #endif
 
 /* other.dynenv and other.parent get GCed just by being there.  */
 struct scm_other {SCM dynenv;
 		  SCM parent;
-#ifdef CAUTIOUS
-		  SCM stack_trace;
-#endif
+                  SCM env;
 		};
 #define CONTINUATION_OTHER struct scm_other
 #define CONT(x) ((CONTINUATION *)CDR(x))
@@ -115,8 +133,3 @@ struct scm_other {SCM dynenv;
 void dowinds P((SCM to, long delta));
 
 #include "continue.h"
-
-/* See scm.h for definition of P */
-void  mark_locations P((STACKITEM x[], sizet n ));
-void	scm_dynthrow P((CONTINUATION *cont, SCM val));
-#define s_cont (ISYMCHARS(IM_CONT)+20)