[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-12-3-gc5d23ae

[Raymond Toy]

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 at 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 at 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
-- 
CMU Common Lisp