From: Nikodemus S. <de...@us...> - 2009-11-19 16:08:49
|
Update of /cvsroot/sbcl/sbcl/tools-for-build In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9826/tools-for-build Modified Files: grovel-headers.c Log Message: 1.0.32.33: GENCGC tuning parameters * Define +HIGHEST-NORMAL-GENERATION+ and +PSEUDO-STATIC-GENERATION+ in lisp, and let genesis tell C about them. * Make various generations[gen].foo tweakable from lisp, give them nice interface functions and document the same. * Bits of manual prettification in related parts. Index: grovel-headers.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/tools-for-build/grovel-headers.c,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- grovel-headers.c 13 May 2009 13:58:32 -0000 1.37 +++ grovel-headers.c 19 Nov 2009 16:08:38 -0000 1.38 @@ -57,6 +57,7 @@ #endif #include "wrap.h" +#include "gc.h" #define DEFTYPE(lispname,cname) { cname foo; \ printf("(define-alien-type " lispname " (%s %d))\n", (((foo=-1)<0) ? "sb!alien:signed" : "unsigned"), (8 * (sizeof foo))); } @@ -437,10 +438,11 @@ defconstant("fpe-fltsub", -1); #endif #endif // !WIN32 + printf("\n"); #ifdef LISP_FEATURE_BSD printf(";;; sysctl(3) names\n"); - printf("(in-package \"SB!IMPL\")\n\n"); + printf("(in-package \"SB!IMPL\")\n"); defconstant("ctl-kern", CTL_KERN); defconstant("ctl-hw", CTL_HW); defconstant("ctl-maxname", CTL_MAXNAME); @@ -450,5 +452,14 @@ defconstant("hw-pagesize", HW_PAGESIZE); printf("\n"); #endif + +#ifdef LISP_FEATURE_GENCGC + printf(";;; GENCGC related\n"); + printf("(in-package \"SB!KERNEL\")\n"); + DEFTYPE("page-index-t", page_index_t); + DEFTYPE("generation-index-t", generation_index_t); + printf("\n"); +#endif + return 0; } |