movitz-cvs June 2005

movitz-cvs@common-lisp.net

1 participants
37 discussions

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

11 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 11 Jun '05

11 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 11 Jun '05

11 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 11 Jun '05

11 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 11 Jun '05

11 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

[movitz-cvs] CVS update: movitz/losp/muerte/read.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-serv28720 Modified Files: read.lisp Log Message: Added a silly read-from-string. Date: Fri Jun 10 20:35:02 2005 Author: ffjeld Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.11 movitz/losp/muerte/read.lisp:1.12 --- movitz/losp/muerte/read.lisp:1.11 Mon Oct 11 15:53:11 2004 +++ movitz/losp/muerte/read.lisp Fri Jun 10 20:35:01 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 Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.11 2004/10/11 13:53:11 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.12 2005/06/10 18:35:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -342,6 +342,10 @@ (substring string i token-end)))))))))) (t (return-from simple-read-from-string (simple-read-token string :start i :end end)))))) + +(defun read-from-string (&rest args) + (declare (dynamic-extent args)) + (apply #'simple-read-from-string args)) (defun un-backquote (form level) "Dont ask.."

1 0

[movitz-cvs] CVS update: movitz/losp/los0.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-serv4386 Modified Files: los0.lisp Log Message: *** empty log message *** Date: Fri Jun 10 00:21:08 2005 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.45 movitz/losp/los0.lisp:1.46 --- movitz/losp/los0.lisp:1.45 Sun May 8 03:20:02 2005 +++ movitz/losp/los0.lisp Fri Jun 10 00:21:08 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.45 2005/05/08 01:20:02 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.46 2005/06/09 22:21:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -26,6 +26,7 @@ (require :lib/toplevel) ;; (require :lib/net/ip6) (require :lib/net/ip4) +(require :lib/net/dhcp) (require :lib/repl) ;; (require :ll-testing) @@ -876,16 +877,6 @@ with end-time = (+ start-time (* seconds internal-time-units-per-second)) while (< (get-internal-run-time) end-time))))) (values)) - - -;;;(defun get-internal-run-time () -;;; (multiple-value-bind (lo mid hi) -;;; (read-time-stamp-counter) -;;; (declare (ignore lo)) -;;; (dpb hi (byte 5 24) mid))) -;;; -;;;(defun get-internal-real-time () -;;; (get-internal-run-time)) (defun y-or-n-p (&optional control &rest arguments)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs June 2005