1.0.42.40: replace hardcoded FD-SETSIZE with a groveled one

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index e7cd25e..408f522 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -133,9 +133,6 @@ corresponds to NAME, or NIL if there is none."
 ;;; layer.
 (define-alien-type fd-mask unsigned-long)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant fd-setsize 1024))
-
 (define-alien-type nil
   (struct fd-set
           (fds-bits (array fd-mask #.(/ fd-setsize

diff --git a/tools-for-build/grovel-headers.c b/tools-for-build/grovel-headers.c
index e93b2e1..3c3cebc 100644 (file)
--- a/tools-for-build/grovel-headers.c
+++ b/tools-for-build/grovel-headers.c
@@ -41,6 +41,7 @@
 #endif
 
 #include <sys/stat.h>
+#include <sys/select.h>
 #include <fcntl.h>
 #include <unistd.h>
 #include <signal.h>
@@ -249,6 +250,8 @@ main(int argc, char *argv[])
 
     printf("(in-package \"SB!UNIX\")\n\n");
 
+    defconstant("fd-setsize", FD_SETSIZE);
+
     printf(";;; langinfo\n");
     defconstant("codeset", CODESET);
 

diff --git a/version.lisp-expr b/version.lisp-expr
index 429c5bf..ec00dba 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.42.39"
+"1.0.42.40"