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

[git] CMU Common Lisp branch master updated. snapshot-2013-12-a-14-g9c4bcc6
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 9c4bcc617b25fdcbac0bd8372cdc545dfa1f0bd7 (commit) from 5b9111e975748929ddcdd9052c5b5ec8138dcca5 (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 9c4bcc617b25fdcbac0bd8372cdc545dfa1f0bd7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Dec 18 08:20:56 2013 -0800 Move ieee754_rem_pio2 to os-common.c. Remove the version in from x86-arch.c and ppc-arch.c diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c index 2ba4bfd..90458c9 100755 --- a/src/lisp/os-common.c +++ b/src/lisp/os-common.c @@ -542,3 +542,19 @@ os_guard_control_stack(int zone, int guard) } #endif /* not RED_ZONE_HIT */ + + +/* Simple interface to __ieee754_rem_pio2 */ +int ieee754_rem_pio2(double x, double *y0, double *y1) +{ + extern int __ieee754_rem_pio2(double x, double *y); + + double y[2]; + int n; + + n = __ieee754_rem_pio2(x, y); + *y0 = y[0]; + *y1 = y[1]; + + return n; +} diff --git a/src/lisp/ppc-arch.c b/src/lisp/ppc-arch.c index 6c2ef6b..c46b99c 100644 --- a/src/lisp/ppc-arch.c +++ b/src/lisp/ppc-arch.c @@ -723,17 +723,3 @@ arch_linkage_entry(unsigned long retaddr) / LinkageEntrySize; } #endif - -int ieee754_rem_pio2(double x, double *y0, double *y1) -{ - extern int __ieee754_rem_pio2(double x, double *y); - - double y[2]; - int n; - - n = __ieee754_rem_pio2(x, y); - *y0 = y[0]; - *y1 = y[1]; - - return n; -} diff --git a/src/lisp/x86-arch.c b/src/lisp/x86-arch.c index 5670334..c694cea 100644 --- a/src/lisp/x86-arch.c +++ b/src/lisp/x86-arch.c @@ -521,19 +521,3 @@ arch_linkage_entry(unsigned long retaddr) return ((retaddr - 5) - FOREIGN_LINKAGE_SPACE_START) / LinkageEntrySize; } #endif /* LINKAGE_TABLE */ - -int ieee754_rem_pio2(double x, double *y0, double *y1) -{ - extern int __ieee754_rem_pio2(double x, double *y); - - double y[2]; - int n; - - n = __ieee754_rem_pio2(x, y); - *y0 = y[0]; - *y1 = y[1]; - - return n; -} - - ----------------------------------------------------------------------- Summary of changes: src/lisp/os-common.c | 16 ++++++++++++++++ src/lisp/ppc-arch.c | 14 -------------- src/lisp/x86-arch.c | 16 ---------------- 3 files changed, 16 insertions(+), 30 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-04-20-gf7506dd
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 f7506ddc36c87beb770661e6f22e74807023a06a (commit) from a8f7a91b07a24653205c5fd8bf896c96d181afa6 (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 f7506ddc36c87beb770661e6f22e74807023a06a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat May 4 12:55:14 2013 -0700 Filter out the Config.*common files from the list of lisp variants. diff --git a/bin/create-target.sh b/bin/create-target.sh index 7da3941..05665e6 100755 --- a/bin/create-target.sh +++ b/bin/create-target.sh @@ -10,7 +10,7 @@ usage() { echo "" # List possible values for lisp-variant and motif-variant echo "Possible LISP-VARIANTs:" - ( cd src/lisp/ && ls -1 Config.* ) | sed 's;^Config[.];;g' | pr -3at -o 8 || quit "Can't list lisp-variants" + ( cd src/lisp/ && ls -1 Config.* ) | sed 's;^Config[.];;g' | grep -v common | pr -3at -o 8 || quit "Can't list lisp-variants" echo "Possible MOTIF-VARIANTs:" ( cd src/motif/server/ && ls -1 Config.* ) | sed 's;^Config[.];;g' | pr -3at -o 8 || quit "Can't list lisp-variants" exit 2 ----------------------------------------------------------------------- Summary of changes: bin/create-target.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. begin-x87-removal-10-ge885c18
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 e885c18578fba479fca8e55cd1502ea76e1fb027 (commit) from d3bc3ac7a83c9c06dabf37ebe9e781bcfcfa5518 (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 e885c18578fba479fca8e55cd1502ea76e1fb027 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Apr 13 11:50:10 2014 -0700 Remove support for compiling with x87 versions. diff --git a/src/tools/comcom.lisp b/src/tools/comcom.lisp index 2205e11..b75a588 100644 --- a/src/tools/comcom.lisp +++ b/src/tools/comcom.lisp @@ -173,15 +173,11 @@ (when *load-stuff* (load (vmdir "target:assembly/support"))) (comf (vmdir "target:compiler/move")) -(comf (if (c:target-featurep :sse2) - (vmdir "target:compiler/float-sse2") - (vmdir "target:compiler/float")) +(comf (vmdir "target:compiler/float-sse2") :byte-compile *byte-compile*) (comf (vmdir "target:compiler/sap") :byte-compile *byte-compile*) (when (c:target-featurep :x86) - (comf (if (c:target-featurep :sse2) - (vmdir "target:compiler/sse2-sap") - (vmdir "target:compiler/x87-sap")) + (comf (vmdir "target:compiler/sse2-sap") :byte-compile *byte-compile*)) (comf (vmdir "target:compiler/system") :byte-compile *byte-compile*) (comf (vmdir "target:compiler/char") :byte-compile *byte-compile*) @@ -193,9 +189,7 @@ (comf (vmdir "target:compiler/debug") :byte-compile *byte-compile*) (comf (vmdir "target:compiler/c-call") :byte-compile *byte-compile*) (when (c:target-featurep :x86) - (comf (if (c:target-featurep :sse2) - (vmdir "target:compiler/sse2-c-call") - (vmdir "target:compiler/x87-c-call")) + (comf (vmdir "target:compiler/sse2-c-call") :byte-compile *byte-compile*)) (when (c:target-featurep :alien-callback) (comf (vmdir "target:compiler/c-callback"))) @@ -209,9 +203,7 @@ ;; Must come before array.lisp because array.lisp wants to use some ;; vops as templates. (when (c:target-featurep :x86) - (comf (vmdir (if (c:target-featurep :sse2) - "target:compiler/sse2-array" - "target:compiler/x87-array")) + (comf (vmdir "target:compiler/sse2-array") :byte-compile *byte-compile*)) (comf (vmdir "target:compiler/array") :byte-compile *byte-compile*) ----------------------------------------------------------------------- Summary of changes: src/tools/comcom.lisp | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-15-g81ebae1
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 81ebae1c1af846d41fd128703b2357e83736d90d (commit) from 86790380313712fb5ca6134427c381e40a71d233 (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 81ebae1c1af846d41fd128703b2357e83736d90d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Aug 20 20:26:35 2014 -0700 Add -fno-omit-frame-pointer; we want the frame pointer to make it easier for lisp to parse foreign calls for debugging. diff --git a/src/lisp/Config.x86_common b/src/lisp/Config.x86_common index 1873f7d..ee06a1a 100644 --- a/src/lisp/Config.x86_common +++ b/src/lisp/Config.x86_common @@ -54,7 +54,7 @@ CPP_INCLUDE_OPTIONS := -I. -I$(PATH1) -I- endif CPPFLAGS := $(CPP_DEFINE_OPTIONS) $(CPP_INCLUDE_OPTIONS) -CFLAGS += -Wstrict-prototypes -Wall -O2 -g +CFLAGS += -Wstrict-prototypes -Wall -O2 -g -fno-omit-frame-pointer ASFLAGS = -g ASSEM_SRC = x86-assem.S ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.x86_common | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-01-12-gc96b5d3
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 c96b5d32cec8300cccfcbcfc25211621a145f527 (commit) from 82b30bfd476ba772e56547e05c30ba365f8db802 (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 c96b5d32cec8300cccfcbcfc25211621a145f527 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Feb 3 17:36:04 2014 -0800 Update from commit logs. diff --git a/src/general-info/release-20f.txt b/src/general-info/release-20f.txt index 7272375..8df0287 100644 --- a/src/general-info/release-20f.txt +++ b/src/general-info/release-20f.txt @@ -35,12 +35,16 @@ New in this release: * Main disassembly routines in the DISASSEMBLE package accept :BASE, :CASE, and :RADIX keyword arguments, like DISASSEMBLE:DISASSEMBLE. - * Micro optimizations for sse2 to allow descriptor regs for many - operations so that the operands can be in memory instead of a - register, thereby removing a register load instruction. + * Micro optimizations for sse2 to allow descriptor regs and stack + tns for many operations so that the operands can be in memory + instead of a register, thereby removing a register load + instruction. * Support for darwin/ppc 10.5 and gcc 4.8. * Micro-optimization: (expt -1 power) just returns -1 or 1 without actually computing the power. + * Run-time checks for zero pages on newly allocated pages has been + disabled now that the lazy zeroing of the heap pages has been + the default for several months now. * ANSI compliance fixes: * The values on the branch cuts for the inverse trig and ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20f.txt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp annotated tag snapshot-2013-11 created. snapshot-2013-11
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 annotated tag, snapshot-2013-11 has been created at 554e81590f42b360c93d74b8d78963e1eebccbca (tag) tagging e99b2b29bf65f7a2a678e9d7199085bf4aabd81a (commit) replaces 20e tagged by Raymond Toy on Sun Nov 3 10:24:03 2013 -0800 - Log ----------------------------------------------------------------- Snapshot 2013-11 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlJ2lMoACgkQJ5IjUmgZO7ISggCgqsaYm8Qrhx1Qx2SMGB6VGnOY 8K0AoLQ2+Q+fjU+QV9swuotOHKbDRQJO =IqdY -----END PGP SIGNATURE----- Raymond Toy (8): Print integers with lowercase when *print-case* is :downcase. Delete assembly routines for multiplication and truncation. I think Add some (runtime-enabled) debugging help for packing failures. Enable micro-optimization of fast-unary-ftruncate and Update according to commit logs. Update to ASDF 3.0.3. Update message from inline ftruncate support that was recently added Document why %unary-ftruncate multiplies the result by x when result = ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-08-4-g650e76e
by cshapiro＠common-lisp.net 08 Apr '15

08 Apr '15

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 650e76e600ca917d38a343d3751b5743aee324bb (commit) from db374f49377d8e8c491f3ed3fffdd768f2fd2c78 (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 650e76e600ca917d38a343d3751b5743aee324bb Author: Carl Shapiro <cshapiro(a)common-lisp.net> Date: Sat Aug 10 23:21:42 2013 -0700 compiler/x86: load byte and word values through a sap without a temporary diff --git a/src/compiler/x86/sap.lisp b/src/compiler/x86/sap.lisp index a01112e..bec24be 100644 --- a/src/compiler/x86/sap.lisp +++ b/src/compiler/x86/sap.lisp @@ -186,34 +186,24 @@ (:args (sap :scs (sap-reg)) (offset :scs (signed-reg))) (:arg-types system-area-pointer signed-num) - ,@(unless (eq size :dword) - `((:temporary (:sc ,temp-sc :from (:eval 0) :to (:eval 1)) - temp))) (:results (result :scs (,sc))) (:result-types ,type) (:generator 5 - (inst mov ,(if (eq size :dword) 'result 'temp) - (make-ea ,size :base sap :index offset)) - ,@(unless (eq size :dword) - `((inst ,(if signed 'movsx 'movzx) - result temp))))) + (inst ,(if (eq size :dword) 'mov (if signed 'movsx 'movzx)) + result + (make-ea ,size :base sap :index offset)))) (define-vop (,ref-name-c) (:translate ,ref-name) (:policy :fast-safe) (:args (sap :scs (sap-reg))) (:arg-types system-area-pointer (:constant (signed-byte 32))) (:info offset) - ,@(unless (eq size :dword) - `((:temporary (:sc ,temp-sc :from (:eval 0) :to (:eval 1)) - temp))) (:results (result :scs (,sc))) (:result-types ,type) (:generator 4 - (inst mov ,(if (eq size :dword) 'result 'temp) - (make-ea ,size :base sap :disp offset)) - ,@(unless (eq size :dword) - `((inst ,(if signed 'movsx 'movzx) - result temp))))) + (inst ,(if (eq size :dword) 'mov (if signed 'movsx 'movzx)) + result + (make-ea ,size :base sap :disp offset)))) (define-vop (,set-name) (:translate ,set-name) (:policy :fast-safe) ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/sap.lisp | 22 ++++++---------------- 1 file changed, 6 insertions(+), 16 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-101-g9831983
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 98319835e05b93ea62e17f6bc3da4144f96ac2c5 (commit) from a4cb51f3ce2e599377f122b79dad696603c6b202 (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 98319835e05b93ea62e17f6bc3da4144f96ac2c5 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Aug 6 20:11:22 2014 -0700 Regenerated and updated. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index 91b8845..19b58d4 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -16324,9 +16324,9 @@ msgid "" " :To Time-Spec\n" " Specify the beginning or end of the operand's lifetime. :From can\n" " only be used with results, and :To only with arguments. The default\n" -" for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). These\n" -" options are necessary primarily when operands are read or written out\n" -" of order.\n" +" for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). (The\n" +" first argument/result is number 0.) These options are necessary\n" +" primarily when operands are read or written out of order.\n" " \n" " :Conditional\n" " This is used in place of :RESULTS with conditional branch VOPs. " ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl.pot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-36-ga7f3ba6
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 a7f3ba676413d2a0cbd0505940c4a966ee25134c (commit) from e38211a12ceccae3b59938fd4815ab9055d6d5b8 (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 a7f3ba676413d2a0cbd0505940c4a966ee25134c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Aug 27 19:52:57 2014 -0700 Correct the comment. diff --git a/tests/trig.lisp b/tests/trig.lisp index cfd7ea2..861a298 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -1,4 +1,5 @@ -;;; Tests for the basic trig functions, now implemented in Lisp. +;;; Tests for the basic trig, hyperbolic, exponential and log +;;; functions. (defpackage :trig-tests (:use :cl :lisp-unit)) ----------------------------------------------------------------------- Summary of changes: tests/trig.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp annotated tag snapshot-2013-08 created. snapshot-2013-08
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 annotated tag, snapshot-2013-08 has been created at 8f1d4be706199c55cee63fb10d555ae32e1340a4 (tag) tagging 19aa444cd539ad21397f01aab5a71feb049173bf (commit) replaces snapshot-2013-07 tagged by Raymond Toy on Fri Aug 2 21:05:45 2013 -0700 - Log ----------------------------------------------------------------- Snapshot 2013-08 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlH8gZ8ACgkQJ5IjUmgZO7KP6gCg110PJWH5S85SOviGWWtnXYgO 7y4AoLHsNvJVkkXrNsI8enFB+m2ceOQh =6SOK -----END PGP SIGNATURE----- Carl Shapiro (3): Improve and clean-up some move VOPs. Simplify the %more-arg-values VOP. Remove EAX dependency in length/list and retire fast-length/list. Raymond Toy (2): Make NOT-MORE-CONTAGIOUS support member and union types. Update from logs. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0