[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

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 at 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))