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 aa5f43846440d0fc20be6cb1edc5196ac6736165 (commit) via b845fa969a45dd0519d1b775a15facd521a7647f (commit) from cf48b6dccb205acec059a87602f3f1182c781a6e (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 aa5f43846440d0fc20be6cb1edc5196ac6736165 Author: Raymond Toy toy.raymond@gmail.com Date: Sun Dec 23 12:15:46 2012 -0800

Regenerated.

diff --git a/src/i18n/locale/cmucl-x86-vm.pot b/src/i18n/locale/cmucl-x86-vm.pot index 4ecc409..14dd9b1 100644 --- a/src/i18n/locale/cmucl-x86-vm.pot +++ b/src/i18n/locale/cmucl-x86-vm.pot @@ -316,7 +316,7 @@ msgstr "" msgid "Method ~S not defined for ~S" msgstr ""

-#: src/compiler/x86/c-call.lisp +#: src/compiler/x86/c-callback.lisp msgid "" "Cons up a piece of code which calls call-callback with INDEX and a\n" "pointer to the arguments." diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index 7dabde4..2d3c5ad 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -2004,26 +2004,26 @@ msgstr "" msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "Vector of all callbacks." msgstr ""

#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp #: src/code/debug-int.lisp src/code/debug-info.lisp #: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp -#: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp +#: src/code/hash-new.lisp src/code/array.lisp src/code/alien-callback.lisp msgid "~S is not an array with a fill-pointer." msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "Return the trampoline pointer for the callback NAME." msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "" "~\n" "Attempt to redefine callback with incompatible return type.\n" @@ -2031,20 +2031,20 @@ msgid "" " New type is: ~A" msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "~\n" "Create new trampoline (old trampoline calls old lisp function)." msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "Unsupported argument type: ~A" msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "Unsupported return type: ~A" msgstr ""

-#: src/code/alieneval.lisp +#: src/code/alien-callback.lisp msgid "" "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" " {doc-string} {decls}* {FORM}*)\n" @@ -2153,6 +2153,10 @@ msgid "The number of bits to process at a time." msgstr ""

#: src/code/bit-bash.lisp +msgid "The number of bytes to process at a time." +msgstr "" + +#: src/code/bit-bash.lisp msgid "" "The maximum number of bits that can be dealt with during a single call." msgstr "" @@ -16786,7 +16790,7 @@ msgid "" msgstr ""

#: src/compiler/disassem.lisp -msgid "Instructions either aren't related or conflict in some way:~% ~s" +msgid "Instructions either aren't related or conflict in some way:~%" msgstr ""

#: src/compiler/disassem.lisp

commit b845fa969a45dd0519d1b775a15facd521a7647f Author: Raymond Toy toy.raymond@gmail.com Date: Sun Dec 23 12:15:12 2012 -0800

Fix a few compiler notes.

diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index d0a3703..3a663a8 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -640,11 +640,9 @@ (unless (constant-continuation-p y) (give-up)) (let ((val (continuation-value y))) - (multiple-value-bind (frac exp sign) - (decode-float val) - (unless (= frac 0.5) - (give-up)) - `(* x (float (/ ,val) x))))) + (unless (= (decode-float val) 0.5) + (give-up)) + `(* x (float (/ ,val) x))))

;; Convert 2*x to x+x. (deftransform * ((x y) (float real) * :when :both) diff --git a/src/compiler/x86/arith.lisp b/src/compiler/x86/arith.lisp index b4b43f7..5751abb 100644 --- a/src/compiler/x86/arith.lisp +++ b/src/compiler/x86/arith.lisp @@ -908,7 +908,6 @@ (:arg-types unsigned-num) (:results (result :scs (unsigned-reg))) (:result-types positive-fixnum) - (:temporary (:sc unsigned-reg :from (:argument 0)) temp) (:guard (backend-featurep :sse3)) (:generator 2 (inst popcnt result arg))) diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp index e22a013..2417c04 100644 --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -556,7 +556,8 @@

(defun prefilter-reg-r (value dstate) (declare (type reg value) - (type disassem:disassem-state dstate)) + (type disassem:disassem-state dstate) + (ignore dstate)) value)

;;; This is a sort of bogus prefilter that just @@ -3115,6 +3116,7 @@ (imm :type 'imm-data))

(defun emit-sse-inst (segment dst src prefix opcode &key operand-size) + (declare (ignore operand-size)) (when prefix (emit-byte segment prefix)) (emit-byte segment #x0f) @@ -3223,11 +3225,13 @@ ;; MOVHPS (respectively). I (rtoy) don't know how to fix that; ;; instead. just print a note with the correct instruction name. (defun movlps-control (chunk inst stream dstate) + (declare (ignore inst)) (when stream (when (>= (ldb (byte 8 16) chunk) #xc0) (disassem:note "MOVHLPS" dstate))))

(defun movhps-control (chunk inst stream dstate) + (declare (ignore inst)) (when stream (when (>= (ldb (byte 8 16) chunk) #xc0) (disassem:note "MOVLHPS" dstate)))) diff --git a/src/compiler/x86/sse2-c-call.lisp b/src/compiler/x86/sse2-c-call.lisp index 811de98..a5bd80f 100644 --- a/src/compiler/x86/sse2-c-call.lisp +++ b/src/compiler/x86/sse2-c-call.lisp @@ -34,7 +34,6 @@ :from :eval :to :result) ecx) (:temporary (:sc unsigned-reg :offset edx-offset :from :eval :to :result) edx) - (:temporary (:sc double-stack) temp) (:node-var node) (:vop-var vop) (:save-p t) @@ -77,7 +76,6 @@ (define-vop (alloc-number-stack-space) (:info amount) (:results (result :scs (sap-reg any-reg))) - (:node-var node) (:generator 0 (assert (location= result esp-tn))

@@ -98,7 +96,6 @@

(define-vop (dealloc-number-stack-space) (:info amount) - (:node-var node) (:generator 0 (unless (zerop amount) (let ((delta (logandc2 (+ amount 3) 3)))

-----------------------------------------------------------------------

Summary of changes: src/compiler/float-tran.lisp | 8 +++----- src/compiler/x86/arith.lisp | 1 - src/compiler/x86/insts.lisp | 6 +++++- src/compiler/x86/sse2-c-call.lisp | 3 --- src/i18n/locale/cmucl-x86-vm.pot | 2 +- src/i18n/locale/cmucl.pot | 24 ++++++++++++++---------- 6 files changed, 23 insertions(+), 21 deletions(-)

hooks/post-receive