movitz-cvs April 2004

movitz-cvs@common-lisp.net

1 participants
210 discussions

[movitz-cvs] CVS update: movitz/packages.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv9504 Modified Files: packages.lisp Log Message: Re-named interrupt-handler to exception-handler. Date: Thu Apr 15 11:24:31 2004 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.15 movitz/packages.lisp:1.16 --- movitz/packages.lisp:1.15 Wed Apr 14 08:41:11 2004 +++ movitz/packages.lisp Thu Apr 15 11:24:31 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Nov 15 21:39:55 2003 ;;;; -;;;; $Id: packages.lisp,v 1.15 2004/04/14 12:41:11 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.16 2004/04/15 15:24:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1114,7 +1114,7 @@ #:stack-frame-ref #:check-stack-limit #:interrupt-frame-ref - #:interrupt-handler + #:exception-handler #:*build-number* #:*error-no-condition-for-debugger*

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv4518 Modified Files: debugger.lisp Log Message: Minor edits. Date: Thu Apr 15 11:23:53 2004 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.8 movitz/losp/x86-pc/debugger.lisp:1.9 --- movitz/losp/x86-pc/debugger.lisp:1.8 Thu Apr 15 09:17:50 2004 +++ movitz/losp/x86-pc/debugger.lisp Thu Apr 15 11:23:53 2004 @@ -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.8 2004/04/15 13:17:50 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.9 2004/04/15 15:23:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -50,6 +50,7 @@ muerte::eval-cons muerte::eval-funcall muerte::eval-form + muerte::eval-progn muerte::slow-method-lookup muerte::do-slow-method-lookup muerte::initial-discriminating-function @@ -499,8 +500,8 @@ (function (let ((delta (code-vector-offset (funobj-code-vector funobj) eip))) (if delta - (format t "{Interrupt ~D in ~W at offset ~D. [#x~X]}" - exception (funobj-name funobj) delta interrupt-frame) + (format t "{Interrupt ~D in ~W at PC offset ~D." + exception (funobj-name funobj) delta) (format t "{Interrupt ~D in ~W at EIP=#x~X. [#x~X]}" exception (funobj-name funobj) eip interrupt-frame)))) (t (format t "{Interrupt ~D with ESI=#x~Z and EIP=#x~X. [#x~X]}"

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4090 Modified Files: interrupt.lisp Log Message: Re-named the muerte:interrupt-handler accessor to muerte:exception-handler. Date: Thu Apr 15 11:23:36 2004 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.5 movitz/losp/muerte/interrupt.lisp:1.6 --- movitz/losp/muerte/interrupt.lisp:1.5 Thu Apr 15 11:18:43 2004 +++ movitz/losp/muerte/interrupt.lisp Thu Apr 15 11:23:36 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.5 2004/04/15 15:18:43 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.6 2004/04/15 15:23:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -240,15 +240,14 @@ nil)))) -(defun interrupt-handler (n) +(defun exception-handler (n) (let ((vector (load-global-constant interrupt-handlers))) (svref vector n))) -(defun (setf interrupt-handler) (handler n) +(defun (setf exception-handler) (handler n) (check-type handler function) (let ((vector (load-global-constant interrupt-handlers))) (setf (svref vector n) handler))) - (defun cli () (with-inline-assembly (:returns :nothing)

1 0

[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv3578 Modified Files: los0-gc.lisp Log Message: Re-named the muerte:interrupt-handler accessor to muerte:exception-handler. Date: Thu Apr 15 11:23:31 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.8 movitz/losp/los0-gc.lisp:1.9 --- movitz/losp/los0-gc.lisp:1.8 Thu Apr 15 09:21:42 2004 +++ movitz/losp/los0-gc.lisp Thu Apr 15 11:23:31 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.8 2004/04/15 13:21:42 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.9 2004/04/15 15:23:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -113,7 +113,7 @@ (symbol-function 'new-malloc-clumps)) (setf (symbol-function 'new-malloc-clumps) old-malloc)) - (setf (interrupt-handler 113) + (setf (exception-handler 113) (lambda (exception interrupt-frame) (declare (ignore exception interrupt-frame)) (format t "~&;; Handling out-of-memory exception..")

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv21357 Modified Files: interrupt.lisp Log Message: Signal a proper division-by-zero condition. Date: Thu Apr 15 11:18:43 2004 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.4 movitz/losp/muerte/interrupt.lisp:1.5 --- movitz/losp/muerte/interrupt.lisp:1.4 Thu Apr 15 09:18:48 2004 +++ movitz/losp/muerte/interrupt.lisp Thu Apr 15 11:18:43 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.4 2004/04/15 13:18:48 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.5 2004/04/15 15:18:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -159,7 +159,7 @@ (*last-interrupt-frame* interrupt-frame)) (block nil (case number - (0 (error "Division by zero.")) + (0 (error 'division-by-zero)) (3 (break "Break instruction at ~@Z." $eip)) (6 (error "Illegal instruction at ~@Z." $eip)) (13 (error "General protection error. EIP=~@Z, error-code: #x~X, EAX: ~@Z, EBX: ~@Z, ECX: ~@Z"

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/conditions.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4440 Modified Files: conditions.lisp Log Message: Added conditions arithmetic-error and division-by-zero. Date: Thu Apr 15 11:11:44 2004 Author: ffjeld Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.4 movitz/losp/muerte/conditions.lisp:1.5 --- movitz/losp/muerte/conditions.lisp:1.4 Tue Apr 6 10:05:18 2004 +++ movitz/losp/muerte/conditions.lisp Thu Apr 15 11:11:44 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.4 2004/04/06 14:05:18 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.5 2004/04/15 15:11:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -128,7 +128,23 @@ (:report (lambda (c s) (format s "End of file encountered on ~W." (stream-error-stream c))))) - + +(define-condition arithmetic-error (error) + ((operation + :initarg :operation + :initform nil + :reader arithmetic-error-operation) + (operands + :initarg :operands + :initform nil + :reader arithmetic-error-operands))) + +(define-condition division-by-zero (arithmetic-error) + () + (:report (lambda (c s) + (declare (ignore c)) + (format s "Division by zero.")))) + (defun make-condition (type &rest slot-initializations) (declare (dynamic-extent slot-initializations)) (apply 'make-instance type slot-initializations))

1 0

[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv20474 Modified Files: los0-gc.lisp Log Message: Fixed install-los0-consing to reflect the new scheme where interrupt-handlers are now denoted by functions rather than symbols. Date: Thu Apr 15 09:21:42 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.7 movitz/losp/los0-gc.lisp:1.8 --- movitz/losp/los0-gc.lisp:1.7 Sun Apr 11 14:57:06 2004 +++ movitz/losp/los0-gc.lisp Thu Apr 15 09:21:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.7 2004/04/11 18:57:06 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.8 2004/04/15 13:21:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -113,7 +113,11 @@ (symbol-function 'new-malloc-clumps)) (setf (symbol-function 'new-malloc-clumps) old-malloc)) - (setf (interrupt-handler 113) 'los0-handle-out-of-memory) + (setf (interrupt-handler 113) + (lambda (exception interrupt-frame) + (declare (ignore exception interrupt-frame)) + (format t "~&;; Handling out-of-memory exception..") + (stop-and-copy))) (values)) (defun install-old-consing ()

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9771 Modified Files: interrupt.lisp Log Message: The interrupt-handlers array now contains the function objects themselves rather than symbols. Date: Thu Apr 15 09:18:49 2004 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.3 movitz/losp/muerte/interrupt.lisp:1.4 --- movitz/losp/muerte/interrupt.lisp:1.3 Tue Apr 13 12:55:17 2004 +++ movitz/losp/muerte/interrupt.lisp Thu Apr 15 09:18:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.3 2004/04/13 16:55:17 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.4 2004/04/15 13:18:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -111,18 +111,12 @@ (:locally (:pushl (:edi (:edi-offset num-values)))) ;; call handler - (:movl (:ebp 4) :ebx) ; interrupt number into EBX + (:movl (:ebp 4) :ecx) ; interrupt number into ECX (:locally (:movl (:edi (:edi-offset interrupt-handlers)) :eax)) - (:movl (:eax 2 (:ebx 4)) :eax) ; symbol at (aref EBX interrupt-handlers) into :esi - (:leal (:eax -7) :ecx) - (:testb 7 :cl) - (:jnz 'skip-interrupt-handler) ; if it's not a symbol, never mind. - (:movl (:eax #.(movitz::slot-offset 'movitz::movitz-symbol 'movitz::function-value)) - :esi) ; load new funobj from symbol into ESI + (:movl (:eax 2 (:ecx 4)) :esi) ; funobj at (aref EBX interrupt-handlers) into :esi (:movl :ebp :ebx) ; pass interrupt-frame as arg1 - ;; (:movl :ebx (:ebp -4)) ; put interrupt-frame as our fake stack-frame's funobj. - (:movl (:ebp 4) :eax) ; pass interrupt number as arg 0. - (:shll #.movitz::+movitz-fixnum-shift+ :eax) + (:movl (:ebp 4) :ecx) ; pass interrupt number as arg 0. + (:leal ((:ecx #.movitz:+movitz-fixnum-factor+)) :eax) (:call (:esi #.(movitz::slot-offset 'movitz::movitz-funobj 'movitz::code-vector%2op))) skip-interrupt-handler @@ -251,8 +245,7 @@ (svref vector n))) (defun (setf interrupt-handler) (handler n) - (check-type handler symbol) - (assert (fboundp handler)) + (check-type handler function) (let ((vector (load-global-constant interrupt-handlers))) (setf (svref vector n) handler)))

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv9158 Modified Files: debugger.lisp Log Message: Don't conflate interrupt frames by default. Date: Thu Apr 15 09:17:50 2004 Author: ffjeld Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.7 movitz/losp/x86-pc/debugger.lisp:1.8 --- movitz/losp/x86-pc/debugger.lisp:1.7 Sun Apr 11 14:56:31 2004 +++ movitz/losp/x86-pc/debugger.lisp Thu Apr 15 09:17:50 2004 @@ -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.7 2004/04/11 18:56:31 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.8 2004/04/15 13:17:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -455,7 +455,7 @@ ((:fresh-lines *backtrace-do-fresh-lines*) *backtrace-do-fresh-lines*) (conflate *backtrace-do-conflate*) (length *backtrace-length*) - print-returns + print-returns conflate-interrupts ((:print-frames *backtrace-print-frames*) *backtrace-print-frames*)) (let ((*print-safely* t) (*standard-output* *debug-io*) @@ -483,7 +483,7 @@ (integer (let* ((interrupt-frame stack-frame) (funobj (interrupt-frame-ref interrupt-frame :esi :lisp))) - (if (and conflate + (if (and conflate-interrupts conflate ;; When the interrupted function has a stack-frame, conflate it. (typep funobj 'function) (= 1 (ldb (byte 1 5) (funobj-debug-info funobj))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/eval.lisp
by Frode Vatvedt Fjeld 15 Apr '04

15 Apr '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6334 Modified Files: eval.lisp Log Message: Explicitly name anonymbous lambda functions that eval creates. Date: Thu Apr 15 09:16:28 2004 Author: ffjeld Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.5 movitz/losp/muerte/eval.lisp:1.6 --- movitz/losp/muerte/eval.lisp:1.5 Thu Apr 1 15:25:07 2004 +++ movitz/losp/muerte/eval.lisp Thu Apr 15 09:16:28 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.5 2004/04/01 20:25:07 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.6 2004/04/15 13:16:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -323,13 +323,14 @@ ((lambda) (let ((lambda-list (cadr function-name)) (lambda-body (cddr function-name))) - (lambda (&rest args) - (declare (dynamic-extent args)) - (eval-progn lambda-body - (make-destructuring-env lambda-list args env - :environment-p nil - :recursive-p nil - :whole-p nil))))))))) + (install-funobj-name :anonymous-lambda + (lambda (&rest args) + (declare (dynamic-extent args)) + (eval-progn lambda-body + (make-destructuring-env lambda-list args env + :environment-p nil + :recursive-p nil + :whole-p nil)))))))))) (defun lookup-setf-function (name) (let ((setf-name (gethash name (get-global-property :setf-namespace))))

1 0

← Newer
1
...
8
9
10
11
12
13
14
...
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs April 2004