cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/code (intl.lisp)
by Raymond Toy 20 Dec '10

20 Dec '10

Date: Monday, December 20, 2010 @ 08:40:10 Author: rtoy Path: /project/cmucl/cvsroot/src/code Tag: cross-sol-x86-branch Modified: intl.lisp Merge fix from HEAD branch. -----------+ intl.lisp | 74 ++++++++++++++++++++++++++++++------------------------------ 1 file changed, 37 insertions(+), 37 deletions(-) Index: src/code/intl.lisp diff -u src/code/intl.lisp:1.10 src/code/intl.lisp:1.10.2.1 --- src/code/intl.lisp:1.10 Sun Dec 12 19:19:38 2010 +++ src/code/intl.lisp Mon Dec 20 08:40:10 2010 @@ -1,6 +1,6 @@ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*- -;;; $Revision: 1.10 $ +;;; $Revision: 1.10.2.1 $ ;;; Copyright 1999-2010 Paul Foley (mycroft(a)actrix.gen.nz) ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining @@ -23,7 +23,7 @@ ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH ;;; DAMAGE. -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/intl.lisp,v 1.10 2010-12-13 00:19:38 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/intl.lisp,v 1.10.2.1 2010-12-20 13:40:10 rtoy Exp $") (in-package "INTL") @@ -468,42 +468,42 @@ (defun domain-lookup-plural (singular plural domain) (declare (type string singular plural) (type domain-entry domain) #+(or)(optimize (speed 3) (space 2) (safety 0))) - (or (if (null (domain-entry-encoding domain)) nil) - (gethash (cons singular plural) (domain-entry-hash domain)) - (let* ((octets (let* ((a (string-to-octets singular - (domain-entry-encoding domain))) - (b (string-to-octets plural - (domain-entry-encoding domain))) - (c (make-array (+ (length a) (length b) 1) - :element-type '(unsigned-byte 8)))) - (declare (type (simple-array (unsigned-byte 8) (*)) - a b c)) - (replace c a) - (setf (aref c (length a)) 0) - (replace c b :start1 (+ (length a) 1)) - c)) - (length (length octets)) - (pos (gethash length (domain-entry-hash domain)))) - (declare (type (simple-array (unsigned-byte 8) (*)) octets) - (type list pos)) - (multiple-value-bind (tmp entry) (search-domain octets domain pos) - (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp)) - (when tmp - (prog1 - (setf (gethash (cons (copy-seq singular) (copy-seq plural)) - (domain-entry-hash domain)) - (loop for i = 0 then (1+ j) + (when (domain-entry-encoding domain) + (or (gethash (cons singular plural) (domain-entry-hash domain)) + (let* ((octets (let* ((a (string-to-octets singular + (domain-entry-encoding domain))) + (b (string-to-octets plural + (domain-entry-encoding domain))) + (c (make-array (+ (length a) (length b) 1) + :element-type '(unsigned-byte 8)))) + (declare (type (simple-array (unsigned-byte 8) (*)) + a b c)) + (replace c a) + (setf (aref c (length a)) 0) + (replace c b :start1 (+ (length a) 1)) + c)) + (length (length octets)) + (pos (gethash length (domain-entry-hash domain)))) + (declare (type (simple-array (unsigned-byte 8) (*)) octets) + (type list pos)) + (multiple-value-bind (tmp entry) (search-domain octets domain pos) + (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp)) + (when tmp + (prog1 + (setf (gethash (cons (copy-seq singular) (copy-seq plural)) + (domain-entry-hash domain)) + (loop for i = 0 then (1+ j) as j = (position 0 tmp :start i) - collect (octets-to-string (subseq tmp i j) - (domain-entry-encoding domain)) - while j)) - (let ((temp (delete entry pos :test #'eq))) - (if temp - (setf (gethash length (domain-entry-hash domain)) temp) - (remhash length (domain-entry-hash domain)))) - (when (null (domain-entry-plurals domain)) - (setf (domain-entry-plurals domain) - (parse-plurals domain))))))))) + collect (octets-to-string (subseq tmp i j) + (domain-entry-encoding domain)) + while j)) + (let ((temp (delete entry pos :test #'eq))) + (if temp + (setf (gethash length (domain-entry-hash domain)) temp) + (remhash length (domain-entry-hash domain)))) + (when (null (domain-entry-plurals domain)) + (setf (domain-entry-plurals domain) + (parse-plurals domain)))))))))) (declaim (inline getenv) (ftype (function (string) (or null string)) getenv))

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (gencgc.c)
by Raymond Toy 20 Dec '10

