From: Juho S. <js...@us...> - 2006-09-20 15:04:51
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv14394/tests Modified Files: step.impure.lisp Log Message: 0.9.16.43: Switch to using the more accurate method of determining *STEP-FRAME* on x86/x86-64 where SIGNAL-CONTEXT-FRAME works. Retain the previous kludge on non-x86, where SIGNAL-CONTEXT-FRAME seems to be completely broken. Index: step.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/step.impure.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- step.impure.lisp 18 Sep 2006 20:09:15 -0000 1.1 +++ step.impure.lisp 20 Sep 2006 15:04:48 -0000 1.2 @@ -149,7 +149,8 @@ (dfun (sb-di::frame-debug-fun frame)) (name (sb-di::debug-fun-name dfun))) (assert (equal name 'fib)) - (incf count))))))) + (incf count) + (invoke-restart 'step-next))))))) (step (fib 3)) (assert (= count 6)))) @@ -161,20 +162,32 @@ (backtrace))))))) (step (fib 3)))) -(handler-bind ((step-condition (lambda (c) - (funcall *stepper-hook* c)))) - (with-test (:name :step-into) - (test-step-into)) - (with-test (:name :step-next) - (test-step-next)) - (with-test (:name :step-out) - (test-step-out)) - (with-test (:name :step-start-from-break) - (test-step-start-from-break)) - (with-test (:name :step-frame) - (test-step-frame)) - (with-test (:name :step-backtrace) - (test-step-backtrace))) +(with-test (:name :step-into) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-into))) +(with-test (:name :step-next) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-next))) +(with-test (:name :step-out) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-out))) +(with-test (:name :step-start-from-break) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-start-from-break))) + +(with-test (:name :step-frame) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-frame))) + +(with-test (:name :step-backtrace) + (handler-bind ((step-condition (lambda (c) + (funcall *stepper-hook* c)))) + (test-step-backtrace))) |