From: Nathan F. <nf...@us...> - 2005-06-17 19:23:40
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23394/tests Modified Files: seq.impure.lisp Log Message: 0.9.1.51: * Improve UB*-BASH-COPY by forcing the compiler to use fixnum arithmetic on word-sized copying--avoids spurious fixnum arithmetic overflow checking. This should improve the performance of REPLACE on character strings on 32-bit platforms; * ...use ~D instead of ~A to form UB*-BASH-* function names, protecting ourselves against arbitrary *PRINT-BASE*s; * ...belatedly improve test suite for bashing functions to print out the function being tested. Doing this at least partly assures the user that the test run has not hung. Index: seq.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- seq.impure.lisp 28 Mar 2005 18:55:36 -0000 1.25 +++ seq.impure.lisp 17 Jun 2005 19:23:32 -0000 1.26 @@ -924,6 +924,7 @@ (fill-amounts (collect-fill-amounts n-power)) (bash-function (intern (format nil "UB~A-BASH-FILL" bitsize) (find-package "SB-KERNEL")))) + (format t "~&/Function ~A..." bash-function) (loop for offset from padding-amount below (* 2 padding-amount) do (dolist (c (fill-bytes-for-testing bitsize)) (dolist (n fill-amounts) @@ -955,6 +956,7 @@ (fill-amounts (collect-fill-amounts n-power)) (bash-function (intern (format nil "UB~A-BASH-COPY" bitsize) (find-package "SB-KERNEL")))) + (format t "~&/Function ~A..." bash-function) (do ((source-offset padding-amount (1+ source-offset))) ((>= source-offset (* padding-amount 2)) ;; success! |