- cmucl-cvs - mailman3.common-lisp.net

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-40-g3dd74e8
by Raymond Toy 04 Dec '14

04 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 3dd74e81b64c6fbae4ffacbea5d848170bbc1f6e (commit) from ee975d1ba18dfd418481151a9c3449059ffcfe0a (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 3dd74e81b64c6fbae4ffacbea5d848170bbc1f6e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Dec 3 20:50:03 2014 -0800 Update from logs. diff --git a/src/general-info/release-21a.txt b/src/general-info/release-21a.txt index c7fc0cc..5f18558 100644 --- a/src/general-info/release-21a.txt +++ b/src/general-info/release-21a.txt @@ -20,12 +20,25 @@ New in this release: * Known issues: * Feature enhancements + * The darwin/ppc port can create executables now. Current + implementation is rather buggy, though. * Changes * Micro-optimize SCALE-FLOAT to do multiplication when possible. * Update to ASDF 3.1.4. * The external-format :UTF is no longer an alias for :UTF-8. * :ELF feature added for solaris. + * LISP:WITH-STRING-CODEPOINT-ITERATOR added to iterate over the + codepoints in a string. This works the same as + WITH-HASH-TABLE-ITERATOR. + * LISP:WITH-STRING-GLYPH-ITERATOR added to iterate over the glyphs + in a string. Works like WITH-HASH-TABLE-ITERATOR. + * LOOP supports new extended keywords + * (loop for cp being the codepoint of string ...) + * codepoints, code-point, and code-points are aliases for + codepoint. + * (loop for g-string being the glpyh of string ...) + * glyphs is an alias for glpyh. * ANSI compliance fixes: @@ -42,17 +55,40 @@ New in this release: * Support for 64-bit time_t on NetBSD added. This allows cmucl to run on more recent versions of NetBSD. * The empty package LOOP has been removed. + * Executables on x86 can be created once again. This ability was + inadvertently broken when x86 support was removed. + * (log number base) no longer generates an error when one of the + args is a double-double. + * Fix bug in kernel::dd-%log2 which returned the wrong value. + * More accurate values for (log x 2) and (log x 10): + * Add log10 implementation for double-doubles so that log10(10^n) + = n for integer n. + * An accurate log2 function added so that log2(2^n) = n. + * All unit tests pass successfully on darwin/x86, linux/x86, and + solaris/sparc. Darwin/ppc fails most of the tests dealing with + exceptions for the special functions. + + * Trac Tickets: * Ticket #54 fixed. + * Ticket #95 fixed. + * Ticket #110 fixed. + * Ticket #112 fixed. * Other changes: * Cross compile scripts from x86 to sparc and ppc updated to work again to cross-compile from the current snapshot. + * motifd is a 64-bit binary on linux again, instead of 32-bit. + * Improvements to the PCL implementation of CLOS: * Changes to building procedure: + * Dependencies for motifd are autogenerated. + * Cross compile frox darwin/x86 to solaris/x86 fixed to work + correctly. + This release is not binary compatible with code compiled using CMUCL ----------------------------------------------------------------------- Summary of changes: src/general-info/release-21a.txt | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-39-gee975d1
by Raymond Toy 03 Dec '14

03 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via ee975d1ba18dfd418481151a9c3449059ffcfe0a (commit) from 4e3000cdaeb66080a3c01616ecc0712c98b0256d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ee975d1ba18dfd418481151a9c3449059ffcfe0a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 20:34:57 2014 -0800 Use the same code for sparc and ppc to handle the call_into_c entry. They were identical before anyway, so make it so. diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c index 183d808..ab82d36 100755 --- a/src/lisp/os-common.c +++ b/src/lisp/os-common.c @@ -221,7 +221,7 @@ os_foreign_linkage_init(void) } #endif if (i == 0) { -#if defined(sparc) +#if defined(sparc) || (defined(DARWIN) && defined(__ppc__)) if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) { fprintf(stderr, "linkage_data is %s but expected %s\n", c_symbol_name, @@ -229,14 +229,6 @@ os_foreign_linkage_init(void) lose("First element of linkage_data is bogus.\n"); } arch_make_linkage_entry(i, (void*) call_into_c, 1); -#elif (defined(DARWIN) && defined(__ppc__)) - if (type != 1 || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) { - fprintf(stderr, "linkage_data is %s but expected %s\n", - c_symbol_name, - EXTERN_ALIEN_NAME("call_into_c")); - lose("First element of linkage_data is bogus.\n"); - } - arch_make_linkage_entry(i, &call_into_c, 1); #else if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("resolve_linkage_tramp"))) { ----------------------------------------------------------------------- Summary of changes: src/lisp/os-common.c | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-38-g4e3000c
by Raymond Toy 03 Dec '14