20 Dec '10

Date: Monday, December 20, 2010 @ 08:25:23 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch Modified: gencgc.c Fix typo (missing paren). ----------+ gencgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.110.6.2 src/lisp/gencgc.c:1.110.6.3 --- src/lisp/gencgc.c:1.110.6.2 Sun Dec 19 23:12:57 2010 +++ src/lisp/gencgc.c Mon Dec 20 08:25:22 2010 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.2 2010-12-20 04:12:57 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.3 2010-12-20 13:25:22 rtoy Exp $ * */ @@ -3444,7 +3444,7 @@ closure = (struct closure *) where; fun = closure->function - RAW_ADDR_OFFSET; -#if !(defined(x86) && defined(SOLARIS) +#if !(defined(i386) && defined(SOLARIS)) scavenge(&fun, 1); /* The function may have moved so update the raw address. But don't write unnecessarily. */

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (solaris-os.c)
by Raymond Toy 20 Dec '10

20 Dec '10

Date: Sunday, December 19, 2010 @ 23:17:28 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch Modified: solaris-os.c o #include internals.h before including gencgc.h to get rid of a #warning about struct code being used. o Ifdef out fprintf's. o Add implementation of os_sigcontext_fpu_modes. This needs testing! --------------+ solaris-os.c | 43 +++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 41 insertions(+), 2 deletions(-) Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.26.4.3 src/lisp/solaris-os.c:1.26.4.4 --- src/lisp/solaris-os.c:1.26.4.3 Sat Dec 18 11:19:39 2010 +++ src/lisp/solaris-os.c Sun Dec 19 23:17:28 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.3 2010-12-18 16:19:39 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.4 2010-12-20 04:17:28 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -32,6 +32,8 @@ #if defined(GENCGC) #include "lisp.h" +/* Need struct code defined to get rid of warning from gencgc.h */ +#include "internals.h" #include "gencgc.h" #endif @@ -506,8 +508,9 @@ unsigned long * os_sigcontext_reg(ucontext_t *scp, int index) { +#if 0 fprintf(stderr, "os_sigcontext_reg index = %d\n", index); - +#endif switch (index) { case 0: return (unsigned long *) &scp->uc_mcontext.gregs[EAX]; @@ -532,8 +535,44 @@ unsigned long * os_sigcontext_pc(ucontext_t *scp) { +#if 0 fprintf(stderr, "os_sigcontext_pc = %p\n", scp->uc_mcontext.gregs[EIP]); +#endif return (unsigned long *) &scp->uc_mcontext.gregs[EIP]; } +unsigned int +os_sigcontext_fpu_modes(ucontext_t *scp) +{ + unsigned int modes; + unsigned short cw, sw; + fpregset_t *fpr; + unsigned int state; + + fpr = &scp->uc_mcontext.fpregs; + + state = fpr->fp_reg_set.fpchip_state.state[0]; + + cw = state & 0xffff; + sw = (state >> 16) & 0xffff; + + modes = ((cw & 0x3f) << 7) | (sw & 0x3f); + +#ifdef FEATURE_SSE2 + /* + * Add in the SSE2 part, if we're running the sse2 core. + */ + if (fpu_mode == SSE2) { + unsigned long mxcsr; + + mxcsr = fpr->fp_reg_set.fpchip_state.mxcsr; + DPRINTF(0, (stderr, "SSE2 modes = %08lx\n", mxcsr)); + + modes |= mxcsr; + } +#endif + + modes ^= (0x3f << 7); + return modes; +} #endif

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (gencgc.c)
by Raymond Toy 20 Dec '10

20 Dec '10

