From: Christophe R. <cr...@us...> - 2003-08-16 01:08:03
|
Update of /cvsroot/sbcl/sbcl/src/compiler/sparc In directory sc8-pr-cvs1:/tmp/cvs-serv8332/src/compiler/sparc Modified Files: insts.lisp Log Message: 0.8.2.31: Fix errors shown up by new ERROR/FORMAT code in sparc backend Index: insts.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/sparc/insts.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- insts.lisp 16 Jul 2003 08:26:02 -0000 1.9 +++ insts.lisp 16 Aug 2003 01:00:21 -0000 1.10 @@ -634,7 +634,8 @@ (defun cond-move-condition (condition-reg) (or (position condition-reg cond-move-condition-registers) - (error "Unknown conditional move condition register: ~S~%"))) + (error "Unknown conditional move condition register: ~S~%" + condition-reg))) (defconstant-eqx cond-move-printer `(:name cond :tab @@ -697,7 +698,7 @@ (defun register-condition (rcond) (or (position rcond cond-move-integer-conditions) - (error "Unknown register condition: ~S~%"))) + (error "Unknown register condition: ~S~%" rcond))) (sb!disassem:define-instruction-format (format-4-cond-move-integer 32 :default-printer cond-move-integer-printer) |