movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv13134 Modified Files: inspect.lisp Log Message: vector-u16 and vector-u32 are obsolete. Date: Sat Jun 11 01:07:07 2005 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.53 movitz/losp/muerte/inspect.lisp:1.54 --- movitz/losp/muerte/inspect.lisp:1.53 Thu May 5 22:52:02 2005 +++ movitz/losp/muerte/inspect.lisp Sat Jun 11 01:07:07 2005 @@ -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.53 2005/05/05 20:52:02 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.54 2005/06/10 23:07:07 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -388,13 +388,13 @@ (+ -1 object-location (movitz-type-word-size 'movitz-basic-vector) (* 2 (truncate (+ (array-dimension object 0) 7) 8))))) - (vector-u16 + ((simple-array (unsigned-byte 16) 1) (<= object-location location (+ -1 object-location (movitz-type-word-size 'movitz-basic-vector) (* 2 (truncate (+ (array-dimension object 0) 3) 4))))) - ((or vector-u32 simple-vector) + ((or simple-vector (simple-array (unsigned-byte 32) 1)) (<= object-location location (+ -1 object-location

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv13117 Modified Files: scavenge.lisp Log Message: Add scavenger support for indirect-vectors. Date: Sat Jun 11 01:06:40 2005 Author: ffjeld Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.50 movitz/losp/muerte/scavenge.lisp:1.51 --- movitz/losp/muerte/scavenge.lisp:1.50 Thu May 5 22:51:55 2005 +++ movitz/losp/muerte/scavenge.lisp Sat Jun 11 01:06:39 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.50 2005/05/05 20:51:55 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.51 2005/06/10 23:06:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -180,8 +180,12 @@ (setf *scan-last* (%word-offset scan #.(movitz:tag :other))) (incf scan (1+ (logand (1+ len) -2))))) ((scavenge-typep x :basic-vector) - (if (scavenge-wide-typep x :basic-vector - #.(bt:enum-value 'movitz:movitz-vector-element-type :any-t)) + (if (or (scavenge-wide-typep x :basic-vector + #.(bt:enum-value 'movitz:movitz-vector-element-type + :any-t)) + (scavenge-wide-typep x :basic-vector + #.(bt:enum-value 'movitz:movitz-vector-element-type + :indirects))) (setf *scan-last* (%word-offset scan #.(movitz:tag :other))) (error "Scanned unknown basic-vector-header ~S at location #x~X." x scan))) ((and (eq x 3) (eq x2 0))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/variables.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv13099 Modified Files: variables.lisp Log Message: Define a *gc-hooks* variable, a list of functions to be called after GC. Date: Sat Jun 11 01:05:50 2005 Author: ffjeld Index: movitz/losp/muerte/variables.lisp diff -u movitz/losp/muerte/variables.lisp:1.8 movitz/losp/muerte/variables.lisp:1.9 --- movitz/losp/muerte/variables.lisp:1.8 Wed Sep 15 12:22:59 2004 +++ movitz/losp/muerte/variables.lisp Sat Jun 11 01:05:50 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2003-2004, +;;;; Copyright (C) 2003-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 Nov 5 21:53:34 2003 ;;;; -;;;; $Id: variables.lisp,v 1.8 2004/09/15 10:22:59 ffjeld Exp $ +;;;; $Id: variables.lisp,v 1.9 2005/06/10 23:05:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -42,5 +42,7 @@ (defvar *multiboot-data* nil) (defvar internal-time-units-per-second) + +(defvar *gc-hooks* nil) (declaim (special *build-number*))

1 0

[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv13082 Modified Files: los0-gc.lisp Log Message: Define a *gc-hooks* variable, a list of functions to be called after GC. Date: Sat Jun 11 01:05:45 2005 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.54 movitz/losp/los0-gc.lisp:1.55 --- movitz/losp/los0-gc.lisp:1.54 Thu May 5 22:51:09 2005 +++ movitz/losp/los0-gc.lisp Sat Jun 11 01:05:44 2005 @@ -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.54 2005/05/05 20:51:09 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.55 2005/06/10 23:05:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -493,7 +493,8 @@ (format t "Old space: ~/muerte:pprint-clumps/, new space: ~ ~/muerte:pprint-clumps/, freed: ~/muerte:pprint-clumps/.~%" old-size new-size (- old-size new-size)))) - + (dolist (hook *gc-hooks*) + (funcall hook)) (initialize-space oldspace) (fill oldspace #x13 :start 2) ;; (setf *gc-stack2* *gc-stack*)

1 0

[movitz-cvs] CVS update: movitz/packages.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv13067 Modified Files: packages.lisp Log Message: Define a *gc-hooks* variable, a list of functions to be called after GC. Date: Sat Jun 11 01:05:40 2005 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.50 movitz/packages.lisp:1.51 --- movitz/packages.lisp:1.50 Sun May 22 00:38:29 2005 +++ movitz/packages.lisp Sat Jun 11 01:05:38 2005 @@ -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.50 2005/05/21 22:38:29 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.51 2005/06/10 23:05:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1253,6 +1253,7 @@ #:cpu-featurep #:find-cpu-features #:*cpu-features* + #:*gc-hooks* #:write-cpu-vendor-string #:read-time-stamp-counter #:clear-time-stamp-counter

1 0

[movitz-cvs] CVS update: movitz/losp/ll-testing.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv13038 Modified Files: ll-testing.lisp Log Message: Fix format-segment-table: use selector rather than indexes. Date: Sat Jun 11 01:04:45 2005 Author: ffjeld Index: movitz/losp/ll-testing.lisp diff -u movitz/losp/ll-testing.lisp:1.9 movitz/losp/ll-testing.lisp:1.10 --- movitz/losp/ll-testing.lisp:1.9 Sun May 8 03:18:02 2005 +++ movitz/losp/ll-testing.lisp Sat Jun 11 01:04:45 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Apr 14 08:18:43 2005 ;;;; -;;;; $Id: ll-testing.lisp,v 1.9 2005/05/08 01:18:02 ffjeld Exp $ +;;;; $Id: ll-testing.lisp,v 1.10 2005/06/10 23:04:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -40,12 +40,13 @@ (defun format-segment-table (table &key (start 0) (end (truncate (length table) 2))) (loop for i from start below end - do (format t "~&~2D: base: #x~8,'0X, limit: #x~5,'0X, type-s-dpl-p: ~8,'0b, avl-x-db-g: ~4,'0b~%" - i - (* 4 (segment-descriptor-base-location table i)) - (segment-descriptor-limit table i) - (segment-descriptor-type-s-dpl-p table i) - (segment-descriptor-avl-x-db-g table i))) + as selector = (* i 8) + do (format t "~&~3X: base: #x~8,'0X, limit: #x~5,'0X, type-s-dpl-p: ~8,'0b, avl-x-db-g: ~4,'0b~%" + selector + (* 4 (segment-descriptor-base-location table selector)) + (segment-descriptor-limit table selector) + (segment-descriptor-type-s-dpl-p table selector) + (segment-descriptor-avl-x-db-g table selector))) (values))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/segments.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11308 Modified Files: segments.lisp Log Message: Fixed a nasty bug in (setf global-segment-descriptor-table) that would install the wrong (about half-size) limit, causing weird crashes. Date: Sat Jun 11 00:43:53 2005 Author: ffjeld Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.15 movitz/losp/muerte/segments.lisp:1.16 --- movitz/losp/muerte/segments.lisp:1.15 Fri Jun 10 23:15:18 2005 +++ movitz/losp/muerte/segments.lisp Sat Jun 11 00:43:52 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.15 2005/06/10 21:15:18 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.16 2005/06/10 22:43:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -176,9 +176,9 @@ (defun (setf global-segment-descriptor-table) (table) "Install <table> as the GDT. -NB! you need ensure that the table object isn't garbage-collected." +NB! you need to ensure that the table object isn't garbage-collected." (check-type table (vector (unsigned-byte 32))) - (let ((limit (1- (* 2 (length table)))) + (let ((limit (1- (* 4 (length table)))) (base (+ 2 (+ (object-location table) (location-physical-offset))))) (%lgdt base limit)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/segments.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv5853 Modified Files: segments.lisp Log Message: Made (setf (segment-register :cs) ..) work. Date: Fri Jun 10 23:15:18 2005 Author: ffjeld Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.14 movitz/losp/muerte/segments.lisp:1.15 --- movitz/losp/muerte/segments.lisp:1.14 Sun May 8 03:19:41 2005 +++ movitz/losp/muerte/segments.lisp Fri Jun 10 23:15:18 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.14 2005/05/08 01:19:41 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.15 2005/06/10 21:15:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -45,11 +45,20 @@ (:movw :cx ,reg)))) (ecase segment-register-name (:ss (set-sreg :ss)) - (:cs (set-sreg :cs)) (:ds (set-sreg :ds)) (:es (set-sreg :es)) (:fs (set-sreg :fs)) - (:gs (set-sreg :gs)))) + (:gs (set-sreg :gs)) + (:cs (without-interrupts + (with-inline-assembly (:returns :nothing) + (:load-lexical (:lexical-binding value) :untagged-fixnum-ecx) + (:declare-label-set jmp-table (jmp-target)) + (:pushl :ecx) ; push selector + (:pushl (:esi (:offset movitz-funobj constant0) 'jmp-table)) + (:jmp-segment (:esp)) + jmp-target + (:popl :ecx) + (:popl :ecx)))))) value) (defun %sgdt ()

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/simple-streams.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28766 Modified Files: simple-streams.lisp Log Message: *** empty log message *** Date: Fri Jun 10 20:35:44 2005 Author: ffjeld Index: movitz/losp/muerte/simple-streams.lisp diff -u movitz/losp/muerte/simple-streams.lisp:1.7 movitz/losp/muerte/simple-streams.lisp:1.8 --- movitz/losp/muerte/simple-streams.lisp:1.7 Wed Nov 24 17:19:02 2004 +++ movitz/losp/muerte/simple-streams.lisp Fri Jun 10 20:35:44 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001, 2003-2004, +;;;; Copyright (C) 2001, 2003-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: Fri Aug 29 13:39:43 2003 ;;;; -;;;; $Id: simple-streams.lisp,v 1.7 2004/11/24 16:19:02 ffjeld Exp $ +;;;; $Id: simple-streams.lisp,v 1.8 2005/06/10 18:35:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -427,9 +427,7 @@ (%check stream :output) (funcall-stm-handler-2 j-write-char character (sm melded-stream stream)))) (string - (assert (vector-push-extend character stream) - () "Vector-push-extend for string stream failed pushing ~S into ~S." - character stream)))) + (vector-push-extend character stream)))) (defun %read-line (stream eof-error-p eof-value recursive-p) (declare (ignore recursive-p))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/format.lisp
by ffjeld＠common-lisp.net 10 Jun '05

10 Jun '05

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28749 Modified Files: format.lisp Log Message: Have (format nil ..) output to an adjustable string. Date: Fri Jun 10 20:35:28 2005 Author: ffjeld Index: movitz/losp/muerte/format.lisp diff -u movitz/losp/muerte/format.lisp:1.10 movitz/losp/muerte/format.lisp:1.11 --- movitz/losp/muerte/format.lisp:1.10 Tue Jan 25 14:46:10 2005 +++ movitz/losp/muerte/format.lisp Fri Jun 10 20:35:28 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Mar 23 01:18:36 2002 ;;;; -;;;; $Id: format.lisp,v 1.10 2005/01/25 13:46:10 ffjeld Exp $ +;;;; $Id: format.lisp,v 1.11 2005/06/10 18:35:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -30,9 +30,11 @@ (declare (dynamic-extent args)) (let ((destination (case destination - ((nil) (make-array (* 3 (length control)) + ((nil) (make-array (+ (length control) + (* 8 (count #\~ control))) :element-type 'character - :fill-pointer 0)) + :fill-pointer 0 + :adjustable t)) ((t) *standard-output*) (otherwise destination)))) (etypecase control @@ -180,8 +182,8 @@ (#\/ (let* ((name-end (or (position #\/ control-string :start (incf i)) (error "Call function name not terminated in ~S." control-string))) - (function-name (simple-read-from-string control-string nil nil - :start i :end name-end))) + (function-name (read-from-string control-string nil nil + :start i :end name-end))) (check-type function-name symbol) (setf i name-end) (apply function-name *standard-output* (pop args)

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