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

[movitz-cvs] CVS update: movitz/losp/muerte/defstruct.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6817 Modified Files: defstruct.lisp Log Message: Added function structure-object-length. Date: Fri Mar 26 08:57:12 2004 Author: ffjeld Index: movitz/losp/muerte/defstruct.lisp diff -u movitz/losp/muerte/defstruct.lisp:1.3 movitz/losp/muerte/defstruct.lisp:1.4 --- movitz/losp/muerte/defstruct.lisp:1.3 Mon Mar 22 11:37:59 2004 +++ movitz/losp/muerte/defstruct.lisp Fri Mar 26 08:57:12 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jan 22 13:10:59 2001 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: defstruct.lisp,v 1.3 2004/03/22 16:37:59 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.4 2004/03/26 13:57:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,6 +18,10 @@ (provide :muerte/defstruct) (in-package muerte) + +(defun structure-object-length (obj) + (check-type obj structure-object) + (movitz-accessor-u16 obj movitz-struct length)) (defun struct-predicate-prototype (obj) "Prototype function for predicates of user-defined struct.

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4515 Modified Files: arrays.lisp Log Message: Initialize fresh vectors properly. Date: Fri Mar 26 08:56:53 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.10 movitz/losp/muerte/arrays.lisp:1.11 --- movitz/losp/muerte/arrays.lisp:1.10 Fri Mar 26 05:45:00 2004 +++ movitz/losp/muerte/arrays.lisp Fri Mar 26 08:56:53 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.10 2004/03/26 10:45:00 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.11 2004/03/26 13:56:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -509,6 +509,9 @@ :other-tag :vector :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type :character)))) + (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) + 0 :unsigned-byte16) + 0) (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) 0 :unsigned-byte16) dimensions) @@ -522,6 +525,9 @@ :other-tag :vector :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type :u8)))) + (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) + 0 :unsigned-byte16) + 0) (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) 0 :unsigned-byte16) dimensions) @@ -538,6 +544,9 @@ :other-tag :vector :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type :u32)))) + (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) + 0 :unsigned-byte16) + 0) (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) 0 :unsigned-byte16) dimensions)

1 0