Date: Sunday, December 19, 2010 @ 23:12:58 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch Modified: gencgc.c o Turn GC_ASSERTIONS for now. o Turn off other verbose checking and debugging. o In scav_closure_header, check if the closure function is zero and skip scavenging it if so. Only do this for solaris/x86; it doesn't seem to be a problem on other OSes. But leave some of the debugging stuff around but disabled for now, just in case. ----------+ gencgc.c | 55 ++++++++++++++++++++++++++++++++++++++++++++----------- 1 file changed, 44 insertions(+), 11 deletions(-) Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.110.6.1 src/lisp/gencgc.c:1.110.6.2 --- src/lisp/gencgc.c:1.110.6.1 Wed Dec 15 07:53:45 2010 +++ src/lisp/gencgc.c Sun Dec 19 23:12:57 2010 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.1 2010-12-15 12:53:45 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.2 2010-12-20 04:12:57 rtoy Exp $ * */ @@ -150,8 +150,7 @@ /* Define for activating assertions. */ -#define GC_ASSERTIONS 1 -#if defined(DARWIN) +#if defined(x86) && defined(SOLARIS) #define GC_ASSERTIONS 1 #endif @@ -241,7 +240,7 @@ * The verbose level. All non-error messages are disabled at level 0; * and only a few rare messages are printed at level 1. */ -unsigned gencgc_verbose = 1; +unsigned gencgc_verbose = 0; unsigned counters_verbose = 0; /* @@ -267,7 +266,7 @@ * makes GC very, very slow, so don't enable this unless you really * need it!) */ -boolean pre_verify_gen_0 = TRUE; +boolean pre_verify_gen_0 = FALSE; /* * Enable checking for bad pointers after gc_free_heap called from purify. @@ -275,7 +274,7 @@ #if 0 && defined(DARWIN) boolean verify_after_free_heap = TRUE; #else -boolean verify_after_free_heap = TRUE; +boolean verify_after_free_heap = FALSE; #endif /* @@ -288,7 +287,7 @@ * Enable the checking of code objects for fixup errors after they are * transported. (Only used for x86.) */ -boolean check_code_fixups = TRUE; +boolean check_code_fixups = FALSE; /* * To enable unmapping of a page and re-mmaping it to have it zero filled. @@ -308,8 +307,8 @@ boolean gencgc_zero_check = TRUE; boolean gencgc_enable_verify_zero_fill = TRUE; #else -boolean gencgc_zero_check = TRUE; -boolean gencgc_enable_verify_zero_fill = TRUE; +boolean gencgc_zero_check = FALSE; +boolean gencgc_enable_verify_zero_fill = FALSE; #endif /* @@ -319,7 +318,7 @@ #if 0 && defined(DARWIN) boolean gencgc_zero_check_during_free_heap = TRUE; #else -boolean gencgc_zero_check_during_free_heap = TRUE; +boolean gencgc_zero_check_during_free_heap = FALSE; #endif /* @@ -3445,12 +3444,46 @@ closure = (struct closure *) where; fun = closure->function - RAW_ADDR_OFFSET; +#if !(defined(x86) && defined(SOLARIS) scavenge(&fun, 1); /* The function may have moved so update the raw address. But don't write unnecessarily. */ if (closure->function != fun + RAW_ADDR_OFFSET) closure->function = fun + RAW_ADDR_OFFSET; - +#else + /* + * For some reason, on solaris/x86, we get closures (actually, it + * appears to be funcallable instances where the closure function + * is zero. I don't know why, but they are. They don't seem to + * be created anywhere and it doesn't seem to be caused by GC + * transport. + * + * Anyway, we check for zero and skip scavenging if so. + * (Previously, we'd get a segfault scavenging the object at + * address -RAW_ADDR_OFFSET. + */ + if (fun) { + scavenge(&fun, 1); + /* + * The function may have moved so update the raw address. But don't + * write unnecessarily. + */ + if (closure->function != fun + RAW_ADDR_OFFSET) { +#if 0 + fprintf(stderr, "closure header 0x%04x moved from %p to %p\n", + closure->header, (void*) closure->function, (void*) (fun + RAW_ADDR_OFFSET)); +#endif + closure->function = fun + RAW_ADDR_OFFSET; + } + } +#if 0 + else { + fprintf(stderr, "Weird closure!\n"); + fprintf(stderr, " where = %p, object = 0x%04x\n", where, object); + fprintf(stderr, " closure->function = %p, fun = %p\n", closure->function, fun); + } +#endif +#endif return 2; }

1 0

[cmucl-cvs] CMUCL commit: src/code (intl.lisp)
by Raymond Toy 19 Dec '10

19 Dec '10

