cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 10:17:59 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.14 src/general-info/release-20c.txt:1.15 --- src/general-info/release-20c.txt:1.14 Thu Dec 9 00:13:50 2010 +++ src/general-info/release-20c.txt Sun Dec 26 10:17:59 2010 @@ -24,6 +24,8 @@ - Update to Unicode 5.2.0. - Add support for character name completion. This can be used by Slime to do character name completion. + - Initial support for Solaris/x86. CMUCL will run on Solaris/x86 + with all features available. * Changes - ASDF2 updated to version 2.010. @@ -62,6 +64,12 @@ CMUCL. READ-CHAR will use the specified external format for such streams. READ-BYTE reads (unsigned-byte 8) elements from such streams. + - UNINTERN no longer removes the wrong symbol. UNINTERN would + remove the symbol when inherited from another package although + it should not. + - DEFSTRUCT allows multiple keyword constructors as required by + the spec.. + * Bugfixes: - The pairwise composition table is now correctly built. Previously, it skipped over non-BMP codepoints. This also @@ -88,7 +96,17 @@ - SUBSEQ with an end index less than the start index sometimes crashes CMUCL. Now, signal an error if the boudns are not valid. - + - Localization support was causing many calls to stat trying to + find non-existent translation files. This has been fixed so + that the results are cached. (If new translations are added, + the cache will need to be cleared or cmucl restarted.) This + change cuts building time by half on Solaris/sparc. + - On NetBSD, function-end breakpoints, especially for + tail-recursive functions, are working now. + - On NetBSD, display of FP numbers (sse2 and x87) during tracing + has been corrected. Previously, random values were displayed. + - Executables images can now be created on NetBSD again. + * Trac Tickets: * Other changes:

1 0

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

26 Dec '10

