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

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-8-g3b9e43c
by Raymond Toy 30 Mar '12

30 Mar '12

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 3b9e43c17458d68ccf262530c34459eb007d58e1 (commit) from 26419b3ce542bb406d08585c051a1dc97ba208fb (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 3b9e43c17458d68ccf262530c34459eb007d58e1 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Mar 29 18:53:33 2012 -0700 Clarify a comment. diff --git a/src/compiler/sparc/arith.lisp b/src/compiler/sparc/arith.lisp index 796bc4c..a4d36f6 100644 --- a/src/compiler/sparc/arith.lisp +++ b/src/compiler/sparc/arith.lisp @@ -201,7 +201,9 @@ ;; This vop is intended to handle the case (logand x #xffffffff) when ;; x is a (signed-byte 32). We can just do a register move instead of -;; and'ing with #xffffffff. +;; and'ing with #xffffffff. Some other special cases are handled too +;; when the constant can fit inside the immediate operaand of the and +;; instruction. (define-vop (fast-logand-c/signed-unsigned=>unsigned fast-unsigned-binop-c) (:args (x :scs (signed-reg))) (:translate logand) @@ -214,7 +216,7 @@ ((typep y '(unsigned-byte 13)) (inst and r x y)) (t - ;; The constant is really a (signed-byte 13), so convert it + ;; The constant operand is really a (signed-byte 13), so convert it ;; to a negative number so the immediate operand gets ;; signed extended to the right bits. (inst and r x (- y #x100000000)) ----------------------------------------------------------------------- Summary of changes: src/compiler/sparc/arith.lisp | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-7-g26419b3
by Raymond Toy 29 Mar '12

29 Mar '12

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 26419b3ce542bb406d08585c051a1dc97ba208fb (commit) via bd6f5eacbbf9869a0a69973d50d14577c9bfb3cc (commit) from b08f245dbb9de963ca05142bb20d8fd27071a343 (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 26419b3ce542bb406d08585c051a1dc97ba208fb Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Mar 28 21:14:12 2012 -0700 Add comments, clean up code a little. diff --git a/src/contrib/packed-sse2/packed-sse2.lisp b/src/contrib/packed-sse2/packed-sse2.lisp index c3b9668..4d8de08 100644 --- a/src/contrib/packed-sse2/packed-sse2.lisp +++ b/src/contrib/packed-sse2/packed-sse2.lisp @@ -9,7 +9,11 @@ ;; SSE2 Packed operations. ;; -;; We use (complex double-float) variables to hold the packed values. +;; We use (complex double-float) variables to hold the packed values, +;; including packed doubles and packed singles. For convenience, use +;; sse2-setpd or sse2-setps to initialize the packed variables with +;; the given scalar values. To extract the individual components of +;; the packed values, use sse2-getpd or sse2-getps. (in-package #:vm) @@ -128,47 +132,51 @@ (declaim (inline sse2-shufpd sse2-shufps)) -(defun sse2-shufpd (x y i) +;; This needs better documentation. I (rtoy) can never remember what +;; the magic I values actually do. +(defun sse2-shufpd (dst src i) "Shuffle packed doubles in X and Y according to I." - (declare (type (complex double-float) x y) + (declare (type (complex double-float) dst src) (type (unsigned-byte 2) i)) (ecase i (0 - (%sse2-shufpd x y 0)) + (%sse2-shufpd dst src 0)) (1 - (%sse2-shufpd x y 1)) + (%sse2-shufpd dst src 1)) (2 - (%sse2-shufpd x y 2)) + (%sse2-shufpd dst src 2)) (3 - (%sse2-shufpd x y 3)))) + (%sse2-shufpd dst src 3)))) -(defun sse2-shufps (x y i) +(defun sse2-shufps (dst src i) "Shuffle packed singles in X and Y according to I." - (declare (type (complex double-float) x y) + (declare (type (complex double-float) dst src) (type (unsigned-byte 4) i)) (ecase i (0 - (%sse2-shufps x y 0)) + (%sse2-shufps dst src 0)) (1 - (%sse2-shufps x y 1)) + (%sse2-shufps dst src 1)) (2 - (%sse2-shufps x y 2)) + (%sse2-shufps dst src 2)) (3 - (%sse2-shufps x y 3)) + (%sse2-shufps dst src 3)) (4 - (%sse2-shufps x y 4)) + (%sse2-shufps dst src 4)) (5 - (%sse2-shufps x y 5)) + (%sse2-shufps dst src 5)) (6 - (%sse2-shufps x y 6)) + (%sse2-shufps dst src 6)) (7 - (%sse2-shufps x y 7)))) + (%sse2-shufps dst src 7)))) ;; x is the high part and y is the low part. (declaim (inline sse2-setpd sse2-getpd sse2-setps sse2-getps)) (defun sse2-setpd (x y) "Create a packed double with X in the high part and Y in the low part" (declare (type double-float x y)) + ;; Complex double-floats store the real part in the low half of the + ;; sse2 register. (complex y x)) (defun sse2-getpd (pd) @@ -185,7 +193,12 @@ (flet ((pack-singles-to-double (hi lo) (let ((hi-bits (single-float-bits hi)) (lo-bits (single-float-bits lo))) + ;; Create a double-float where the most significant 32 + ;; bits contain the hi float and the low 32-bits contain + ;; the low float. (make-double-float hi-bits (logand #xffffffff lo-bits))))) + ;; Pack the singles into a double and the pack the two doubles + ;; into a (complex double-float). (sse2-setpd (pack-singles-to-double x3 x2) (pack-singles-to-double x1 x0)))) commit bd6f5eacbbf9869a0a69973d50d14577c9bfb3cc Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Mar 28 21:11:18 2012 -0700 Microoptimization: (logand x #xffffffff) can be just a register move without and'ing. (If x is a signed-byte 32.) diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp index 96b480e..69d3426 100644 --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -348,8 +348,18 @@ (define-vop (fast-logand-c/signed-unsigned=>unsigned fast-logand-c/unsigned=>unsigned) (:args (x :target r :scs (signed-reg signed-stack))) - (:arg-types signed-num (:constant (unsigned-byte 32)))) - + (:arg-types signed-num (:constant (unsigned-byte 32))) + (:generator 1 + (cond ((and (= y #xffffffff) + (sc-is x signed-reg)) + ;; Just move x to the result if we're and'ing with all + ;; ones, which doesn't change the bits. + (unless (location= x r) + (move r x))) + (t + (move r x) + (inst and r y))))) + (define-vop (fast-logand/unsigned-signed=>unsigned fast-logand/unsigned=>unsigned) (:args (x :target r :scs (unsigned-reg) ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/arith.lisp | 14 +++++++- src/contrib/packed-sse2/packed-sse2.lisp | 47 +++++++++++++++++++----------- 2 files changed, 42 insertions(+), 19 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-5-gb08f245
by Raymond Toy 27 Mar '12

27 Mar '12

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 b08f245dbb9de963ca05142bb20d8fd27071a343 (commit) from 5a97fd587b09075dd769dc1499c42054dcd9b983 (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 b08f245dbb9de963ca05142bb20d8fd27071a343 Author: Raymond Toy <rtoy(a)google.com> Date: Tue Mar 27 16:38:23 2012 -0700 Update. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 58a431b..fc525cc 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -21,7 +21,13 @@ New in this release: * Known issues: * Feature enhancements - + * Added a new contrib, "contrib-packed-sse2" to allow packed + operations ala SSE2. Support for some packed sse2 operations + like multiply, divide, and shuffle for both packed singles and + doubles. All operatios are done on top of (complex + double-float) numbers. Utility functions are provided to set + and access these packed numbers. + * Changes * ASDF2 updated to version 2.019. * Behavior of STRING-TO-OCTETS has changed. This is an @@ -49,6 +55,8 @@ New in this release: * LISP:UNICODE-COMPLETE now longer signals an error if the prefix isn't a prefix of the name of any unicode character. Nil is returned instead. + * Some VOP costs were incorrect which prevented the fast complex + double-float multiplier from being used when sse3 is available. * Trac Tickets: * #50: Print/read error with make-pathname. ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 10 +++++++++- 1 files changed, 9 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-4-g5a97fd5
by Raymond Toy 27 Mar '12

27 Mar '12

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 5a97fd587b09075dd769dc1499c42054dcd9b983 (commit) via 788a393ba3cc06a662da170b1eb9bc5d4863b176 (commit) from 522f9205c9ed5e1ed23389e2c2b186de352835df (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 5a97fd587b09075dd769dc1499c42054dcd9b983 Author: Raymond Toy <rtoy(a)google.com> Date: Tue Mar 27 16:20:18 2012 -0700 Add contrib for packed SSE2 operations. src/contrib/contrib.lisp: o Define the module src/contrib/packed-sse2/compile-packed-sse2.lisp: o New file to compile the contrib. src/contrib/packed-sse2/packed-sse2.lisp: o New file implementing the packed sse2 vops and functions. diff --git a/src/contrib/contrib.lisp b/src/contrib/contrib.lisp index 66bd69f..1c9fd69 100644 --- a/src/contrib/contrib.lisp +++ b/src/contrib/contrib.lisp @@ -40,4 +40,8 @@ (defmodule "contrib-sprof" "modules:sprof/compile-sprof") +;; packed sse2 needs to be compiled to work. +(defmodule "contrib-packed-sse2" + "modules:packed-sse2/compile-packed-sse2") + (provide "cmu-contribs") diff --git a/src/contrib/packed-sse2/compile-packed-sse2.lisp b/src/contrib/packed-sse2/compile-packed-sse2.lisp new file mode 100644 index 0000000..8aac5e8 --- /dev/null +++ b/src/contrib/packed-sse2/compile-packed-sse2.lisp @@ -0,0 +1,2 @@ +(compile-file "modules:packed-sse2/packed-sse2" + :load t) diff --git a/src/contrib/packed-sse2/packed-sse2.lisp b/src/contrib/packed-sse2/packed-sse2.lisp new file mode 100644 index 0000000..c3b9668 --- /dev/null +++ b/src/contrib/packed-sse2/packed-sse2.lisp @@ -0,0 +1,210 @@ +;;;; -*- Mode: LISP; -*- + +(in-package "CL-USER") +;; Fail if we don't have sse2! + +(eval-when (:load-toplevel :compile-toplevel :execute) + (unless (featurep :sse2) + (error "Cannot use packed SSE2 instructions without SSE2 support."))) + +;; SSE2 Packed operations. +;; +;; We use (complex double-float) variables to hold the packed values. + +(in-package #:vm) + +(export '(sse2-mulpd sse2-mulps + sse2-divpd sse2-divps + sse2-shufpd sse2-shufps + sse2-setpd sse2-setps + sse2-getpd sse2-getps)) + +(defknown (sse2-mulpd sse2-mulps) ((complex double-float) (complex double-float)) + (complex double-float) + (movable foldable flushable)) + +(defknown (sse2-divpd sse2-divps) ((complex double-float) (complex double-float)) + (complex double-float) + (movable foldable flushable)) + +(macrolet + ((generate (movinst opinst commutative) + `(cond + ((location= x r) + (inst ,opinst x y)) + ((and ,commutative (location= y r)) + (inst ,opinst y x)) + ((not (location= r y)) + (inst ,movinst r x) + (inst ,opinst r y)) + (t + (inst ,movinst tmp x) + (inst ,opinst tmp y) + (inst ,movinst r tmp)))) + (packed-op (op inst float-type cost &optional commutative) + (let* ((vop-name (symbolicate (symbol-name op) "/COMPLEX-" float-type "-FLOAT")) + (c-type (symbolicate "COMPLEX-" float-type "-FLOAT")) + (complex-reg (symbolicate "COMPLEX-" float-type "-REG"))) + ;; Note: It would probably improve things if we could use + ;; memory operands, but we can't because the instructions + ;; assumed 128-bit alignment, which we can't guarantee. + `(define-vop (,vop-name) + (:args (x :scs (,complex-reg) :target r) + (y :scs (,complex-reg))) + (:results (r :scs (,complex-reg))) + (:arg-types ,c-type ,c-type) + (:result-types ,c-type) + (:policy :fast-safe) + (:note "inline packed arithmetic") + (:translate ,op) + (:temporary (:sc ,complex-reg) tmp) + (:generator ,cost + (generate movaps ,inst ,commutative)))))) + (packed-op sse2-mulpd mulpd double 1 t) + (packed-op sse2-mulps mulps double 1 t) + (packed-op sse2-divpd divpd double 1) + (packed-op sse2-divps divps double 1)) + +(defun sse2-mulpd (x y) + "Packed multiply of packed doubles in X and Y" + (declare (type (complex double-float) x y)) + (sse2-mulpd x y)) + +(defun sse2-mulps (x y) + "Packed multiply of packed singles in X and Y" + (declare (type (complex double-float) x y)) + (sse2-mulps x y)) + +(defun sse2-divpd (x y) + "Packed divide of packed doubles in X and Y" + (declare (type (complex double-float) x y)) + (sse2-divpd x y)) + +(defun sse2-divps (x y) + "Packed divide of packed singles in X and Y" + (declare (type (complex double-float) x y)) + (sse2-divps x y)) + +(defknown (%sse2-shufpd %sse2-shufps) ((complex double-float) (complex double-float) fixnum) + (complex double-float) + (movable foldable flushable)) + +(macrolet + ((generate (movinst opinst commutative) + `(cond + ((location= x r) + (inst ,opinst x y i)) + ((and ,commutative (location= y r)) + (inst ,opinst y x i)) + ((not (location= r y)) + (inst ,movinst r x) + (inst ,opinst r y i)) + (t + (inst ,movinst tmp x) + (inst ,opinst tmp y i) + (inst ,movinst r tmp)))) + (packed-op (op inst float-type cost &optional commutative) + (let* ((vop-name (symbolicate (symbol-name op) "/COMPLEX-" float-type "-FLOAT")) + (c-type (symbolicate "COMPLEX-" float-type "-FLOAT")) + (complex-reg (symbolicate "COMPLEX-" float-type "-REG"))) + ;; Note: It would probably improve things if we could use + ;; memory operands, but we can't because the instructions + ;; assumed 128-bit alignment, which we can't guarantee. + `(define-vop (,vop-name) + (:args (x :scs (,complex-reg) :target r) + (y :scs (,complex-reg))) + (:info i) + (:results (r :scs (,complex-reg))) + (:arg-types ,c-type ,c-type (:constant integer)) + (:result-types ,c-type) + (:policy :fast-safe) + (:note "inline packed arithmetic") + (:translate ,op) + (:temporary (:sc ,complex-reg) tmp) + (:generator ,cost + (generate movaps ,inst ,commutative)))))) + (packed-op %sse2-shufpd shufpd double 1) + (packed-op %sse2-shufps shufps double 1)) + +(declaim (inline sse2-shufpd sse2-shufps)) + +(defun sse2-shufpd (x y i) + "Shuffle packed doubles in X and Y according to I." + (declare (type (complex double-float) x y) + (type (unsigned-byte 2) i)) + (ecase i + (0 + (%sse2-shufpd x y 0)) + (1 + (%sse2-shufpd x y 1)) + (2 + (%sse2-shufpd x y 2)) + (3 + (%sse2-shufpd x y 3)))) + +(defun sse2-shufps (x y i) + "Shuffle packed singles in X and Y according to I." + (declare (type (complex double-float) x y) + (type (unsigned-byte 4) i)) + (ecase i + (0 + (%sse2-shufps x y 0)) + (1 + (%sse2-shufps x y 1)) + (2 + (%sse2-shufps x y 2)) + (3 + (%sse2-shufps x y 3)) + (4 + (%sse2-shufps x y 4)) + (5 + (%sse2-shufps x y 5)) + (6 + (%sse2-shufps x y 6)) + (7 + (%sse2-shufps x y 7)))) + +;; x is the high part and y is the low part. +(declaim (inline sse2-setpd sse2-getpd sse2-setps sse2-getps)) +(defun sse2-setpd (x y) + "Create a packed double with X in the high part and Y in the low part" + (declare (type double-float x y)) + (complex y x)) + +(defun sse2-getpd (pd) + "Extract the components of a packed double PD. Two values are + returned; the high part is the first value and the low part in the + second." + (declare (type (complex double-float) pd)) (values + (imagpart pd) (realpart pd))) + +;; x3 is the high part and x0 is the low. +(defun sse2-setps (x3 x2 x1 x0) + "Create a packed single with X3 in the highest part and X0 in the lowest" + (declare (single-float x3 x2 x1 x0)) + (flet ((pack-singles-to-double (hi lo) + (let ((hi-bits (single-float-bits hi)) + (lo-bits (single-float-bits lo))) + (make-double-float hi-bits (logand #xffffffff lo-bits))))) + (sse2-setpd (pack-singles-to-double x3 x2) + (pack-singles-to-double x1 x0)))) + +(defun sse2-getps (ps) + "Extract the components of a packed single PS. Four values are + returned. The first value is the highest part of the packed single + and the last value is the lowest part of the packed single." + (declare (type (complex double-float) ps)) + (flet ((unpack-double-to-singles (d) + (multiple-value-bind (hi lo) + (double-float-bits d) + (values (make-single-float hi) + (if (logbitp 31 lo) + (- (make-single-float (ldb (byte 31 0) lo))) + (make-single-float lo)))))) + (multiple-value-bind (x3 x2) + (unpack-double-to-singles (imagpart ps)) + (multiple-value-bind (x1 x0) + (unpack-double-to-singles (realpart ps)) + (values x3 x2 x1 x0))))) + +(provide "contrib-packed-sse2") commit 788a393ba3cc06a662da170b1eb9bc5d4863b176 Author: Raymond Toy <rtoy(a)google.com> Date: Tue Mar 27 16:19:03 2012 -0700 Oops. Long-standing bug that cmu-contribs was defined so it couldn't be loaded to get the other contribs. diff --git a/src/code/module.lisp b/src/code/module.lisp index 0f3f861..70ccba7 100644 --- a/src/code/module.lisp +++ b/src/code/module.lisp @@ -147,3 +147,10 @@ (defmodule "asdf" "modules:asdf/asdf") + +;; Allow user to specify "cmu-contribs" or :cmu-contribs. +(defmodule "cmu-contribs" + "modules:contrib") + +(defmodule :cmu-contribs + "modules:contrib") ----------------------------------------------------------------------- Summary of changes: src/code/module.lisp | 7 + src/contrib/contrib.lisp | 4 + src/contrib/packed-sse2/compile-packed-sse2.lisp | 2 + src/contrib/packed-sse2/packed-sse2.lisp | 210 ++++++++++++++++++++++ 4 files changed, 223 insertions(+), 0 deletions(-) create mode 100644 src/contrib/packed-sse2/compile-packed-sse2.lisp create mode 100644 src/contrib/packed-sse2/packed-sse2.lisp hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-2-g522f920
by Raymond Toy 27 Mar '12

27 Mar '12

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 522f9205c9ed5e1ed23389e2c2b186de352835df (commit) from 5c93b7785dc917fdc6f633606a49ebf6f97077dd (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 522f9205c9ed5e1ed23389e2c2b186de352835df Author: Raymond Toy <rtoy(a)google.com> Date: Tue Mar 27 14:22:11 2012 -0700 Set the generator costs for the complex multiply vops to be the number of instructions. This gives the sse3 complex multiply vop a chance to be used if SSE3 is available. (The user needs to :SSE3 to *FEATURES* for this to work. The core of CMUCL only assumes SSE2 is available.) diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp index 979268f..f54f072 100644 --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -2149,7 +2149,7 @@ (:policy :fast-safe) (:temporary (:scs (complex-double-reg)) t1 t2) (:guard (backend-featurep :sse3)) - (:generator 1 + (:generator 8 ;; Basic algorithm from the paper "The Microarchitecture of the ;; Intel Pentium 4 Processor on 90nm Technololgy" ;; @@ -2176,7 +2176,7 @@ (:policy :fast-safe) (:temporary (:scs (complex-double-reg)) t0 t1 t2) (:temporary (:scs (unsigned-reg)) tmp) - (:generator 1 + (:generator 13 ;; Basic algorithm from the paper "The Microarchitecture of the ;; Intel Pentium 4 Processor on 90nm Technololgy" @@ -2208,7 +2208,7 @@ (:policy :fast-safe) (:temporary (:scs (complex-single-reg)) t0 t1 t2) (:temporary (:scs (unsigned-reg)) tmp) - (:generator 1 + (:generator 14 ;; Basic algorithm from the paper "The Microarchitecture of the ;; Intel Pentium 4 Processor on 90nm Technololgy" ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/float-sse2.lisp | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-03-1-g5c93b77
by Alex Goncharov 04 Mar '12

04 Mar '12

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 5c93b7785dc917fdc6f633606a49ebf6f97077dd (commit) from 4d8eb68fd59351d6c8277f99b92657ef072d199f (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 5c93b7785dc917fdc6f633606a49ebf6f97077dd Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Sun Mar 4 12:09:30 2012 -0500 .gitignore: add build-* diff --git a/.gitignore b/.gitignore index c122cd7..614b6ed 100644 --- a/.gitignore +++ b/.gitignore @@ -5,6 +5,7 @@ linux-[234] linux-8bit-[234] sparc-[234] sparc-8bit-[234] +build-* # Ignore files generated by TeX src/docs/cmu-user/*.aux ----------------------------------------------------------------------- Summary of changes: .gitignore | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2012-03 created. snapshot-2012-03
by Raymond Toy 03 Mar '12

03 Mar '12

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-2012-03 has been created at 4dbb3325545dabbd2040295eeb1d6fd7e2c145e1 (tag) tagging 4d8eb68fd59351d6c8277f99b92657ef072d199f (commit) replaces snapshot-2012-02 tagged by Raymond Toy on Sat Mar 3 08:55:58 2012 -0800 - Log ----------------------------------------------------------------- Snapshot 2012-03. Raymond Toy (22): Update to Unicode 6.1.0. Support the creation of mach-o object files for ppc. Build with mach-o.c and exec-final.c if FEATURE_EXECUTABLE is Clean up comments about exec-final. Cleanup comments Preliminary support for ppc and correct some comments. If git describe looks like a snapshot tag, just use that as the No default version anymore; let load-world.sh specify it. Oops. Remove the set -x/set +x lines from the last commit. Use fwrite to dump the string instead of putw. Update documentation for string-to-octets. Add the fpu type to kernel.core on x86. Needed to set the fpu_mode Fix compiler warning and use fwrite instead of putw to print a Remove unused var. Fix compiler warning. Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl Add -R flag to force recompilation of C runtime. Oops. Always write the fpu mode to the core file on x86. (Previously Return NIL if the prefix isn't a prefix of any name instead of Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl Update for snapshot. Really update to 6.1.0! ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-02-22-g4d8eb68
by Raymond Toy 03 Mar '12

03 Mar '12

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 4d8eb68fd59351d6c8277f99b92657ef072d199f (commit) via 1995dd499746042e2b300732424a5f4c1134f7bf (commit) from 09a1e78fcae36d88f56c6a3267ce72b07ed9f6dd (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 4d8eb68fd59351d6c8277f99b92657ef072d199f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 3 08:46:19 2012 -0800 Really update to 6.1.0! diff --git a/src/i18n/unidata.bin b/src/i18n/unidata.bin index d463157..0ee2dd9 100644 Binary files a/src/i18n/unidata.bin and b/src/i18n/unidata.bin differ commit 1995dd499746042e2b300732424a5f4c1134f7bf Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 3 07:46:53 2012 -0800 Update for snapshot. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index b0b31c9..58a431b 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -46,6 +46,9 @@ New in this release: directory, which was previously missing. * The stack needs to be 16-byte aligned on Darwin. * ldb no longer prints prompts forever when EOF is reached. + * LISP:UNICODE-COMPLETE now longer signals an error if the prefix + isn't a prefix of the name of any unicode character. Nil is + returned instead. * Trac Tickets: * #50: Print/read error with make-pathname. @@ -58,6 +61,8 @@ New in this release: * On darwin/x86, gcc-4.2 is explicitly used in case Xcode 4 is installed. CMUCL doesn't run correctly when built with gcc/llvm in Xcode 4. + * Add -R option to build.sh to force recompiling the C + runtime. (Default it to compile only what is changed.) * Improvements to the PCL implementation of CLOS: ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 5 +++++ src/i18n/unidata.bin | Bin 1490793 -> 1490793 bytes 2 files changed, 5 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-02-20-g09a1e78
by Raymond Toy 03 Mar '12

03 Mar '12

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 09a1e78fcae36d88f56c6a3267ce72b07ed9f6dd (commit) via e32ec7c0afd112b157e61756256219bb59536857 (commit) from 74c59b7679c19e07fa0866c4aeb1d652856a7ed9 (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 09a1e78fcae36d88f56c6a3267ce72b07ed9f6dd Merge: e32ec7c 74c59b7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 3 07:36:13 2012 -0800 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit e32ec7c0afd112b157e61756256219bb59536857 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 3 07:34:30 2012 -0800 Return NIL if the prefix isn't a prefix of any name instead of signaling an error. diff --git a/src/code/unidata.lisp b/src/code/unidata.lisp index 32432a1..981e2a7 100644 --- a/src/code/unidata.lisp +++ b/src/code/unidata.lisp @@ -1306,6 +1306,9 @@ do (push (concatenate 'string prefix-match x) names)) (when completep (push prefix-match names)) + (when (zerop (length prefix-match)) + ;; The prefix isn't a prefix for anything, so return nil + (return-from unicode-complete nil)) (flet ((han-or-cjk-completion (prefix-match prefix dictionary) (let* ((prefix-tail (subseq prefix-match (min (length prefix) ----------------------------------------------------------------------- Summary of changes: src/code/unidata.lisp | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0