Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv1840 Modified Files: debugger.lisp Log Message: Fixing dynamic control transfers, primarily to handle the stack-allocated funobjs, but there seems to be a number of (other) bugs here too. It's not quite working yet, though. Date: Tue Jan 4 17:54:35 2005 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.27 movitz/losp/x86-pc/debugger.lisp:1.28 --- movitz/losp/x86-pc/debugger.lisp:1.27 Thu Oct 21 22:27:00 2004 +++ movitz/losp/x86-pc/debugger.lisp Tue Jan 4 17:54:34 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.27 2004/10/21 20:27:00 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.28 2005/01/04 16:54:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -470,6 +470,8 @@ for frame = initial-stack-frame-index then (or next-frame (let ((uplink (stack-frame-uplink stack frame))) + (assert (typep uplink 'fixnum) () + "Weird uplink ~S for frame ~S." uplink frame) (assert (> uplink frame) () "Backtracing uplink ~S from frame index ~S." uplink frame) uplink))