[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv9079 Modified Files: repl.lisp Log Message: Include the handler for Control-C in the REPL. Date: Fri Mar 26 08:54:45 2004 Author: ffjeld Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.6 movitz/losp/lib/repl.lisp:1.7 --- movitz/losp/lib/repl.lisp:1.6 Thu Mar 25 20:36:30 2004 +++ movitz/losp/lib/repl.lisp Fri Mar 26 08:54:45 2004 @@ -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.6 2004/03/26 01:36:30 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.7 2004/03/26 13:54:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -80,7 +80,7 @@ arg) until (eq arg '#0#) collect arg))))))) - #+ignore (muerte.readline::readline-break (c) - (declare (ignore c)) - (values)))) + (muerte.readline::readline-break (c) + (declare (ignore c)) + (values))))

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv32169 Modified Files: storage-types.lisp Log Message: Added an illegal type-tag for some (memory) consistency checks. And a function that computes the size of a class in words. Date: Fri Mar 26 08:53:08 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.13 movitz/storage-types.lisp:1.14 --- movitz/storage-types.lisp:1.13 Wed Mar 24 08:22:27 2004 +++ movitz/storage-types.lisp Fri Mar 26 08:53:06 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.13 2004/03/24 13:22:27 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.14 2004/03/26 13:53:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -73,6 +73,7 @@ :std-instance #x40 :run-time-context #x50 :infant-object #x65 + :illegal #x13 ;; :simple-vector #x20 ;; :character-vector @@ -397,7 +398,8 @@ :accessor movitz-vector-symbolic-data)) (:slot-align type -2)) - +(defun movitz-type-word-size (type) + (truncate (sizeof (intern (symbol-name type) :movitz)) 4)) (defun movitz-svref (vector index) (elt (movitz-vector-symbolic-data vector) index))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv6562 Modified Files: arrays.lisp Log Message: (setf aref) of an u32 vector should translate to a :movl, not a :movw. Date: Fri Mar 26 05:45:00 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.9 movitz/losp/muerte/arrays.lisp:1.10 --- movitz/losp/muerte/arrays.lisp:1.9 Thu Mar 25 20:47:39 2004 +++ movitz/losp/muerte/arrays.lisp Fri Mar 26 05:45:00 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.9 2004/03/26 01:47:39 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.10 2004/03/26 10:45:00 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -326,7 +326,7 @@ (:compile-form (:result-mode :ignore) (error "Value not (unsigned-byte 32): ~S" value)))) (:shrl #.movitz:+movitz-fixnum-shift+ :ebx) - (:movw :bx (:eax (:ecx 4) #.(bt:slot-offset 'movitz:movitz-vector 'movitz::data))) + (:movl :ebx (:eax (:ecx 4) #.(bt:slot-offset 'movitz:movitz-vector 'movitz::data))) (:leal ((:ebx #.movitz:+movitz-fixnum-factor+)) :ebx) (:jmp 'done)

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/floppy.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv24608 Added Files: floppy.lisp Log Message: This file has been missing from the repository for some time, I think. Date: Thu Mar 25 20:55:22 2004 Author: ffjeld

1 0

[movitz-cvs] CVS update: movitz/losp/los0.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv30336 Modified Files: los0.lisp Log Message: Top-level command :Bochs-trace provides interactive access to the with-bochs-tracing macro. Date: Thu Mar 25 20:53:53 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.6 movitz/losp/los0.lisp:1.7 --- movitz/losp/los0.lisp:1.6 Thu Mar 25 04:24:00 2004 +++ movitz/losp/los0.lisp Thu Mar 25 20:53:53 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.6 2004/03/25 09:24:00 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.7 2004/03/26 01:53:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -789,6 +789,10 @@ (describe (gethash x *toplevel-commands*))) (t (describe x))) (values)) + +(muerte.toplevel:define-toplevel-command :bochs-trace (form) + (muerte::with-bochs-tracing () + (eval form))) (muerte.toplevel:define-toplevel-command :mapkey (code-char) (let ((char (etypecase code-char

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/interrupt.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv17921 Modified Files: interrupt.lisp Log Message: Minor change. Date: Thu Mar 25 20:51:21 2004 Author: ffjeld Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.4 movitz/losp/x86-pc/interrupt.lisp:1.5 --- movitz/losp/x86-pc/interrupt.lisp:1.4 Wed Mar 24 08:36:26 2004 +++ movitz/losp/x86-pc/interrupt.lisp Thu Mar 25 20:51:21 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.4 2004/03/24 13:36:26 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.5 2004/03/26 01:51:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -182,8 +182,8 @@ (67 (muerte.debug:backtrace :fresh-lines nil :length 6) (dotimes (i 100000) (with-inline-assembly (:returns :nothing) (:nop)))) - (66 (error "Unspecified type error in ~S with EAX=~@Z, ECX=~@Z." - (@ (+ int-frame (int-frame-index :esi))) + (66 (error "Unspecified type error at ~@Z in ~S with EAX=~@Z, ECX=~@Z." + $eip (@ (+ int-frame (int-frame-index :esi))) $eax $ecx)) (62 (error "Trying to save too many values: ~@Z." $ecx)) ((5 55)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv14421 Modified Files: more-macros.lisp Log Message: With-bochs-tracing is a new debugging tool for use under modified bochs. Date: Thu Mar 25 20:50:32 2004 Author: ffjeld Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.3 movitz/losp/muerte/more-macros.lisp:1.4 --- movitz/losp/muerte/more-macros.lisp:1.3 Fri Feb 20 10:38:28 2004 +++ movitz/losp/muerte/more-macros.lisp Thu Mar 25 20:50:32 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.3 2004/02/20 15:38:28 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.4 2004/03/26 01:50:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -205,7 +205,14 @@ ,eof-value)) - +(defmacro with-bochs-tracing ((&optional (value 1)) &body body) + "Bochs magic." + `(let ((old-flags (muerte::%run-time-context-slot 'bochs-flags))) + (unwind-protect + (progn + (setf (muerte::%run-time-context-slot 'bochs-flags) ,value) + ,@body) + (setf (muerte::%run-time-context-slot 'bochs-flags) old-flags))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 26 Mar '04

26 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv31693 Modified Files: inspect.lisp Log Message: Move malloc functions to inspect.lisp, for now. Date: Thu Mar 25 20:49:11 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.2 movitz/losp/muerte/inspect.lisp:1.3 --- movitz/losp/muerte/inspect.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/inspect.lisp Thu Mar 25 20:49:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.3 2004/03/26 01:49:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -168,3 +168,17 @@ (when (member :catch types) (format t "~&catch: ~Z: ~S" tag tag)))))) + +(defun malloc-words (words) + (malloc-clumps (1+ (truncate (1+ words) 2)))) + +(defun malloc-clumps (clumps) + (let ((x (with-inline-assembly (:returns :eax :side-effects t) + (:compile-form (:result-mode :ebx) clumps) + (:shll 1 :ebx) + (:globally (:call (:edi (:edi-offset malloc)))) + (:addl #.(movitz::tag :other) :eax)))) + (dotimes (i clumps) + (setf (memref x -6 i :lisp) nil + (memref x -2 i :lisp) nil)) + x))

1 0