From: Alexey D. <ade...@us...> - 2005-07-02 06:49:24
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28126/src/compiler Modified Files: array-tran.lisp fndb.lisp Log Message: 0.9.2.13: * Add constant folding of ARRAY-HEADER-P for complex-array argument (fixes spurious warning reported by Eduardo Mu\~noz). * FOREIGN-SYMBOL-ADDRESS-AS-INTEGER does not loose second result (fix bug reported by Luis Oliveira). * Don't run external format checks on SBCL without Unicode support. Index: array-tran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/array-tran.lisp,v retrieving revision 1.67 retrieving revision 1.68 diff -u -d -r1.67 -r1.68 --- array-tran.lisp 20 Feb 2005 18:53:15 -0000 1.67 +++ array-tran.lisp 2 Jul 2005 06:49:13 -0000 1.68 @@ -797,5 +797,7 @@ ((and (listp dims) (/= (length dims) 1)) ;; multi-dimensional array, will have a header (specifier-type '(eql t))) + ((eql (array-type-complexp type) t) + (specifier-type '(eql t))) (t nil))))))) Index: fndb.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v retrieving revision 1.106 retrieving revision 1.107 diff -u -d -r1.106 -r1.107 --- fndb.lisp 13 Jun 2005 16:36:03 -0000 1.106 +++ fndb.lisp 2 Jul 2005 06:49:13 -0000 1.107 @@ -1463,7 +1463,7 @@ (movable flushable)) (defknown foreign-symbol-address-as-integer (simple-string &optional boolean) - integer + (values integer boolean) (movable flushable)) ;;;; miscellaneous internal utilities |