[Sbcl-commits] CVS: sbcl/tools-for-build grovel-headers.c,1.12.2.5,1.12.2.6

[Cyrus H. <sl...@us...>]

Update of /cvsroot/sbcl/sbcl/tools-for-build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7348

Modified Files:
      Tag: lutex-branch
	grovel-headers.c 
Log Message:
0.9.10.46.lutex-branch.32
   * remove various semamphore (and Carbon and mach) includes that are
     no longer necessary


Index: grovel-headers.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tools-for-build/grovel-headers.c,v
retrieving revision 1.12.2.5
retrieving revision 1.12.2.6
diff -u -d -r1.12.2.5 -r1.12.2.6
--- grovel-headers.c	29 Mar 2006 08:30:44 -0000	1.12.2.5
+++ grovel-headers.c	21 Apr 2006 22:28:08 -0000	1.12.2.6
@@ -43,18 +43,9 @@
 #include <unistd.h>
 #include <signal.h>
 #include <errno.h>
-#include <semaphore.h>
 
 #include "genesis/config.h"
 
-#if defined(LISP_FEATURE_SB_LUTEX)
-#if defined(LISP_FEATURE_CARBON_SEMAPHORES)
-#include <CoreServices/CoreServices.h>
-#elif defined(LISP_FEATURE_MACH_SEMAPHORES)
-#include <mach/semaphore.h>
-#endif
-#endif
-
 #define DEFTYPE(lispname,cname) { cname foo; \
     printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "sb!alien:signed" : "unsigned"), (8 * (sizeof foo))); }
 
@@ -95,21 +86,6 @@
 
     defconstant ("input-record-size", sizeof (INPUT_RECORD));
 #else
-
-#if defined(LISP_FEATURE_SB_THREAD) && defined(LISP_FEATURE_SB_LUTEX)
-    printf("(in-package \"SB!THREAD\")\n\n");
-
-    printf(";;; C-land sizes\n");
-#if defined(LISP_FEATURE_MACH_SEMAPHORES)
-    defconstant ("semaphore-length", sizeof(semaphore_t));
-#elif defined(LISP_FEATURE_CARBON_SEMAPHORES)
-    defconstant ("semaphore-length", sizeof(MPSemaphoreID));
-#else
-    defconstant ("semaphore-length", sizeof(sem_t));
-#endif
-
-#endif
-
     printf("(in-package \"SB!ALIEN\")\n\n");
 
     printf (";;;flags for dlopen()\n");