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

[git] CMU Common Lisp branch master updated. snapshot-2014-06-99-g7e5b00b
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 7e5b00bfacdf0a3693fef1d92329da18bf4e028b (commit) from f05a4402996b0b7bc7c00c48fa4a27a4b3cf532b (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 7e5b00bfacdf0a3693fef1d92329da18bf4e028b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Aug 5 21:26:12 2014 -0700 Fix typo and add -m32 to LDFLAGS. diff --git a/src/motif/server/Config.x86 b/src/motif/server/Config.x86 index bbfb987..d830710 100644 --- a/src/motif/server/Config.x86 +++ b/src/motif/server/Config.x86 @@ -1,7 +1,7 @@ -CFLAGS += -m3 -O2 -I/usr/X11R6/include -I. -I$(VPATH) +CFLAGS += -m32 -O2 -I/usr/X11R6/include -I. -I$(VPATH) # LDFLAGS += -L/usr/X11R6/lib # On OpenSuSE 11.3,the 32-bit X libraries are in /usr/lib. -LDFLAGS += -L/usr/lib +LDFLAGS += -m32 -L/usr/lib LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE -lXp -ldl -lpthread # This def assumes you are building in the same or parallel # tree to the CVS souce layout. Sites may need to customize ----------------------------------------------------------------------- Summary of changes: src/motif/server/Config.x86 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-04-26-gde34b9a
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 de34b9a71dd48b8cbcf6bd615348e57800c07d4f (commit) from b9cf3661ab0675ef091588e26080756ecd0d4197 (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 de34b9a71dd48b8cbcf6bd615348e57800c07d4f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat May 4 21:16:44 2013 -0700 Remove DEPENDS and set DEPENDS_FLAG for ppc. diff --git a/src/lisp/Config.ppc_darwin b/src/lisp/Config.ppc_darwin index 8ce16f4..e999827 100644 --- a/src/lisp/Config.ppc_darwin +++ b/src/lisp/Config.ppc_darwin @@ -17,7 +17,7 @@ CC = gcc LD = ld NM = $(PATH1)/darwin-nm CPP = cpp -no-cpp-precomp -DEPEND = $(CC) -MM +DEPEND_FLAGS = -MM ifdef FEATURE_LINKAGE_TABLE LINKAGE = -DLINKAGE_TABLE ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.ppc_darwin | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. 20e-3-g622b5df
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 622b5df431a87ae3c8a816b7c569f5c5ef85a6d7 (commit) from 40aa2475c25a2715e100bbde7ba7db437a8a4326 (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 622b5df431a87ae3c8a816b7c569f5c5ef85a6d7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 20 09:47:38 2013 -0700 Add some (runtime-enabled) debugging help for packing failures. diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp index 91ae142..bac8116 100644 --- a/src/compiler/pack.lisp +++ b/src/compiler/pack.lisp @@ -340,6 +340,8 @@ VM definition inconsistent, try recompiling."))))) +(defvar *debug-pack* nil) + ;;; FAILED-TO-PACK-ERROR -- Internal ;;; ;;; Called when we failed to pack TN. If Restricted is true, then we we @@ -351,8 +353,12 @@ (scs (cons sc (sc-alternate-scs sc)))) (cond (restricted - (error "Failed to pack restricted TN ~S in its SC ~S." - tn (sc-name sc))) + (when *debug-pack* + ;; Useful for possibly figuring out which vop might be the + ;; source of the conflict. + (describe tn)) + (error "Failed to pack restricted TN ~S in its SC ~S: ~S" + tn (sc-name sc) (tn-sc tn))) (t (assert (not (find :unbounded scs :key #'(lambda (x) (sb-kind (sc-sb x)))))) @@ -1511,7 +1517,8 @@ (when (and save (eq (tn-kind save) :specified-save)) (tn-sc save)))) - + (when *debug-pack* + (format t "pack-tn alternates: ~S~%" alternates)) (do ((sc fsc (pop alternates))) ((null sc) (failed-to-pack-error tn restricted)) ----------------------------------------------------------------------- Summary of changes: src/compiler/pack.lisp | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp annotated tag snapshot-2013-07 created. snapshot-2013-07
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-07 has been created at f301f9439d696cdf8a78e81051aa8b1fe102423f (tag) tagging bb56dbb6572939222d731530c3045b4a87ee7f51 (commit) replaces snapshot-2013-06 tagged by Raymond Toy on Thu Jul 4 11:54:53 2013 -0700 - Log ----------------------------------------------------------------- Snapshot 2013-07 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlHVxQQACgkQJ5IjUmgZO7KWkACfQ5iLHsrs+dIPdupOMBKg2f8Y WvcAnjkqAU9PBgbA5Z/QYAZ1Se4G8H4w =Aai3 -----END PGP SIGNATURE----- Raymond Toy (5): Initialize some variables to get rid of some clang warnings. Add a herald for defsystem. Fix some compiler warnings about unused variables or variables that Update to asdf 3.0.2. Update from logs. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-40-gb48c235
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 b48c235255ef3e9cf0f47446a3adf8ce0abbe07f (commit) from 074f4d0bac83c1f2f8aff49ec9dd6e23950106fc (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 b48c235255ef3e9cf0f47446a3adf8ce0abbe07f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Aug 27 20:45:10 2014 -0700 Add function to run selected tests. Makes it a bit easier to run a selected set instead of all tests. diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp index 46ec3a3..50f1ce6 100644 --- a/tests/run-tests.lisp +++ b/tests/run-tests.lisp @@ -5,6 +5,11 @@ ;;;; ;;;; lisp -noinit -load tests/run-tests.lisp -eval '(cmucl-test-runner:run-all-tests)' ;;;; +;;;; +;;;; To run selected tests: +;;;; +;;;; lisp -noinit -load tests/run-tests.lisp -eval '(progn (cmucl-test-runner:load-test-files) (cmucl-test-runner:run-test <list>))' +;;;; ;;;; Note that you cannot run these tests from a binary created during ;;;; a build process. You must run ;;;; @@ -25,6 +30,7 @@ #:load-test-files #:run-loaded-tests #:run-all-tests + #:run-test #:print-test-results)) (in-package :cmucl-test-runner) @@ -65,8 +71,16 @@ test-results)) (nreverse test-results))) +;; Run selected tests +(defun run-test (&rest tests) + (let (test-results) + (dolist (test tests) + (push (lisp-unit:run-tests :all test) + test-results)) + (print-test-results (nreverse test-results) :verbose t))) + ;; Print out a summary of test results produced from RUN-LOADED-TESTS. -(defun print-test-results (results &key verbose) +(defun print-test-results (results &key verbose exitp) (let ((passed 0) (failed 0) (execute-errors 0) @@ -106,9 +120,11 @@ (format t "~2&Execute failures: ~S~%" execute-error-tests) (dolist (result results) (lisp-unit:print-errors result))) - (unix:unix-exit 1)) + (when exitp + (unix:unix-exit 1))) (t - (unix:unix-exit 0))))) + (when exitp + (unix:unix-exit 0)))))) ;; Look through all the files in the TEST-DIRECTORY and load them. ;; Then run all of the tests. For each file, it ia assumed that a @@ -116,7 +132,7 @@ ;; pathname-name of the file. (defun run-all-tests (&key (test-directory #P"tests/") (verbose t)) (load-test-files test-directory) - (print-test-results (run-loaded-tests) :verbose t)) + (print-test-results (run-loaded-tests) :verbose t :exitp t)) ;;(run-all-tests) ;;(quit) ----------------------------------------------------------------------- Summary of changes: tests/run-tests.lisp | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-09-9-g128d65b
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 128d65bef6e7d5c4d2701f05b2944bd5ec2223c9 (commit) from 2e182540e895f16b26224ba11b2f38de93ab2672 (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 128d65bef6e7d5c4d2701f05b2944bd5ec2223c9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 20 12:51:45 2014 -0700 Import e_log10.c from netlib as is. diff --git a/src/lisp/e_log10.c b/src/lisp/e_log10.c new file mode 100644 index 0000000..dc7e312 --- /dev/null +++ b/src/lisp/e_log10.c @@ -0,0 +1,91 @@ + +/* @(#)e_log10.c 1.3 95/01/18 */ +/* + * ==================================================== + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * + * Developed at SunSoft, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== + */ + +/* __ieee754_log10(x) + * Return the base 10 logarithm of x + * + * Method : + * Let log10_2hi = leading 40 bits of log10(2) and + * log10_2lo = log10(2) - log10_2hi, + * ivln10 = 1/log(10) rounded. + * Then + * n = ilogb(x), + * if(n<0) n = n+1; + * x = scalbn(x,-n); + * log10(x) := n*log10_2hi + (n*log10_2lo + ivln10*log(x)) + * + * Note 1: + * To guarantee log10(10**n)=n, where 10**n is normal, the rounding + * mode must set to Round-to-Nearest. + * Note 2: + * [1/log(10)] rounded to 53 bits has error .198 ulps; + * log10 is monotonic at all binary break points. + * + * Special cases: + * log10(x) is NaN with signal if x < 0; + * log10(+INF) is +INF with no signal; log10(0) is -INF with signal; + * log10(NaN) is that NaN with no signal; + * log10(10**N) = N for N=0,1,...,22. + * + * Constants: + * The hexadecimal values are the intended ones for the following constants. + * The decimal values may be used, provided that the compiler will convert + * from decimal to binary accurately enough to produce the hexadecimal values + * shown. + */ + +#include "fdlibm.h" + +#ifdef __STDC__ +static const double +#else +static double +#endif +two54 = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */ +ivln10 = 4.34294481903251816668e-01, /* 0x3FDBCB7B, 0x1526E50E */ +log10_2hi = 3.01029995663611771306e-01, /* 0x3FD34413, 0x509F6000 */ +log10_2lo = 3.69423907715893078616e-13; /* 0x3D59FEF3, 0x11F12B36 */ + +static double zero = 0.0; + +#ifdef __STDC__ + double __ieee754_log10(double x) +#else + double __ieee754_log10(x) + double x; +#endif +{ + double y,z; + int i,k,hx; + unsigned lx; + + hx = __HI(x); /* high word of x */ + lx = __LO(x); /* low word of x */ + + k=0; + if (hx < 0x00100000) { /* x < 2**-1022 */ + if (((hx&0x7fffffff)|lx)==0) + return -two54/zero; /* log(+-0)=-inf */ + if (hx<0) return (x-x)/zero; /* log(-#) = NaN */ + k -= 54; x *= two54; /* subnormal number, scale up x */ + hx = __HI(x); /* high word of x */ + } + if (hx >= 0x7ff00000) return x+x; + k += (hx>>20)-1023; + i = ((unsigned)k&0x80000000)>>31; + hx = (hx&0x000fffff)|((0x3ff-i)<<20); + y = (double)(k+i); + __HI(x) = hx; + z = y*log10_2lo + ivln10*__ieee754_log(x); + return z+y*log10_2hi; +} ----------------------------------------------------------------------- Summary of changes: src/lisp/e_log10.c | 91 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 91 insertions(+) create mode 100644 src/lisp/e_log10.c hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-07-2-g02e58f6
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 02e58f652b6626d5b71f84def88cd8cd2a25bffd (commit) from f36a31aaf95b60e2cc210648d951b41d3112a73a (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 02e58f652b6626d5b71f84def88cd8cd2a25bffd Author: Carl Shapiro <cshapiro(a)common-lisp.net> Date: Wed Jul 31 23:12:00 2013 -0700 Improve and clean-up some move VOPs. * Remove the name dependence on EAX in move-to-word/integer. * Change move-from-signed to do a fixnum check using one branch instead of two. * Remove move-from-signed and move-from-unsigned assembly routines and the commented out code that refers to them. diff --git a/src/assembly/x86/alloc.lisp b/src/assembly/x86/alloc.lisp index 32ec7af..2a90fe9 100644 --- a/src/assembly/x86/alloc.lisp +++ b/src/assembly/x86/alloc.lisp @@ -1,4 +1,4 @@ -;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10; Package: x86 -*- +;;; -*- Package: X86 -*- ;;; ;;; ********************************************************************** ;;; This code was written as part of the CMU Common Lisp project at @@ -17,58 +17,7 @@ ;;; ;;; Debugged by Paul F. Werkowski -- Spring 1995. ;;; -(in-package :x86) - -;;;; From from signed/unsigned +(in-package "X86") -#+assembler ; we don't want a vop for this one. -(define-assembly-routine - (move-from-signed) - ((:temp eax unsigned-reg eax-offset) - (:temp ebx unsigned-reg ebx-offset)) - (inst mov ebx eax) - (inst shl ebx 1) - (inst jmp :o bignum) - (inst shl ebx 1) - (inst jmp :o bignum) - (inst ret) - BIGNUM - - (with-fixed-allocation (ebx bignum-type (+ bignum-digits-offset 1)) - (storew eax ebx bignum-digits-offset other-pointer-type)) - - (inst ret)) - -#+assembler ; we don't want a vop for this one either. -(define-assembly-routine - (move-from-unsigned) - ((:temp eax unsigned-reg eax-offset) - (:temp ebx unsigned-reg ebx-offset)) - - (inst test eax #xe0000000) - (inst jmp :nz bignum) - ;; Fixnum - (inst mov ebx eax) - (inst shl ebx 2) - (inst ret) - - BIGNUM - ;;; Note: On the mips port space for a two word bignum is always - ;;; allocated and the header size is set to either one or two words - ;;; as appropriate. On the mips port this is faster, and smaller - ;;; inline, but produces more garbage. The inline x86 version uses - ;;; the same approach, but here we save garbage and allocate the - ;;; smallest possible bignum. - (inst jmp :ns one-word-bignum) - (inst mov ebx eax) - - ;; Two word bignum - (with-fixed-allocation (ebx bignum-type (+ bignum-digits-offset 2)) - (storew eax ebx bignum-digits-offset other-pointer-type)) - (inst ret) - - ONE-WORD-BIGNUM - (with-fixed-allocation (ebx bignum-type (+ bignum-digits-offset 1)) - (storew eax ebx bignum-digits-offset other-pointer-type)) - (inst ret)) +;;; But we do everything inline now that we have a better pseudo-atomic. diff --git a/src/compiler/x86/move.lisp b/src/compiler/x86/move.lisp index 2ff54ee..e40d62d 100644 --- a/src/compiler/x86/move.lisp +++ b/src/compiler/x86/move.lisp @@ -232,20 +232,17 @@ ;;; Arg is a fixnum or bignum, figure out which and load if necessary. (define-vop (move-to-word/integer) - (:args (x :scs (descriptor-reg) :target eax)) + (:args (x :scs (descriptor-reg) :target y)) (:results (y :scs (signed-reg unsigned-reg))) (:note _N"integer to untagged word coercion") - (:temporary (:sc unsigned-reg :offset eax-offset - :from (:argument 0) :to (:result 0) :target y) eax) (:generator 4 - (move eax x) - (inst test al-tn 3) - (inst jmp :z fixnum) - (loadw y eax bignum-digits-offset other-pointer-type) + (inst test x 3) + (inst jmp :nz BIGNUM) + (move y x) + (inst sar y 2) (inst jmp done) - FIXNUM - (inst sar eax 2) - (move y eax) + BIGNUM + (loadw y x bignum-digits-offset other-pointer-type) DONE)) ;;; (define-move-vop move-to-word/integer :move @@ -278,45 +275,30 @@ ;;; Result may be a bignum, so we have to check. Use a worst-case cost to make ;;; sure people know they may be number consing. ;;; -#+nil (define-vop (move-from-signed) - (:args (x :scs (signed-reg unsigned-reg) :target eax)) - (:temporary (:sc unsigned-reg :offset eax-offset :from (:argument 0)) eax) - (:temporary (:sc unsigned-reg :offset ebx-offset :to (:result 0) :target y) - ebx) - (:temporary (:sc unsigned-reg :offset ecx-offset - :from (:argument 0) :to (:result 0)) ecx) - (:ignore ecx) + (:args (x :scs (signed-reg unsigned-reg) :to :save)) + (:temporary (:sc unsigned-reg) temp) (:results (y :scs (any-reg descriptor-reg))) (:note _N"signed word to integer coercion") - (:generator 20 - (move eax x) - (inst call (make-fixup 'move-from-signed :assembly-routine)) - (move y ebx))) -;;; -;;; Faster inline version, -(define-vop (move-from-signed) - (:args (x :scs (signed-reg unsigned-reg) :to :result)) - (:results (y :scs (any-reg descriptor-reg) :from :argument)) - (:note _N"signed word to integer coercion") (:node-var node) (:generator 20 - (assert (not (location= x y))) - (let ((bignum (gen-label)) - (done (gen-label))) - (inst mov y x) - (inst shl y 1) - (inst jmp :o bignum) - (inst shl y 1) - (inst jmp :o bignum) - (emit-label done) - - (assemble (*elsewhere*) - (emit-label bignum) - (with-fixed-allocation - (y bignum-type (+ bignum-digits-offset 1) node) - (storew x y bignum-digits-offset other-pointer-type)) - (inst jmp done))))) + (assert (not (location= x y))) + (assert (not (location= x temp))) + (assert (not (location= y temp))) + (let ((bignum (gen-label)) + (done (gen-label))) + (inst lea temp (make-ea :dword :base x :disp #x20000000)) + (inst cmp temp #x40000000) + (inst jmp :nb bignum) + (inst lea y (make-ea :dword :index x :scale 4)) + (emit-label done) + + (assemble (*elsewhere*) + (emit-label bignum) + (with-fixed-allocation (y bignum-type + (+ bignum-digits-offset 1) node) + (storew x y bignum-digits-offset other-pointer-type)) + (inst jmp done))))) ;;; (define-move-vop move-from-signed :move (signed-reg) (descriptor-reg)) @@ -325,23 +307,6 @@ ;;; Check for fixnum, and possibly allocate one or two word bignum result. Use ;;; a worst-case cost to make sure people know they may be number consing. ;;; -#+nil -(define-vop (move-from-unsigned) - (:args (x :scs (signed-reg unsigned-reg) :target eax)) - (:temporary (:sc unsigned-reg :offset eax-offset :from (:argument 0)) eax) - (:temporary (:sc unsigned-reg :offset ebx-offset :to (:result 0) :target y) - ebx) - (:temporary (:sc unsigned-reg :offset ecx-offset - :from (:argument 0) :to (:result 0)) ecx) - (:ignore ecx) - (:results (y :scs (any-reg descriptor-reg))) - (:note _N"unsigned word to integer coercion") - (:generator 20 - (move eax x) - (inst call (make-fixup 'move-from-unsigned :assembly-routine)) - (move y ebx))) -;;; -;;; Faster inline version. (define-vop (move-from-unsigned) (:args (x :scs (signed-reg unsigned-reg) :to :save)) (:temporary (:sc unsigned-reg) alloc) ----------------------------------------------------------------------- Summary of changes: src/assembly/x86/alloc.lisp | 57 ++-------------------------- src/compiler/x86/move.lisp | 87 +++++++++++++------------------------------ 2 files changed, 29 insertions(+), 115 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-10-gab44683
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 ab446830b129ca3607c4342c24849ca8554db7ce (commit) from 375ce218ab639fbc0b433942dbb7398a0bcd0177 (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 ab446830b129ca3607c4342c24849ca8554db7ce Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Aug 15 20:06:40 2014 -0700 Micro optimize float bits getters. When the float is in a register, we don't have to store it to memory to get at the parts. SSE2 has instructions to move from an XMM register to a general purpose register. diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp index 76bcc31..876b19d 100644 --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -1199,7 +1199,6 @@ (:args (float :scs (single-reg descriptor-reg) :load-if (not (sc-is float single-stack)))) (:results (bits :scs (signed-reg))) - (:temporary (:sc signed-stack :from :argument :to :result) stack-temp) (:arg-types single-float) (:result-types signed-num) (:translate single-float-bits) @@ -1210,8 +1209,7 @@ (signed-reg (sc-case float (single-reg - (inst movss stack-temp float) - (inst mov bits stack-temp)) + (inst movd bits float)) (single-stack (move bits float)) (descriptor-reg @@ -1226,7 +1224,7 @@ (:args (float :scs (double-reg descriptor-reg) :load-if (not (sc-is float double-stack)))) (:results (hi-bits :scs (signed-reg))) - (:temporary (:sc double-stack) temp) + (:temporary (:sc double-reg) temp) (:arg-types double-float) (:result-types signed-num) (:translate double-float-high-bits) @@ -1235,11 +1233,9 @@ (:generator 5 (sc-case float (double-reg - (let ((where (make-ea :dword :base ebp-tn - :disp (- (* (+ 2 (tn-offset temp)) - word-bytes))))) - (inst movsd where float)) - (loadw hi-bits ebp-tn (- (1+ (tn-offset temp))))) + (inst movq temp float) + (inst psrlq temp 32) + (inst movd hi-bits temp)) (double-stack (loadw hi-bits ebp-tn (- (1+ (tn-offset float))))) (descriptor-reg @@ -1250,7 +1246,6 @@ (:args (float :scs (double-reg descriptor-reg) :load-if (not (sc-is float double-stack)))) (:results (lo-bits :scs (unsigned-reg))) - (:temporary (:sc double-stack) temp) (:arg-types double-float) (:result-types unsigned-num) (:translate double-float-low-bits) @@ -1259,11 +1254,7 @@ (:generator 5 (sc-case float (double-reg - (let ((where (make-ea :dword :base ebp-tn - :disp (- (* (+ 2 (tn-offset temp)) - word-bytes))))) - (inst movsd where float)) - (loadw lo-bits ebp-tn (- (+ 2 (tn-offset temp))))) + (inst movd lo-bits float)) (double-stack (loadw lo-bits ebp-tn (- (+ 2 (tn-offset float))))) (descriptor-reg @@ -1278,19 +1269,17 @@ (lo-bits :scs (unsigned-reg))) (:arg-types double-float) (:result-types signed-num unsigned-num) - (:temporary (:sc double-stack) temp) + (:temporary (:sc double-reg) temp) (:translate kernel::double-float-bits) (:policy :fast-safe) (:vop-var vop) (:generator 5 (sc-case float (double-reg - (let ((where (make-ea :dword :base ebp-tn - :disp (- (* (+ 2 (tn-offset temp)) - word-bytes))))) - (inst movsd where float)) - (loadw hi-bits ebp-tn (- (+ 1 (tn-offset temp)))) - (loadw lo-bits ebp-tn (- (+ 2 (tn-offset temp))))) + (inst movq temp float) + (inst movd lo-bits temp) + (inst psrlq temp 32) + (inst movd hi-bits temp)) (double-stack (loadw hi-bits ebp-tn (- (+ 1 (tn-offset float)))) (loadw lo-bits ebp-tn (- (+ 2 (tn-offset float))))) @@ -1299,6 +1288,7 @@ vm:other-pointer-type) (loadw lo-bits float vm:double-float-value-slot vm:other-pointer-type))))) + ;;;; Float mode hackery: ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/float-sse2.lisp | 34 ++++++++++++---------------------- 1 file changed, 12 insertions(+), 22 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-75-g6b52c89
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 6b52c890ac41ba5deedd8b6ebaf33d4955fcfbd9 (commit) via 6f434b0e3a56af69c1e32eefc158cc74c5464da3 (commit) from fdc6db4b7af14ce1ceb6e38e92135335a4921fa3 (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 6b52c890ac41ba5deedd8b6ebaf33d4955fcfbd9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 16:59:44 2014 -0700 Use fdlibm atan2. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 4ea134e..5f24bf9 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -68,7 +68,7 @@ (def-math-rtn ("fdlibm_cos" %cos) 1) (def-math-rtn ("fdlibm_tan" %tan) 1) (def-math-rtn ("fdlibm_atan" %atan) 1) -(def-math-rtn "atan2" 2) +(def-math-rtn ("__ieee754_atan2" %atan2) 2) (def-math-rtn ("__ieee754_asin" %asin) 1) (def-math-rtn ("__ieee754_acos" %acos) 1) (def-math-rtn ("__ieee754_sinh" %sinh) 1) commit 6f434b0e3a56af69c1e32eefc158cc74c5464da3 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 16:59:14 2014 -0700 Compile the fdlibm atan2. . diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index d260368..a76280d 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -22,7 +22,8 @@ OS_SRC += k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c \ s_log1p.c s_expm1.c e_pow.c e_exp.c e_log.c \ e_acos.c e_asin.c s_atan.c \ e_cosh.c e_sinh.c s_tanh.c \ - e_acosh.c s_asinh.c e_atanh.c + e_acosh.c s_asinh.c e_atanh.c \ + e_atan2.c k_sin.o : k_sin.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< @@ -72,3 +73,6 @@ e_asinh.o : s_asinh.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< e_atanh.o : e_atanh.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +e_atan2.o : e_atan2.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 2 +- src/lisp/Config.x86_darwin | 6 +++++- 2 files changed, 6 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-11-2-g20ee8ef
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 20ee8ef20cd01a0be841695d6beaf98968e5be31 (commit) from 373bc974935a33ff1515d0d1cce2af8f7d910c04 (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 20ee8ef20cd01a0be841695d6beaf98968e5be31 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Nov 7 22:33:42 2013 -0800 Add shortcut for (expt -1 power). diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 67ca060..927a5fb 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -318,11 +318,13 @@ ;;; of power are calculated as positive integers, and inverted if negative. ;;; (defun intexp (base power) - ;; Handle the special case of 1^power. Maxima sometimes does this, - ;; and there's no need to cause a continuable error in this case. - ;; Should we also handle (-1)^power? + ;; Handle the special case of 1^power and (-1)^power. Maxima + ;; sometimes does this, and there's no need to cause a continuable + ;; error in this case. (when (eql base 1) (return-from intexp base)) + (when (eql base -1) + (return-from intexp (if (oddp power) -1 1))) (when (> (abs power) *intexp-maximum-exponent*) ;; Allow user the option to continue with calculation, possibly ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0