From a9f4515bd5b4bb4489297fbd1121457879724dee Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 2 Dec 2012 22:27:06 -0800 Subject: [PATCH] Print out name of offending emitter in some error messages. --- src/compiler/new-assem.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp index d9fdb32fb..f6179dea4 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)) -- GitLab