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 "OCT: A portable Lisp implementation for quad-double precision floats".
The branch, master has been updated via 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b (commit) via 738d3980f615a396fa87b62fa6e8edc5a1a59f2f (commit) via bf28d710e15cc99061b17bd46c68f4945afcfe80 (commit) from 0804332c622d188cd923e2101ce354f9732d7371 (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 6ab0812b935e4fa1c63ba9f5d58f7e66eb6f375b Author: Raymond Toy toy.raymond@gmail.com Date: Sun Feb 13 01:33:47 2011 -0500
The TARGET parameter is not a %QUAD-DOUBLE if we're not using arrays to represent a %quad-double.
diff --git a/qd.lisp b/qd.lisp index 0e58e4a..2b72769 100644 --- a/qd.lisp +++ b/qd.lisp @@ -315,7 +315,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
(defun add-qd-d-t (a b target) "Add a quad-double A and a double-float B" - (declare (type %quad-double a target) + (declare (type %quad-double a #+oct-array target) (double-float b) (optimize (speed 3) (space 0)) @@ -416,7 +416,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
(defun add-qd-t (a b target) - (declare (type %quad-double a b target) + (declare (type %quad-double a b #+oct-array target) (optimize (speed 3) (space 0)) #+(and cmu (not oct-array)) @@ -482,7 +482,7 @@ If TARGET is given, TARGET is destructively modified to contain the result." (neg-qd-t a target))
(defun neg-qd-t (a target) - (declare (type %quad-double a target) + (declare (type %quad-double a #+oct-array target) #+(and cmu (not oct-array)) (ignore target)) (with-qd-parts (a0 a1 a2 a3) a @@ -542,7 +542,7 @@ If TARGET is given, TARGET is destructively modified to contain the result."
(defun mul-qd-d-t (a b target) "Multiply quad-double A with B" - (declare (type %quad-double a target) + (declare (type %quad-double a #+oct-array target) (double-float b) (optimize (speed 3) (space 0)) @@ -670,7 +670,7 @@ If TARGET is given, TARGET is destructively modified to contain the result." (mul-qd-t a b target))
(defun mul-qd-t (a b target) - (declare (type %quad-double a b target) + (declare (type %quad-double a b #+oct-array target) (optimize (speed 3) (space 0)) (inline float-infinity-p) @@ -843,7 +843,7 @@ it is destructively modified with the result."
(defun sqr-qd-t (a target) "Square A" - (declare (type %quad-double a target) + (declare (type %quad-double a #+oct-array target) (optimize (speed 3) (space 0)) #+(and cmu (not oct-array)) @@ -920,7 +920,7 @@ If TARGET is given, it destrutively modified with the result." (%store-qd-d target q0 q1 q2 q3)))))))
(defun div-qd-t (a b target) - (declare (type %quad-double a b target) + (declare (type %quad-double a b #+oct-array target) (optimize (speed 3) (space 0)) (inline float-infinity-p)
commit 738d3980f615a396fa87b62fa6e8edc5a1a59f2f Author: Raymond Toy toy.raymond@gmail.com Date: Sun Feb 13 01:11:21 2011 -0500
Ignore *~.
diff --git a/.gitignore b/.gitignore index 44c8368..39ef52b 100644 --- a/.gitignore +++ b/.gitignore @@ -3,4 +3,6 @@ *.sparcf *.fasl *.err +*~ +
commit bf28d710e15cc99061b17bd46c68f4945afcfe80 Author: Raymond Toy toy.raymond@gmail.com Date: Sun Feb 13 01:10:31 2011 -0500
Ignore *.err files.
diff --git a/.gitignore b/.gitignore index 77c698b..44c8368 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,5 @@ *.x86f *.sparcf *.fasl +*.err +
-----------------------------------------------------------------------
Summary of changes: .gitignore | 4 ++++ qd.lisp | 14 +++++++------- 2 files changed, 11 insertions(+), 7 deletions(-)
hooks/post-receive