03 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 4e3000cdaeb66080a3c01616ecc0712c98b0256d (commit) via 214a37662e1a38dceda6b484e34522806e04d511 (commit) from 908514c031461556f762c445bdea2aafdf3db7ae (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 4e3000cdaeb66080a3c01616ecc0712c98b0256d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 20:28:50 2014 -0800 Add bootstrap file to enable :executable feature for ppc. diff --git a/src/bootfiles/20f/boot-2014-11-ppc.lisp b/src/bootfiles/20f/boot-2014-11-ppc.lisp new file mode 100644 index 0000000..96f454b --- /dev/null +++ b/src/bootfiles/20f/boot-2014-11-ppc.lisp @@ -0,0 +1,3 @@ +;; Enable executable feature on ppc. +#+ppc +(pushnew :executable *features*) commit 214a37662e1a38dceda6b484e34522806e04d511 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 20:25:57 2014 -0800 Load up initial_function with the correct value for Darwin/ppc if the builtin_image_flag is set. diff --git a/src/lisp/lisp.c b/src/lisp/lisp.c index 9defc05..72a523d 100644 --- a/src/lisp/lisp.c +++ b/src/lisp/lisp.c @@ -470,7 +470,7 @@ main(int argc, const char *argv[], const char *envp[]) lispobj initial_function = 0; if (builtin_image_flag != 0) { -#if defined(SOLARIS) || (defined(i386) && (defined(__linux__) || defined(DARWIN) || defined(__FreeBSD__) || defined(__NetBSD__))) +#if defined(SOLARIS) || defined(DARWIN) || (defined(i386) && (defined(__linux__) || defined(__FreeBSD__) || defined(__NetBSD__))) initial_function = (lispobj) initial_function_addr; #else initial_function = (lispobj) & initial_function_addr; ----------------------------------------------------------------------- Summary of changes: src/bootfiles/20f/boot-2014-11-ppc.lisp | 3 +++ src/lisp/lisp.c | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) create mode 100644 src/bootfiles/20f/boot-2014-11-ppc.lisp hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch rtoy-unix-core updated. snapshot-2014-11-46-g822beed
by Raymond Toy 03 Dec '14

03 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rtoy-unix-core has been updated via 822beed88eed7cbdd5e63e338dcb3405e9c3e501 (commit) via 31cb9cfed23654a84c6caef2c0e0d5b305b16ff2 (commit) via 5efddf51e6f717c7a2c0d94ddc1f621db7e5ddbf (commit) via 908514c031461556f762c445bdea2aafdf3db7ae (commit) via ef3824719adb38bf923d493d91942d304523ea29 (commit) via 85c9daef724604a5c84b13aa8fc88255e380d0be (commit) via df425339e0cf09ef687c491e99f6c10238f56b85 (commit) via 0ec33685dff49b910b0c46644f983064c02ab949 (commit) via 394a28dfacbfe6d4557ed8f59152c58b17078f05 (commit) via 5f81e24180fa7721fcad38b9ae3419bd9f2a221d (commit) via 46b8066952521e9d7c43ff101677725425c851a8 (commit) via 70181ee7553a350eedd7acb2815b98dde6ce846c (commit) via 1e4040f32e973a1debcec908e4e69147c31a67ec (commit) via 1fc53cc336bf03c52a438bb237d95080f00dd203 (commit) via 2b39eba64aa3f2b122bcc275e6597f9cb2a5f7f4 (commit) via 55d04a31ba05d20f4e9ab6be9548d374c900b197 (commit) via 37d383ae57c2fc9597cb87eac9551af866885cd3 (commit) via 0a522bd0c8c38f6ee76f0cc2122d9984c4e269aa (commit) via cc8c049fe257b28f470baafcf92b6ceb929582de (commit) via 9918ab2d5794ac01efe17b808b351e25519dc88a (commit) via d46a4bfeff75f685f2ccc4a2627a921e46547c1c (commit) via 8e0c67d0c74e1dd5206d2b068734d863440ca286 (commit) via 4d3255aa1a770f59d2851fd2c85707164ca485f5 (commit) via 3f063954c98d21ea8a95388d01db96a1e056c34d (commit) via a932491bb20a7e2a05cce1bd142870f2a6edfcad (commit) via d36c032a5440e1f2a5e2bbda37962a2a96c6aaac (commit) via 31f691c9565941b4c04309b16a871860246c29e1 (commit) via ea433981ca884c40c90578dd891f37505618ac76 (commit) from db12154da8871000bdfd64e4b11e0a54b9f36d07 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 822beed88eed7cbdd5e63e338dcb3405e9c3e501 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 20:18:57 2014 -0800 Try to collect some of the unix export names by file in which they are used. Mostly as information on who uses what, but otherwise not necessary. diff --git a/src/code/exports.lisp b/src/code/exports.lisp index d0aa627..25a59f1 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -226,7 +226,6 @@ "UNIX-MKDIR" "UNIX-RMDIR" "UNIX-UNLINK" - "UNIX-SETITIMER" "TIMEZONE" "TIMEVAL" "SIZE-T" @@ -234,18 +233,42 @@ "INO-T" "DEV-T" "TIME-T" - "FD-SETSIZE" - "FD-ISSET" - "FD-CLR" "TIME-T" "USER-INFO-NAME" "INT64-T" "MODE-T" "UNIX-FAST-SELECT" - "UNIX-IOCTL" - "UNIX-OPENPTY" "UNIX-PIPE" "UNIX-GETPID" + "UNIX-GETHOSTID" + "UNIX-UID" + "UNIX-GID" + "GET-UNIX-ERROR-MSG" + "TCHARS" + "WINSIZE" + "LTCHARS" + "TIMEVAL" + "CLOSE-DIR" + "OPEN-DIR" + "READ-DIR" + "D-NAMLEN" + + ;; filesys.lisp + "UNIX-GETPWUID" + + ;; multi-proc.lisp + "UNIX-SETITIMER" + + ;; run-program.lisp + "SGTTYB" + "UNIX-TTYNAME" + "UNIX-IOCTL" + "UNIX-OPENPTY" + + ;; alien-callback.lisp + "UNIX-MPROTECT" + + ;; internet.lisp "UNIX-SOCKET" "UNIX-CONNECT" "UNIX-BIND" @@ -260,23 +283,13 @@ "UNIX-RECVFROM" "UNIX-SENDTO" "UNIX-SHUTDOWN" - "UNIX-GETHOSTID" "UNIX-FCNTL" - "UNIX-UID" - "UNIX-GID" - "UNIX-GETPWUID" - "UNIX-MPROTECT" - "GET-UNIX-ERROR-MSG" - "SGTTYB" - "TCHARS" - "UNIX-TTYNAME" - "WINSIZE" - "LTCHARS" - "TIMEVAL" - "CLOSE-DIR" - "OPEN-DIR" - "READ-DIR" - "D-NAMLEN" + + ;; serve-event.lisp + "FD-SETSIZE" + "FD-ISSET" + "FD-CLR" + ;; Simple streams "PROT_READ" "UNIX-MMAP" commit 31cb9cfed23654a84c6caef2c0e0d5b305b16ff2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 19:58:45 2014 -0800 Fix some silly typos! diff --git a/src/code/exports.lisp b/src/code/exports.lisp index 48cdf00..d0aa627 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -195,7 +195,7 @@ "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) -(defpackage "UINX" +(defpackage "UNIX" (:export "UNIX-CURRENT-DIRECTORY" "UNIX-OPEN" "UNIX-READ" @@ -204,7 +204,7 @@ "UNIX-ERRNO" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "UNIX-RESOLVE-LINKS" - "UNIX-SIMPIFY-PATHNAME" + "UNIX-SIMPLIFY-PATHNAME" "UNIX-CLOSE" "UNIX-STAT" "UNIX-LSTAT" @@ -255,7 +255,7 @@ "UNIX-SETSOCKOPT" "UNIX-GETPEERNAME" "UNIX-GETSOCKNAME" - "UNIX_RECV" + "UNIX-RECV" "UNIX-SEND" "UNIX-RECVFROM" "UNIX-SENDTO" commit 5efddf51e6f717c7a2c0d94ddc1f621db7e5ddbf Merge: db12154 908514c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 19:57:34 2014 -0800 Merge branch 'master' into rtoy-unix-core ----------------------------------------------------------------------- Summary of changes: bin/build-utils.sh | 16 ++- bin/build.sh | 2 +- src/code/exports.lisp | 67 ++++++---- src/code/float-trap.lisp | 28 ++++- src/code/irrat-dd.lisp | 153 +++++++++++++++------- src/code/irrat.lisp | 99 +++++++++++---- src/compiler/float-tran.lisp | 4 +- src/compiler/ppc/float.lisp | 57 +++++++++ src/compiler/ppc/parms.lisp | 8 +- src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 59 +++++++++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po | 31 +++++ src/lisp/Config.sparc_common | 2 +- src/lisp/Darwin-os.c | 2 +- src/lisp/GNUmakefile | 11 +- src/lisp/log2.c | 139 ++++++++++++++++++++ src/pcl/std-class.lisp | 7 +- src/tools/linker.sh | 17 ++- tests/irrat.lisp | 154 +++++++++++++++++++++++ tests/pcl/defgeneric.lisp | 11 +- tests/trac.lisp | 2 +- 20 files changed, 746 insertions(+), 123 deletions(-) create mode 100644 src/lisp/log2.c create mode 100644 tests/irrat.lisp hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-36-g908514c
by Raymond Toy 03 Dec '14

03 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 908514c031461556f762c445bdea2aafdf3db7ae (commit) from ef3824719adb38bf923d493d91942d304523ea29 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 908514c031461556f762c445bdea2aafdf3db7ae Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 19:53:34 2014 -0800 Update version number to 20f. diff --git a/bin/build.sh b/bin/build.sh index 3b52556..7d6e00c 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -39,7 +39,7 @@ ENABLE2="yes" ENABLE3="yes" ENABLE4="yes" -version=20e +version=20f SRCDIR=src BINDIR=bin TOOLDIR=$BINDIR ----------------------------------------------------------------------- Summary of changes: bin/build.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-35-gef38247
by Raymond Toy 03 Dec '14

03 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via ef3824719adb38bf923d493d91942d304523ea29 (commit) via 85c9daef724604a5c84b13aa8fc88255e380d0be (commit) from df425339e0cf09ef687c491e99f6c10238f56b85 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ef3824719adb38bf923d493d91942d304523ea29 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Dec 2 18:10:52 2014 -0800 #ifdef out some debugging code for os_dlsym. diff --git a/src/lisp/Darwin-os.c b/src/lisp/Darwin-os.c index e1120ab..53d2db5 100644 --- a/src/lisp/Darwin-os.c +++ b/src/lisp/Darwin-os.c @@ -534,7 +534,7 @@ os_dlsym(const char *sym_name, lispobj lib_list) void *sym_addr = 0; int offset = sym_name[0] == '_' ? 1 : 0; -#if 1 +#if 0 if (offset == 0) { fprintf(stderr, "sym-name = %s\n", sym_name); } commit 85c9daef724604a5c84b13aa8fc88255e380d0be Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Dec 1 23:14:31 2014 -0800 Add support for ppc. Not yet working, but OPT_EXTRA value appears to be needed, especially the __LINKEDIT address, like on i386. diff --git a/src/tools/linker.sh b/src/tools/linker.sh index a0050b9..a5a99ef 100755 --- a/src/tools/linker.sh +++ b/src/tools/linker.sh @@ -99,14 +99,17 @@ case $uname_s in # when creating the executable on 10.8. (See ticket:112.) OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic -mmacosx-version-min=10.5" + OS_LIBS= ;; powerpc) - # Nothing needed for ppc? + # See Config.ppc_darwin Like i386, __LINKEDIT is linked + # just after the dynamic space which messes things up, so + # we move it to a diffferent address. The address below + # appears to be free. + OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -mmacosx-version-min=10.4 -static-libgcc" + OS_LIBS="-lSystem -lc -lm" ;; esac - - # See Config.x86_darwin - OS_LIBS= ;; SunOS) # A quick test indicates that gcc will accept the following ----------------------------------------------------------------------- Summary of changes: src/lisp/Darwin-os.c | 2 +- src/tools/linker.sh | 11 +++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-33-gdf42533
by Raymond Toy 01 Dec '14

01 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via df425339e0cf09ef687c491e99f6c10238f56b85 (commit) from 0ec33685dff49b910b0c46644f983064c02ab949 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit df425339e0cf09ef687c491e99f6c10238f56b85 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 30 20:11:18 2014 -0800 Fix ticket:112 by specifying -mmacosx-version-min=10.5 when linking the new executable. diff --git a/src/tools/linker.sh b/src/tools/linker.sh index f97dcf4..a0050b9 100755 --- a/src/tools/linker.sh +++ b/src/tools/linker.sh @@ -94,7 +94,11 @@ case $uname_s in # up, so we move it to another address. This seems to be # free, at least on 10.5. - OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic" + # Also specify the min version. (See Config.x86_darwin for + # the desired version.) This gets rid of a PIE warning + # when creating the executable on 10.8. (See ticket:112.) + + OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic -mmacosx-version-min=10.5" ;; powerpc) # Nothing needed for ppc? ----------------------------------------------------------------------- Summary of changes: src/tools/linker.sh | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-32-g0ec3368
by Raymond Toy 01 Dec '14

01 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 0ec33685dff49b910b0c46644f983064c02ab949 (commit) via 394a28dfacbfe6d4557ed8f59152c58b17078f05 (commit) from 5f81e24180fa7721fcad38b9ae3419bd9f2a221d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 0ec33685dff49b910b0c46644f983064c02ab949 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 30 20:00:50 2014 -0800 Remove lisp.a when cleaning; update usags. * make clean should remove lisp.a * Use $(RM) instead of rm. * Use $(AR) instead of ar. diff --git a/src/lisp/GNUmakefile b/src/lisp/GNUmakefile index f67a20e..ad9b472 100644 --- a/src/lisp/GNUmakefile +++ b/src/lisp/GNUmakefile @@ -49,10 +49,10 @@ lisp: ${OBJS} version.o # builtin_image_flag to 1 so that the runtime knows the runtime # contains the core sections. lisp.a: version.o ${OBJS} ${EXEC_FINAL_OBJ} - ar crs lisp.a ${OBJS} version.o + $(AR) crs lisp.a ${OBJS} version.o ifneq (${EXEC_FINAL_OBJ},) - ar d lisp.a exec-init.o - ar r lisp.a ${EXEC_FINAL_OBJ} + $(AR) d lisp.a exec-init.o + $(AR) r lisp.a ${EXEC_FINAL_OBJ} endif version: @@ -63,7 +63,7 @@ internals.h internals.inc: @false clean: - rm -f Depends *.o lisp lisp.nm core + $(RM) Depends *.o lisp lisp.nm core lisp.a echo 'Map file for lisp version 0' > lisp.nm depend: Depends commit 394a28dfacbfe6d4557ed8f59152c58b17078f05 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 30 19:17:16 2014 -0800 Don't bother to build clm or motifd on darwin/ppc. It's not likely we'll ever install motif on that machine. diff --git a/bin/build-utils.sh b/bin/build-utils.sh index e59fd19..18d6f60 100755 --- a/bin/build-utils.sh +++ b/bin/build-utils.sh @@ -36,6 +36,7 @@ $TARGET/lisp/lisp \ (setq *gc-verbose* nil *interactive* nil) (load "target:tools/clxcom") (load "target:clx/clx-library") +#-ppc (load "target:tools/clmcom") (load "target:tools/hemcom") @@ -61,4 +62,17 @@ fi export MAKE -${MAKE} -C $TARGET/motif/server clean && ${MAKE} -C $TARGET/motif/server +# Don't bother building motifd on ppc; we'll probably never support that again. + +SKIPMOTIF=no +case `uname -s` in + Darwin) + case `uname -p` in + powerpc) SKIPMOTIF=yes ;; + esac ;; +esac + +if [ "$SKIPMOTIF" = "no" ]; then + ${MAKE} -C $TARGET/motif/server clean && ${MAKE} -C $TARGET/motif/server +fi + ----------------------------------------------------------------------- Summary of changes: bin/build-utils.sh | 16 +++++++++++++++- src/lisp/GNUmakefile | 8 ++++---- 2 files changed, 19 insertions(+), 5 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-30-g5f81e24
by Raymond Toy 01 Dec '14

01 Dec '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 5f81e24180fa7721fcad38b9ae3419bd9f2a221d (commit) from 46b8066952521e9d7c43ff101677725425c851a8 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 5f81e24180fa7721fcad38b9ae3419bd9f2a221d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 30 18:24:59 2014 -0800 Fix to handle (log 3/2 2) and (log -3/2 2). Test added. * src/code/irrat.lisp: * Fix LOG2 to handle the case of negative rational numbers. * Fix LOG of rational to a rational base. We want to convert the log of the number to a single float because log2 isn't intended to handle single-float type. * tests/irrat.lisp: * Add test for log of rational to rational base. * Add some additional tests for dd-%log2. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 0804ef9..b21b92f 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -632,8 +632,11 @@ ;; it, and converting it to double-float is accurate. (if (= (integer-length top) (integer-length bot)) - (/ (log1p (float (- x 1) float-type)) - (log-of-2 float-type)) + (let ((log-abs (/ (log1p (float (- (abs x) 1) float-type)) + (log-of-2 float-type)))) + (if (minusp x) + (complex log-abs (log-2-pi float-type)) + log-abs)) (multiple-value-bind (top-n top-frac) (log2-bignum top) (multiple-value-bind (bot-n bot-frac) @@ -687,10 +690,10 @@ (float (%log2 (float number 1d0)) 1f0)) (((foreach integer ratio) (foreach integer ratio single-float)) - (log2 number 1f0)) + (float (log2 number) 1f0)) (((foreach integer ratio) double-float) - (log2 number 1d0)) + (log2 number)) #+double-double (((foreach single-float double-float) double-double-float) diff --git a/tests/irrat.lisp b/tests/irrat.lisp index a6a405d..14db13e 100644 --- a/tests/irrat.lisp +++ b/tests/irrat.lisp @@ -37,6 +37,22 @@ (assert-true (typep result true-type) result true-type))))) +(define-test log2.special-cases + (let* ((y (log 3/2 2)) + (e (relerr y 0.5849625007211562d0))) + (assert-true (<= e + 2.308d-8) + e y)) + (let* ((y (log -3/2 2)) + (ry (realpart y)) + (iy (imagpart y)) + (er (relerr ry 0.5849625007211562d0)) + (ei (relerr iy (/ pi (log 2d0))))) + (assert-true (<= er 2.308d-8) + er ry) + (assert-true (<= ei 1.433d-8) + ei iy))) + ;; This tests that log base 10 returns the correct value and the ;; correct type. (define-test log10.result-types @@ -129,3 +145,10 @@ do (assert-true (<= e threshold) k e x y)))) + +(define-test log2.relationships + (loop for k from 1 below 1000 + for x = (expt 1.1w0 k) + for logx = (kernel::dd-%log2 x) + for log1/x = (kernel::dd-%log2 (/ x)) + do (assert-true (<= (abs (+ logx log1/x)) (* 1 double-float-epsilon))))) ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 11 +++++++---- tests/irrat.lisp | 23 +++++++++++++++++++++++ 2 files changed, 30 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-29-g46b8066
by Raymond Toy 30 Nov '14

30 Nov '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 46b8066952521e9d7c43ff101677725425c851a8 (commit) from 70181ee7553a350eedd7acb2815b98dde6ce846c (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 46b8066952521e9d7c43ff101677725425c851a8 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 29 21:43:09 2014 -0800 See ticket:91: Forgot to export FLOAT-EXCEPTIONS-SUMMARY-BYTE. diff --git a/src/code/exports.lisp b/src/code/exports.lisp index a6dcc0b..556a20e 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -1165,6 +1165,7 @@ "COMPATIBLE-FUNCTION-TYPES-P" "FLOAT-INVALID-OP-1-BYTE" "FLOAT-INVALID-OP-2-BYTE" + "FLOAT-EXCEPTIONS-SUMMARY-BYTE" "GET-FP-OPERANDS" "FUSED-MULTIPLY-ADD" "FUSED-MULTIPLY-SUBTRACT") diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp index cc2c5ba..dda73eb 100644 --- a/src/compiler/ppc/parms.lisp +++ b/src/compiler/ppc/parms.lisp @@ -67,7 +67,8 @@ float-imprecise-trap-bit float-invalid-trap-bit float-divide-by-zero-trap-bit float-invalid-op-1-byte - float-invalid-op-2-byte)) + float-invalid-op-2-byte + float-exceptions-summary-byte)) #+double-double (export '(double-double-float-digits)) ----------------------------------------------------------------------- Summary of changes: src/code/exports.lisp | 1 + src/compiler/ppc/parms.lisp | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0