Date: Saturday, December 18, 2010 @ 22:01:48 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: intl.lisp Oops. If the domain-entry-encoding is NIL, we just want to return NIL. (From Paul Foley.) -----------+ intl.lisp | 74 ++++++++++++++++++++++++++++++------------------------------ 1 file changed, 37 insertions(+), 37 deletions(-) Index: src/code/intl.lisp diff -u src/code/intl.lisp:1.10 src/code/intl.lisp:1.11 --- src/code/intl.lisp:1.10 Sun Dec 12 19:19:38 2010 +++ src/code/intl.lisp Sat Dec 18 22:01:47 2010 @@ -1,6 +1,6 @@ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: INTL -*- -;;; $Revision: 1.10 $ +;;; $Revision: 1.11 $ ;;; Copyright 1999-2010 Paul Foley (mycroft(a)actrix.gen.nz) ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining @@ -23,7 +23,7 @@ ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH ;;; DAMAGE. -(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/intl.lisp,v 1.10 2010-12-13 00:19:38 rtoy Exp $") +(ext:file-comment "$Header: /project/cmucl/cvsroot/src/code/intl.lisp,v 1.11 2010-12-19 03:01:47 rtoy Exp $") (in-package "INTL") @@ -468,42 +468,42 @@ (defun domain-lookup-plural (singular plural domain) (declare (type string singular plural) (type domain-entry domain) #+(or)(optimize (speed 3) (space 2) (safety 0))) - (or (if (null (domain-entry-encoding domain)) nil) - (gethash (cons singular plural) (domain-entry-hash domain)) - (let* ((octets (let* ((a (string-to-octets singular - (domain-entry-encoding domain))) - (b (string-to-octets plural - (domain-entry-encoding domain))) - (c (make-array (+ (length a) (length b) 1) - :element-type '(unsigned-byte 8)))) - (declare (type (simple-array (unsigned-byte 8) (*)) - a b c)) - (replace c a) - (setf (aref c (length a)) 0) - (replace c b :start1 (+ (length a) 1)) - c)) - (length (length octets)) - (pos (gethash length (domain-entry-hash domain)))) - (declare (type (simple-array (unsigned-byte 8) (*)) octets) - (type list pos)) - (multiple-value-bind (tmp entry) (search-domain octets domain pos) - (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp)) - (when tmp - (prog1 - (setf (gethash (cons (copy-seq singular) (copy-seq plural)) - (domain-entry-hash domain)) - (loop for i = 0 then (1+ j) + (when (domain-entry-encoding domain) + (or (gethash (cons singular plural) (domain-entry-hash domain)) + (let* ((octets (let* ((a (string-to-octets singular + (domain-entry-encoding domain))) + (b (string-to-octets plural + (domain-entry-encoding domain))) + (c (make-array (+ (length a) (length b) 1) + :element-type '(unsigned-byte 8)))) + (declare (type (simple-array (unsigned-byte 8) (*)) + a b c)) + (replace c a) + (setf (aref c (length a)) 0) + (replace c b :start1 (+ (length a) 1)) + c)) + (length (length octets)) + (pos (gethash length (domain-entry-hash domain)))) + (declare (type (simple-array (unsigned-byte 8) (*)) octets) + (type list pos)) + (multiple-value-bind (tmp entry) (search-domain octets domain pos) + (declare (type (or null (simple-array (unsigned-byte 8) (*))) tmp)) + (when tmp + (prog1 + (setf (gethash (cons (copy-seq singular) (copy-seq plural)) + (domain-entry-hash domain)) + (loop for i = 0 then (1+ j) as j = (position 0 tmp :start i) - collect (octets-to-string (subseq tmp i j) - (domain-entry-encoding domain)) - while j)) - (let ((temp (delete entry pos :test #'eq))) - (if temp - (setf (gethash length (domain-entry-hash domain)) temp) - (remhash length (domain-entry-hash domain)))) - (when (null (domain-entry-plurals domain)) - (setf (domain-entry-plurals domain) - (parse-plurals domain))))))))) + collect (octets-to-string (subseq tmp i j) + (domain-entry-encoding domain)) + while j)) + (let ((temp (delete entry pos :test #'eq))) + (if temp + (setf (gethash length (domain-entry-hash domain)) temp) + (remhash length (domain-entry-hash domain)))) + (when (null (domain-entry-plurals domain)) + (setf (domain-entry-plurals domain) + (parse-plurals domain)))))))))) (declaim (inline getenv) (ftype (function (string) (or null string)) getenv))

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/tools (make-dist.sh)
by Raymond Toy 18 Dec '10

18 Dec '10

Date: Saturday, December 18, 2010 @ 11:20:05 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Tag: cross-sol-x86-branch Modified: make-dist.sh Support solaris/x86. --------------+ make-dist.sh | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) Index: src/tools/make-dist.sh diff -u src/tools/make-dist.sh:1.17 src/tools/make-dist.sh:1.17.4.1 --- src/tools/make-dist.sh:1.17 Thu Sep 30 17:21:41 2010 +++ src/tools/make-dist.sh Sat Dec 18 11:20:05 2010 @@ -9,7 +9,7 @@ # you extracted the two tarballs and the source distribution into that # directory. # -# $Header: /project/cmucl/cvsroot/src/tools/make-dist.sh,v 1.17 2010-09-30 21:21:41 rtoy Exp $ +# $Header: /project/cmucl/cvsroot/src/tools/make-dist.sh,v 1.17.4.1 2010-12-18 16:20:05 rtoy Exp $ usage() { echo "make-dist.sh: [-hbg] [-G group] [-O owner] [-I destdir] [-M mandir] dir version [arch os]" @@ -52,11 +52,16 @@ def_arch_os () { case `uname -s` in SunOS) - ARCH=sparcv9 + case `uname -m` in + sun*) + ARCH=sparcv9 ;; + i*) + ARCH=x86 ;; + esac uname_r=`uname -r` case $uname_r in - 5.*) rel=`echo $uname_r | sed 's/5\.//'`;; - *) rel=$uname_r;; + 5.*) rel=`echo $uname_r | sed 's/5\.//'`;; + *) rel=$uname_r;; esac OS=solaris$rel ;;

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (solaris-os.c)
by Raymond Toy 18 Dec '10