Date: Sunday, December 26, 2010 @ 09:54:33 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: defstruct.lisp Allow more than one keyword constructor for defstruct. Bug and fix from Rob Warnock. ----------------+ defstruct.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/defstruct.lisp diff -u src/code/defstruct.lisp:1.102 src/code/defstruct.lisp:1.103 --- src/code/defstruct.lisp:1.102 Fri Apr 23 09:23:29 2010 +++ src/code/defstruct.lisp Sun Dec 26 09:54:33 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/defstruct.lisp,v 1.102 2010-04-23 13:23:29 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.103 2010-12-26 14:54:33 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1120,7 +1120,7 @@ (res (create-keyword-constructor defstruct creator)) (dolist (other-name (rest defaults)) (res `(setf (fdefinition ',other-name) (fdefinition ',cname))) - (res `(declaim (ftype function ',other-name)))))) + (res `(declaim (ftype function ,other-name)))))) (dolist (boa boas) (res (create-boa-constructor defstruct boa creator)))

1 0

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

26 Dec '10

Date: Sunday, December 26, 2010 @ 09:03:48 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: package.lisp Unintern removes the wrong symbol. See https://bugs.launchpad.net/sbcl/+bug/693796. --------------+ package.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/package.lisp diff -u src/code/package.lisp:1.80 src/code/package.lisp:1.81 --- src/code/package.lisp:1.80 Tue Apr 20 13:57:45 2010 +++ src/code/package.lisp Sun Dec 26 09:03:48 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/package.lisp,v 1.80 2010-04-20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.81 2010-12-26 14:03:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1444,8 +1444,8 @@ (remove symbol shadowing-symbols))) (multiple-value-bind (s w) (find-symbol name package) - (declare (ignore s)) - (cond ((or (eq w :internal) (eq w :external)) + (cond ((not (eq symbol s)) nil) + ((or (eq w :internal) (eq w :external)) (nuke-symbol (if (eq w :internal) (package-internal-symbols package) (package-external-symbols package))

1 0

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

24 Dec '10

Date: Friday, December 24, 2010 @ 01:01:34 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-lispregs.h Document why SC_EFLAGS doesn't seem to work on Solaris/x86. ----------------+ x86-lispregs.h | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) Index: src/lisp/x86-lispregs.h diff -u src/lisp/x86-lispregs.h:1.15 src/lisp/x86-lispregs.h:1.16 --- src/lisp/x86-lispregs.h:1.15 Thu Dec 23 17:56:26 2010 +++ src/lisp/x86-lispregs.h Fri Dec 24 01:01:34 2010 @@ -1,5 +1,5 @@ /* x86-lispregs.h -*- Mode: C; -*- - * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.15 2010-12-23 22:56:26 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.16 2010-12-24 06:01:34 rtoy Exp $ */ #ifndef _X86_LISPREGS_H_ @@ -63,9 +63,12 @@ #elif defined(SOLARIS) /* * Solaris/x86 has access the the eflags value, but this doesn't - * currently work. Some more work needs to be done in x86-arch.c to - * make this work. But the default code there works fine on - * Solaris/x86. + * currently work. It seems that when we set the EFLAG to enable + * single-stepping, we never actually step the new instruction but we + * stop at exactly the same place. This is not how it works on other + * OSes where we do step an instruction. I (rtoy) do not know why. + * Some more work needs to be done in x86-arch.c to make this work. + * But the default code there works fine on Solaris/x86. */ /* #define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[EFL])*/ #endif

1 0

[cmucl-cvs] CMUCL commit: src/lisp (solaris-os.c)
by Raymond Toy 24 Dec '10

24 Dec '10

Date: Thursday, December 23, 2010 @ 18:02:58 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: solaris-os.c The address computation for x87 registers was wrong. Fix them so. Among other things, this makes tracing work with x87 floating-point values. --------------+ solaris-os.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.27 src/lisp/solaris-os.c:1.28 --- src/lisp/solaris-os.c:1.27 Tue Dec 21 21:12:52 2010 +++ src/lisp/solaris-os.c Thu Dec 23 18:02:58 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.27 2010-12-22 02:12:52 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.28 2010-12-23 23:02:58 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -560,9 +560,9 @@ /* Point to the fpchip_state */ fpustate = (unsigned char*) &fpregs->fp_reg_set.fpchip_state.state[0]; /* Skip to where the x87 fp registers are */ - stregs = fpustate + 24; + stregs = fpustate + 28; - reg = stregs + 16*offset; + reg = stregs + 10*offset; } #ifdef FEATURE_SSE2 else {

1 0

[cmucl-cvs] CMUCL commit: src/lisp (Config.x86_solaris_sunc)
by Raymond Toy 23 Dec '10

23 Dec '10

Date: Thursday, December 23, 2010 @ 17:57:35 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: Config.x86_solaris_sunc Use -xM1 so we don't include dependencies to /usr/include. -------------------------+ Config.x86_solaris_sunc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/lisp/Config.x86_solaris_sunc diff -u src/lisp/Config.x86_solaris_sunc:1.2 src/lisp/Config.x86_solaris_sunc:1.3 --- src/lisp/Config.x86_solaris_sunc:1.2 Tue Dec 21 21:12:52 2010 +++ src/lisp/Config.x86_solaris_sunc Thu Dec 23 17:57:35 2010 @@ -4,7 +4,7 @@ CC = cc -xlibmieee -g CFLAGS += -Di386 CPP = cc -E -DEPEND_FLAGS = -xM +DEPEND_FLAGS = -xM1 ASSEM_SRC = x86-assem.S ARCH_SRC = x86-arch.c

1 0

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

23 Dec '10

Date: Thursday, December 23, 2010 @ 17:56:26 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-lispregs.h Add implementation of SC_EFLAGS for Solaris/x86, but disable for now because it makes breakpoints not work for some reason. ----------------+ x86-lispregs.h | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) Index: src/lisp/x86-lispregs.h diff -u src/lisp/x86-lispregs.h:1.14 src/lisp/x86-lispregs.h:1.15 --- src/lisp/x86-lispregs.h:1.14 Thu Dec 23 17:23:48 2010 +++ src/lisp/x86-lispregs.h Thu Dec 23 17:56:26 2010 @@ -1,5 +1,5 @@ /* x86-lispregs.h -*- Mode: C; -*- - * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.14 2010-12-23 22:23:48 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.15 2010-12-23 22:56:26 rtoy Exp $ */ #ifndef _X86_LISPREGS_H_ @@ -60,6 +60,14 @@ #define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[REG_EFL]) #elif defined(__NetBSD__) #define SC_EFLAGS(sc) ((sc)->uc_mcontext.__gregs[_REG_EFL]) +#elif defined(SOLARIS) +/* + * Solaris/x86 has access the the eflags value, but this doesn't + * currently work. Some more work needs to be done in x86-arch.c to + * make this work. But the default code there works fine on + * Solaris/x86. + */ +/* #define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[EFL])*/ #endif #endif /* _X86_LISPREGS_H_ */

1 0

[cmucl-cvs] CMUCL commit: src/lisp (x86-arch.c)
by Raymond Toy 23 Dec '10

23 Dec '10

Date: Thursday, December 23, 2010 @ 17:55:31 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-arch.c Fix typo. ------------+ x86-arch.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) Index: src/lisp/x86-arch.c diff -u src/lisp/x86-arch.c:1.41 src/lisp/x86-arch.c:1.42 --- src/lisp/x86-arch.c:1.41 Thu Dec 23 17:23:48 2010 +++ src/lisp/x86-arch.c Thu Dec 23 17:55:31 2010 @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.41 2010-12-23 22:23:48 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.42 2010-12-23 22:55:31 rtoy Exp $ * */ @@ -250,7 +250,7 @@ * single-stepping and stop on the next instruction. */ - DFPRINTF(0, (stderr, "Installing helper instructions\n")); + DPRINTF(0, (stderr, "Installing helper instructions\n")); single_step_save1 = *(pc - 3); single_step_save2 = *(pc - 2); @@ -268,7 +268,7 @@ * the helper. */ - DFPRINTF(0, (stderr, " Setting pc to pushf instruction at %p\n", (void*) ((char*) pc - 9))); + DPRINTF(0, (stderr, " Setting pc to pushf instruction at %p\n", (void*) ((char*) pc - 9))); SC_PC(context) = (int)((char *) pc - 9); #endif } @@ -298,7 +298,7 @@ *(single_stepping - 3) = single_step_save1; *(single_stepping - 2) = single_step_save2; *(single_stepping - 1) = single_step_save3; - DFPRINTF(0, (stderr, "Uninstalling helper instructions\n")); + DPRINTF(0, (stderr, "Uninstalling helper instructions\n")); #endif /*

1 0

[cmucl-cvs] CMUCL commit: src/lisp (x86-arch.c x86-lispregs.h)
by Raymond Toy 23 Dec '10

23 Dec '10

Date: Thursday, December 23, 2010 @ 17:23:48 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: x86-arch.c x86-lispregs.h Fix tracing for NetBSD. Function end breakpoints didn't seem to be working when tracing, for example (declaim (ftype (function (double-float) double-float) fact)) (defun fact (x) (declare (double-float x)) (if (= x 1) 1d0 (* x (fact (1- x))))) lisp/x86-lispregs.h o NetBSD has access to the eflags register lisp/x86-arch.c: o Add some debugging prints (disabled). o The stuff near line 262 about pc-9 pointing to the pushf instruction should be conditioned on SC_EFLAGS because that's what decides whether we insert the pushf instructions for single stepping. ----------------+ x86-arch.c | 12 ++++++++---- x86-lispregs.h | 4 +++- 2 files changed, 11 insertions(+), 5 deletions(-) Index: src/lisp/x86-arch.c diff -u src/lisp/x86-arch.c:1.40 src/lisp/x86-arch.c:1.41 --- src/lisp/x86-arch.c:1.40 Tue Dec 21 21:12:52 2010 +++ src/lisp/x86-arch.c Thu Dec 23 17:23:48 2010 @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.40 2010-12-22 02:12:52 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.41 2010-12-23 22:23:48 rtoy Exp $ * */ @@ -250,6 +250,8 @@ * single-stepping and stop on the next instruction. */ + DFPRINTF(0, (stderr, "Installing helper instructions\n")); + single_step_save1 = *(pc - 3); single_step_save2 = *(pc - 2); single_step_save3 = *(pc - 1); @@ -260,12 +262,13 @@ single_stepping = (unsigned int *) pc; -#if !(defined(__linux__) || defined(DARWIN)) +#ifndef SC_EFLAGS /* * pc - 9 points to the pushf instruction that we installed for * the helper. */ + DFPRINTF(0, (stderr, " Setting pc to pushf instruction at %p\n", (void*) ((char*) pc - 9))); SC_PC(context) = (int)((char *) pc - 9); #endif } @@ -277,8 +280,8 @@ unsigned int trap; #if 0 - fprintf(stderr, "x86sigtrap: %8x %x\n", - SC_PC(context), *(unsigned char *) (SC_PC(context) - 1)); + fprintf(stderr, "x86sigtrap: %8x %x\n", + SC_PC(context), *(unsigned char *) (SC_PC(context) - 1)); fprintf(stderr, "sigtrap(%d %d %x)\n", signal, CODE(code), context); #endif @@ -295,6 +298,7 @@ *(single_stepping - 3) = single_step_save1; *(single_stepping - 2) = single_step_save2; *(single_stepping - 1) = single_step_save3; + DFPRINTF(0, (stderr, "Uninstalling helper instructions\n")); #endif /* Index: src/lisp/x86-lispregs.h diff -u src/lisp/x86-lispregs.h:1.13 src/lisp/x86-lispregs.h:1.14 --- src/lisp/x86-lispregs.h:1.13 Mon Dec 29 09:40:34 2008 +++ src/lisp/x86-lispregs.h Thu Dec 23 17:23:48 2010 @@ -1,5 +1,5 @@ /* x86-lispregs.h -*- Mode: C; -*- - * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.13 2008-12-29 14:40:34 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-lispregs.h,v 1.14 2010-12-23 22:23:48 rtoy Exp $ */ #ifndef _X86_LISPREGS_H_ @@ -58,6 +58,8 @@ #endif #elif defined(__linux__) #define SC_EFLAGS(sc) ((sc)->uc_mcontext.gregs[REG_EFL]) +#elif defined(__NetBSD__) +#define SC_EFLAGS(sc) ((sc)->uc_mcontext.__gregs[_REG_EFL]) #endif #endif /* _X86_LISPREGS_H_ */

1 0

[cmucl-cvs] CMUCL commit: src/lisp (NetBSD-os.c)
by Raymond Toy 23 Dec '10

23 Dec '10

Date: Thursday, December 23, 2010 @ 12:38:05 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: NetBSD-os.c o Oops. We want the xmm registers if index >= 8. o Add some debugging prints. -------------+ NetBSD-os.c | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) Index: src/lisp/NetBSD-os.c diff -u src/lisp/NetBSD-os.c:1.17 src/lisp/NetBSD-os.c:1.18 --- src/lisp/NetBSD-os.c:1.17 Wed Dec 22 23:50:02 2010 +++ src/lisp/NetBSD-os.c Thu Dec 23 12:38:05 2010 @@ -15,7 +15,7 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for NetBSD by Pierre R. Mai, 2002. * - * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.17 2010-12-23 04:50:02 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.18 2010-12-23 17:38:05 rtoy Exp $ * */ @@ -89,6 +89,8 @@ { unsigned char *reg = NULL; + DPRINTF(0, (stderr, "fpu reg index = %d\n", index)); + if (scp->uc_flags & _UC_FPU) { if (scp->uc_flags & _UC_FXSAVE) { /* @@ -99,10 +101,12 @@ * start of the array, and each XMM register is 16 bytes * long. */ - if (index < 8) { + if (index >= 8) { reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[160 + 16*(index - 8)]; + DPRINTF(0, (stderr, " sse2 = %g\n", (double) *(double*) reg)); } else { reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fp_xmm_state.__fp_xmm[32 + 16*index]; + DPRINTF(0, (stderr, " sse2 x87 = %g\n", (double) *(long double*) reg)); } } else { @@ -112,6 +116,7 @@ * each. */ reg = &scp->uc_mcontext.__fpregs.__fp_reg_set.__fpchip_state.__fp_state[28 + 10*index]; + DPRINTF(0, (stderr, " x87 = %g\n", (double) *(long double*) reg)); } } else { reg = NULL;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs