From: Christophe R. <cr...@us...> - 2003-08-15 22:24:00
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1:/tmp/cvs-serv3767/src/compiler Modified Files: srctran.lisp Log Message: 0.8.2.30: Fix PPC (complex double-float) bug as reported on sbcl-devel by Clemens Heitzinger 2003-08-12 ... the right way, not as per CSR patch sbcl-devel, but as per CSR words sbcl-devel; ... also fix error reporting in CERROR format DEFTRANSFORM (oh, the irony). Index: srctran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/srctran.lisp,v retrieving revision 1.73 retrieving revision 1.74 diff -u -d -r1.73 -r1.74 --- srctran.lisp 15 Aug 2003 08:21:07 -0000 1.73 +++ srctran.lisp 15 Aug 2003 18:07:07 -0000 1.74 @@ -3385,7 +3385,7 @@ ((< nargs (min min1 min2)) (compiler-warn "Too few arguments (~D) to ~S ~S ~S: ~ requires at least ~D." - nargs 'cerror report control min)) + nargs 'cerror report control (min min1 min2))) ((> nargs (max max1 max2)) (;; to get warned about probably bogus code at ;; cross-compile time. @@ -3394,7 +3394,7 @@ ;; run-time error. #-sb-xc-host compiler-style-warn "Too many arguments (~D) to ~S ~S ~S: uses at most ~D." - nargs 'cerror report control max)))))))) + nargs 'cerror report control (max max1 max2))))))))) (give-up-ir1-transform)) (defoptimizer (coerce derive-type) ((value type)) |