18 Dec '10

Date: Saturday, December 18, 2010 @ 11:19:40 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch Modified: solaris-os.c Add function real_segv_handler to handle "real protection" violations. Useful for debugging so we can easily stop in such cases. --------------+ solaris-os.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.26.4.2 src/lisp/solaris-os.c:1.26.4.3 --- src/lisp/solaris-os.c:1.26.4.2 Wed Dec 15 07:45:51 2010 +++ src/lisp/solaris-os.c Sat Dec 18 11:19:39 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.2 2010-12-15 12:45:51 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.3 2010-12-18 16:19:39 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -211,6 +211,11 @@ interrupt_handle_now(signal, code, context); } +void real_segv_handler(HANDLER_ARGS) +{ + segv_handle_now(signal, code, context); +} + void segv_handler(HANDLER_ARGS) { @@ -265,7 +270,7 @@ fprintf(stderr, "segv_handler: Real protection violation: %p, PC = %p\n", addr, context->uc_mcontext.gregs[1]); - segv_handle_now(signal, code, context); + real_segv_handler(signal, code, context); } #else void

1 0

[cmucl-cvs] CMUCL commit: src/lisp (x86-validate.h)
by Raymond Toy 18 Dec '10

18 Dec '10

Date: Saturday, December 18, 2010 @ 11:16:48 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-validate.h On Darwin, SIGSTKSZ is 128K, not 8K like on most other systems. Adjust the CONTROL_STACK_SIZE and SIGNAL_STACK_START appropriately. ----------------+ x86-validate.h | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) Index: src/lisp/x86-validate.h diff -u src/lisp/x86-validate.h:1.31 src/lisp/x86-validate.h:1.32 --- src/lisp/x86-validate.h:1.31 Fri May 21 15:26:53 2010 +++ src/lisp/x86-validate.h Sat Dec 18 11:16:47 2010 @@ -3,7 +3,7 @@ * This code was written as part of the CMU Common Lisp project at * Carnegie Mellon University, and has been placed in the public domain. * - * $Header: /project/cmucl/cvsroot/src/lisp/x86-validate.h,v 1.31 2010-05-21 19:26:53 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-validate.h,v 1.32 2010-12-18 16:16:47 rtoy Exp $ * */ @@ -132,10 +132,21 @@ #define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ #define CONTROL_STACK_START (0x40000000) +#if defined(DARWIN) +/* + * According to /usr/include/sys/signal.h, MINSIGSTKSZ is 32K and + * SIGSTKSZ is 128K. We should account for that appropriately. + */ +#define CONTROL_STACK_SIZE (0x07fdf000) /* 128MB - SIGSTKSZ - 1 page */ + +#define SIGNAL_STACK_START (0x47fe0000) /* One page past the end of the control stack */ +#define SIGNAL_STACK_SIZE SIGSTKSZ +#else #define CONTROL_STACK_SIZE (0x07fd8000) /* 128MB - SIGSTKSZ */ #define SIGNAL_STACK_START (0x47fd8000) #define SIGNAL_STACK_SIZE SIGSTKSZ +#endif #define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) #ifdef GENCGC

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/code (unix.lisp)
by Raymond Toy 17 Dec '10

