[Sbcl-commits] CVS: sbcl package-data-list.lisp-expr, 1.491,
1.492 version.lisp-expr, 1.4437, 1.4438
From: Nikodemus S. <de...@us...> - 2009-05-06 18:39:54
|
Update of /cvsroot/sbcl/sbcl In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv19878 Modified Files: package-data-list.lisp-expr version.lisp-expr Log Message: 1.0.28.21: further array typechecking optimization (really, this time. contents accidentally left out from 1.0.28.20) * Eliminate extra lowtag checking from the array element type check: since we know we are dealing with an array, we can use the same fast widetag extraction code that array type dispatching used -- factoring it out into %OTHER-POINTER-WIDETAG. * If we know after checking the dimensions that the array must have a header, and we know that the array is simple, we can deduce that there is exactly one level of indirection. * Similarly, if we know that the array has a header, we can immediately pull out the data vector to check if it too has a header instead of doing an extra test. Index: package-data-list.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v retrieving revision 1.491 retrieving revision 1.492 diff -u -d -r1.491 -r1.492 --- package-data-list.lisp-expr 6 May 2009 16:28:03 -0000 1.491 +++ package-data-list.lisp-expr 6 May 2009 18:39:49 -0000 1.492 @@ -1268,7 +1268,9 @@ "%MEMBER-KEY-TEST-NOT" "%MEMBER-TEST" "%MEMBER-TEST-NOT" - "%NEGATE" "%POW" "%PUTHASH" + "%NEGATE" "%POW" + "%OTHER-POINTER-WIDETAG" + "%PUTHASH" "%RASSOC" "%RASSOC-EQ" "%RASSOC-IF" Index: version.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v retrieving revision 1.4437 retrieving revision 1.4438 diff -u -d -r1.4437 -r1.4438 --- version.lisp-expr 6 May 2009 18:35:41 -0000 1.4437 +++ version.lisp-expr 6 May 2009 18:39:49 -0000 1.4438 @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.28.20" +"1.0.28.21" |