From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 19 Sep 2010 13:36:30 +0000 (+0000)
Subject: 1.0.42.40: replace hardcoded FD-SETSIZE with a groveled one
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ff257d8d6acc59dee58eca6a284aced4506f727b;p=sbcl.git

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
--- 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
--- 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
--- 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"