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 c5d23ae79d1e97554256a43e331eb870954c8e2e (commit) via a9f4515bd5b4bb4489297fbd1121457879724dee (commit) from 420ac32313fbe762c29c2dee111748e16ba851cb (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 c5d23ae79d1e97554256a43e331eb870954c8e2e Author: Raymond Toy toy.raymond@gmail.com Date: Sun Dec 2 22:27:21 2012 -0800
Updated from source code changes.
diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index e338251..7dabde4 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -17389,15 +17389,15 @@ msgstr "" #: src/compiler/new-assem.lisp msgid "" "Byte spec ~S either overlaps another byte spec, or ~\n" -" extends past the end." +" extends past the end in emitter ~S." msgstr ""
#: src/compiler/new-assem.lisp -msgid "There are holes." +msgid "There are holes in emitter ~S." msgstr ""
#: src/compiler/new-assem.lisp -msgid "~D isn't an even multiple of ~D" +msgid "~D isn't an even multiple of ~D in emitter ~S" msgstr ""
#: src/compiler/new-assem.lisp
commit a9f4515bd5b4bb4489297fbd1121457879724dee Author: Raymond Toy toy.raymond@gmail.com Date: Sun Dec 2 22:27:06 2012 -0800
Print out name of offending emitter in some error messages.
diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index d9fdb32..f6179de 100644 --- a/src/compiler/new-assem.lisp +++ b/src/compiler/new-assem.lisp @@ -1553,8 +1553,8 @@ (quo rem) (truncate total-bits assembly-unit-bits) (unless (zerop rem) - (error (intl:gettext "~D isn't an even multiple of ~D") - total-bits assembly-unit-bits)) + (error (intl:gettext "~D isn't an even multiple of ~D in emitter ~S") + total-bits assembly-unit-bits name)) quo)) (bytes (make-array num-bytes :initial-element nil)) (segment-arg (gensym "SEGMENT-"))) @@ -1565,8 +1565,8 @@ (arg (gensym (format nil "~:@(ARG-FOR-~S-~)" byte-spec-expr)))) (when (ldb-test (byte byte-size byte-posn) overall-mask) (error (intl:gettext "Byte spec ~S either overlaps another byte spec, or ~ - extends past the end.") - byte-spec-expr)) + extends past the end in emitter ~S.") + byte-spec-expr name)) (setf (ldb byte-spec overall-mask) -1) (arg-names arg) (arg-types `(type (integer ,(ash -1 (1- byte-size))
-----------------------------------------------------------------------
Summary of changes: src/compiler/new-assem.lisp | 8 ++++---- src/i18n/locale/cmucl.pot | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-)
hooks/post-receive