movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[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

[movitz-cvs] CVS update: movitz/losp/muerte/basic-functions.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-serv31009 Modified Files: basic-functions.lisp Log Message: Move malloc functions to inspect.lisp, for now. Date: Thu Mar 25 20:49:07 2004 Author: ffjeld Index: movitz/losp/muerte/basic-functions.lisp diff -u movitz/losp/muerte/basic-functions.lisp:1.6 movitz/losp/muerte/basic-functions.lisp:1.7 --- movitz/losp/muerte/basic-functions.lisp:1.6 Thu Mar 25 06:27:00 2004 +++ movitz/losp/muerte/basic-functions.lisp Thu Mar 25 20:49:06 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.6 2004/03/25 11:27:00 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.7 2004/03/26 01:49:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -356,16 +356,3 @@ (defun %word-offset (word offset) (%word-offset word offset)) -(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

[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-serv16201 Modified Files: arrays.lisp Log Message: Minor edit. Date: Thu Mar 25 20:47:39 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.8 movitz/losp/muerte/arrays.lisp:1.9 --- movitz/losp/muerte/arrays.lisp:1.8 Thu Mar 25 06:17:22 2004 +++ movitz/losp/muerte/arrays.lisp Thu Mar 25 20:47:39 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.8 2004/03/25 11:17:22 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.9 2004/03/26 01:47:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -555,12 +555,12 @@ :other-tag :vector :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type :any-t)))) - (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) - 0 :unsigned-byte16) - dimensions) (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) 0 :unsigned-byte16) 0) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) + 0 :unsigned-byte16) + dimensions) (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::type) 0 :unsigned-byte16) #.(movitz:vector-type-tag :any-t))

1 0

[movitz-cvs] CVS update: movitz/losp/lib/toplevel.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-serv9627 Modified Files: toplevel.lisp Log Message: Minor edit. Date: Thu Mar 25 20:46:47 2004 Author: ffjeld Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.4 movitz/losp/lib/toplevel.lisp:1.5 --- movitz/losp/lib/toplevel.lisp:1.4 Fri Feb 13 17:11:24 2004 +++ movitz/losp/lib/toplevel.lisp Thu Mar 25 20:46:47 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.4 2004/02/13 22:11:24 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.5 2004/03/26 01:46:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -43,10 +43,10 @@ (apply f arguments) (multiple-value-bind (completion completion-count) (muerte.readline:complete-symbol-name (string name) - :package :keyword - :filter-matches (lambda (x) - (and (gethash x *toplevel-commands*) - t))) + :package :keyword + :filter-matches (lambda (x) + (and (gethash x *toplevel-commands*) + t))) (case completion-count (0 (format t "~&No toplevel command named ~S." name) name)

1 0

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

26 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv26978 Modified Files: image.lisp Log Message: Added two bochs-flags fields to run-time-context. Date: Thu Mar 25 20:44:46 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.19 movitz/image.lisp:1.20 --- movitz/image.lisp:1.19 Wed Mar 24 13:39:42 2004 +++ movitz/image.lisp Thu Mar 25 20:44:46 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.19 2004/03/24 18:39:42 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.20 2004/03/26 01:44:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -128,6 +128,12 @@ (stack-top ; stack-top must be right after stack-bottom :binary-type word ; in order for the bound instruction to work. :initform #x100000) + (bochs-flags + :binary-type lu32 + :initform 0) + (bochs-flags2 + :binary-type lu32 + :initform 0) ;; (unbound-value :binary-type word

1 0

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

26 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv14428 Modified Files: eval.lisp Log Message: This is a fix, but I'm not really sure how sound it is. Date: Thu Mar 25 20:43:46 2004 Author: ffjeld Index: movitz/eval.lisp diff -u movitz/eval.lisp:1.2 movitz/eval.lisp:1.3 --- movitz/eval.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/eval.lisp Thu Mar 25 20:43:46 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 2 17:45:05 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.3 2004/03/26 01:43:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -97,7 +97,8 @@ (declare (ignore top-level-p)) (cond ((typep (movitz-binding form env) 'constant-object-binding) - (movitz-print (constant-object (movitz-binding form env)))) + (translate-program (movitz-print (constant-object (movitz-binding form env))) + :cl :muerte.cl)) ((movitz-constantp form env) (symbol-value form)) ;;; ((movitz-lexical-binding form env)

1 0

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

26 Mar '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv10882 Modified Files: multiboot.lisp Log Message: Changed type word to lu32. Date: Thu Mar 25 20:42:45 2004 Author: ffjeld Index: movitz/multiboot.lisp diff -u movitz/multiboot.lisp:1.3 movitz/multiboot.lisp:1.4 --- movitz/multiboot.lisp:1.3 Wed Mar 24 08:20:49 2004 +++ movitz/multiboot.lisp Thu Mar 25 20:42:45 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Jun 12 12:14:12 2002 ;;;; -;;;; $Id: multiboot.lisp,v 1.3 2004/03/24 13:20:49 ffjeld Exp $ +;;;; $Id: multiboot.lisp,v 1.4 2004/03/26 01:42:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -37,10 +37,10 @@ (define-binary-class multiboot-header (movitz-heap-object) ((scan-skip-header - :binary-type word + :binary-type lu32 :initform +scan-skip-word+) (scan-skip-length - :binary-type word + :binary-type lu32 :initform 0 :map-binary-write (lambda (x type) (declare (ignore x y))

1 0

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