March 2005 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/cpu-id.lisp
by ffjeld＠common-lisp.net 09 Mar '05

09 Mar '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7771 Modified Files: cpu-id.lisp Log Message: Mask edx to a _positive_ fixnum. Date: Wed Mar 9 08:18:15 2005 Author: ffjeld Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.9 movitz/losp/muerte/cpu-id.lisp:1.10 --- movitz/losp/muerte/cpu-id.lisp:1.9 Sat Aug 14 19:55:29 2004 +++ movitz/losp/muerte/cpu-id.lisp Wed Mar 9 08:18:14 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(a)acm.org> ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.9 2004/08/14 17:55:29 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.10 2005/03/09 07:18:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -197,11 +197,12 @@ (:rdtsc) ; Read Time-Stamp Counter into EDX:EAX (:shldl 5 :eax :edx) (:shll #.movitz:+movitz-fixnum-shift+ :eax) - (:andl #.(cl:logxor #xffffffff movitz::+movitz-fixnum-zmask+) :edx) + (:andl #.(cl:* movitz:+movitz-fixnum-factor+ movitz:+movitz-most-positive-fixnum+) + :edx) (:andl #.(cl:* movitz:+movitz-fixnum-factor+ movitz:+movitz-most-positive-fixnum+) :eax) - (:movl :edx :ebx) (:cld) + (:movl :edx :ebx) (:movl 2 :ecx) (:stc)))

1 0

[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp
by ffjeld＠common-lisp.net 09 Mar '05

09 Mar '05

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv7742 Modified Files: repl.lisp Log Message: Only interpret integers as restarts when we're in a debugger context. Date: Wed Mar 9 08:16:48 2005 Author: ffjeld Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.14 movitz/losp/lib/repl.lisp:1.15 --- movitz/losp/lib/repl.lisp:1.14 Thu Feb 24 13:21:30 2005 +++ movitz/losp/lib/repl.lisp Wed Mar 9 08:16:48 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.14 2005/02/24 12:21:30 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.15 2005/03/09 07:16:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -83,6 +83,7 @@ (copy-list results))) (values-list results))) (let ((restart (and (integerp form) + muerte:*debugger-dynamic-context* (muerte:find-restart-by-index form muerte:*debugger-dynamic-context*)))) (cond

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by ffjeld＠common-lisp.net 02 Mar '05

02 Mar '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16775 Modified Files: io-port.lisp Log Message: Fixed stupid bug in (setf io-port :character), the byte output would be completely wrong. Date: Wed Mar 2 18:15:43 2005 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.12 movitz/losp/muerte/io-port.lisp:1.13 --- movitz/losp/muerte/io-port.lisp:1.12 Wed Sep 22 19:43:35 2004 +++ movitz/losp/muerte/io-port.lisp Wed Mar 2 18:15:43 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(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.12 2004/09/22 17:43:35 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.13 2005/03/02 17:15:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -165,7 +165,6 @@ (:load-lexical (:lexical-binding ,value-var) :eax) (:std) (:shrl ,movitz::+movitz-fixnum-shift+ :edx) - (:shrl ,movitz::+movitz-fixnum-shift+ :eax) (:shrl 8 :eax) (:outb :al :dx) (:movl :edi :edx)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by ffjeld＠common-lisp.net 01 Mar '05

01 Mar '05

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv11016 Modified Files: debugger.lisp Log Message: Have find-function-name search (setf ...) and (method ...) namespaces. Date: Tue Mar 1 01:41:32 2005 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.35 movitz/losp/x86-pc/debugger.lisp:1.36 --- movitz/losp/x86-pc/debugger.lisp:1.35 Tue Mar 1 00:34:02 2005 +++ movitz/losp/x86-pc/debugger.lisp Tue Mar 1 01:41:32 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.35 2005/02/28 23:34:02 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.36 2005/03/01 00:41:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -614,12 +614,31 @@ (location-in-object-p (%run-time-context-slot slot-name) instruction-location)) (return (values slot-name :run-time-context)))) - (do-all-symbols (symbol) - (when (and (fboundp symbol) + (with-hash-table-iterator (hashis (get-global-property :setf-namespace)) + (do () (nil) + (multiple-value-bind (morep setf-name symbol) + (hashis) + (cond + ((not morep) + (return nil)) + ((and (fboundp symbol) (location-in-code-vector-p%unsafe (funobj-code-vector (symbol-function symbol)) instruction-location)) - (return symbol)) + (return (list 'setf setf-name))))))) + (do-all-symbols (symbol) + (when (fboundp symbol) + (let ((f (symbol-function symbol))) + (when (location-in-code-vector-p%unsafe (funobj-code-vector f) + instruction-location) + (return symbol)) + (when (typep f 'generic-function) + (dolist (m (generic-function-methods f)) + (when (location-in-code-vector-p%unsafe (funobj-code-vector (method-function m)) + instruction-location) + (return-from find-function-name + (funobj-name (method-function m)))))))) (when (and (boundp symbol) (typep (symbol-value symbol) 'code-vector) (location-in-code-vector-p%unsafe (symbol-value symbol) instruction-location)) (return (values symbol :symbol-value)))))) +

1 0