stack-limit: impose minimum limit.

* gc.c (MIN_STACK_LIMIT): New preprocessor symbol.
(gc_init): If the system stack limit is too low, don't
treat that the same way as a missing or unlimited limit.
Instead clamp to the minimum value and hope for the best.
So that is to say, the system limit cannot be used as a
mechanism to set a ridiculously low stack limit in TXR; the
only way to do that is to use the set-stack-limit function.

* txr.1: Documentation updated. Also fixed 326767 typo which
should be 32767.

1 files changed, 9 insertions, 3 deletions

diff --git a/gc.c b/gc.c
index 924d7d65..d29c3596 100644
--- a/gc.c
+++ b/gc.c
@@ -28,6 +28,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <stdarg.h>
+#include <stddef.h>
 #include <assert.h>
 #include <wchar.h>
 #include <signal.h>
@@ -68,6 +69,8 @@
 #define DFL_STACK_LIMIT         (16384 * 1024L)
 #endif
 
+#define MIN_STACK_LIMIT         32768
+
 #if HAVE_MEMALIGN || HAVE_POSIX_MEMALIGN
 #define OBJ_ALIGN (sizeof (obj_t))
 #else
@@ -899,9 +902,12 @@ void gc_init(val *stack_bottom)
 #if HAVE_RLIMIT
   struct rlimit rl;
   if (getrlimit(RLIMIT_STACK, &rl) == 0) {
-    if (rl.rlim_cur != RLIM_INFINITY && rl.rlim_cur > 512 * 1024) {
-      rlim_t lim = (rl.rlim_cur - rl.rlim_cur / 16) / sizeof (val);
-      gc_stack_limit = gc_stack_bottom - lim;
+    rlim_t lim = rl.rlim_cur;
+    if (lim != RLIM_INFINITY) {
+      ptrdiff_t delta = (lim >= MIN_STACK_LIMIT
+                         ? (lim - lim / 16)
+                         : MIN_STACK_LIMIT) / sizeof (val);
+      gc_stack_limit = gc_stack_bottom - delta;
     }
   }
 #endif