17 Dec '10

Date: Thursday, December 16, 2010 @ 22:04:45 Author: rtoy Path: /project/cmucl/cvsroot/src/code Tag: cross-sol-x86-branch Modified: unix.lisp On Solaris/x86, the uname function is really called nuname. -----------+ unix.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) Index: src/code/unix.lisp diff -u src/code/unix.lisp:1.131 src/code/unix.lisp:1.131.4.1 --- src/code/unix.lisp:1.131 Fri Nov 12 11:53:17 2010 +++ src/code/unix.lisp Thu Dec 16 22:04:45 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.131 2010-11-12 16:53:17 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.131.4.1 2010-12-17 03:04:45 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3391,7 +3391,8 @@ (defun unix-uname () (with-alien ((names (struct utsname))) - (syscall* (#-freebsd "uname" + (syscall* (#-(or freebsd solaris) "uname" + #+solaris "nuname" ; See /usr/include/sys/utsname.h #+freebsd "__xuname" #+freebsd int (* (struct utsname))) (values (cast (slot names 'sysname) c-string)

1 0

[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (gencgc.c)
by Raymond Toy 15 Dec '10

15 Dec '10

Date: Wednesday, December 15, 2010 @ 07:53:45 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch Modified: gencgc.c Enable GC assertions and some debugging prints. ----------+ gencgc.c | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.110 src/lisp/gencgc.c:1.110.6.1 --- src/lisp/gencgc.c:1.110 Mon Jul 26 13:17:13 2010 +++ src/lisp/gencgc.c Wed Dec 15 07:53:45 2010 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110 2010-07-26 17:17:13 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.1 2010-12-15 12:53:45 rtoy Exp $ * */ @@ -150,6 +150,7 @@ /* Define for activating assertions. */ +#define GC_ASSERTIONS 1 #if defined(DARWIN) #define GC_ASSERTIONS 1 #endif @@ -240,7 +241,7 @@ * The verbose level. All non-error messages are disabled at level 0; * and only a few rare messages are printed at level 1. */ -unsigned gencgc_verbose = 0; +unsigned gencgc_verbose = 1; unsigned counters_verbose = 0; /* @@ -266,7 +267,7 @@ * makes GC very, very slow, so don't enable this unless you really * need it!) */ -boolean pre_verify_gen_0 = FALSE; +boolean pre_verify_gen_0 = TRUE; /* * Enable checking for bad pointers after gc_free_heap called from purify. @@ -274,7 +275,7 @@ #if 0 && defined(DARWIN) boolean verify_after_free_heap = TRUE; #else -boolean verify_after_free_heap = FALSE; +boolean verify_after_free_heap = TRUE; #endif /* @@ -287,7 +288,7 @@ * Enable the checking of code objects for fixup errors after they are * transported. (Only used for x86.) */ -boolean check_code_fixups = FALSE; +boolean check_code_fixups = TRUE; /* * To enable unmapping of a page and re-mmaping it to have it zero filled. @@ -307,8 +308,8 @@ boolean gencgc_zero_check = TRUE; boolean gencgc_enable_verify_zero_fill = TRUE; #else -boolean gencgc_zero_check = FALSE; -boolean gencgc_enable_verify_zero_fill = FALSE; +boolean gencgc_zero_check = TRUE; +boolean gencgc_enable_verify_zero_fill = TRUE; #endif /* @@ -318,7 +319,7 @@ #if 0 && defined(DARWIN) boolean gencgc_zero_check_during_free_heap = TRUE; #else -boolean gencgc_zero_check_during_free_heap = FALSE; +boolean gencgc_zero_check_during_free_heap = TRUE; #endif /*

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs