From: Juho S. <js...@us...> - 2006-11-23 04:00:33
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-sprof In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5171/contrib/sb-sprof Modified Files: sb-sprof.lisp Log Message: 0.9.18.69: Fix DISASSEMBLE after a SB-SPROF:RESET (regression since 0.9.18, reported by Zach Beane). Index: sb-sprof.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-sprof/sb-sprof.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- sb-sprof.lisp 17 Nov 2006 02:15:47 -0000 1.15 +++ sb-sprof.lisp 23 Nov 2006 04:00:16 -0000 1.16 @@ -1022,7 +1022,7 @@ (defun add-disassembly-profile-note (chunk stream dstate) (declare (ignore chunk stream)) - (unless (zerop (samples-index *samples*)) + (when *samples* (let* ((location (+ (sb-disassem::seg-virtual-location (sb-disassem:dstate-segment dstate)) (sb-disassem::dstate-cur-offs dstate))) |