[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-15-gaa5f438
Raymond Toy
rtoy at common-lisp.net
Sun Dec 23 20:15:51 UTC 2012
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 at 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 at 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
--
CMU Common Lisp
More information about the cmucl-cvs
mailing list