movitz-cvs February 2004

movitz-cvs@common-lisp.net

1 participants
166 discussions

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv32642 Modified Files: compiler.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:05:54 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.20 movitz/compiler.lisp:1.21 --- movitz/compiler.lisp:1.20 Mon Feb 9 19:28:34 2004 +++ movitz/compiler.lisp Tue Feb 10 13:05:54 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.20 2004/02/10 00:28:34 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.21 2004/02/10 18:05:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1070,10 +1070,11 @@ (delete-file path)))) (values)) -(defun movitz-compile-file-internal (path &optional (*default-load-priority* - (and (boundp '*default-load-priority*) - *default-load-priority* - (1+ *default-load-priority*)))) +(defun movitz-compile-file-internal (path + &optional (*default-load-priority* + (and (boundp '*default-load-priority*) + (symbol-value '*default-load-priority*) + (1+ (symbol-value '*default-load-priority*))))) (declare (special *default-load-priority*)) (with-retries-until-true (retry "Restart Movitz compilation of ~S." path) (let* ((muerte.cl::*compile-file-pathname* path) @@ -1642,7 +1643,6 @@ unoptimized-code (append (nreverse new-code) old-code))))))) - (declare (ignorable load-funobj-constant-p isrc)) (let* ((unoptimized-code (frame-map-code (optimize-stack-frame-init unoptimized-code))) (code-modified-p nil) (stack-frame-used-map (loop with map = nil @@ -1767,10 +1767,10 @@ (not (assoc (load-stack-frame-p i3) (second i2)))) (let ((reg (cdr (assoc (load-stack-frame-p i3) (third i2))))) (explain nil "factor out load from loop: ~S" i3) + (assert (eq reg (twop-dst i3))) (setq p (if (eq reg (twop-dst i3)) (list i3 i i2) - (append (error "weewf") - (list i3 i i2) + (append (list i3 i i2) `((:movl ,reg ,(twop-dst i3))))) next-pc (cdddr pc)))) ;; ((:jmp x) ...(no labels).... x ..) @@ -3668,8 +3668,8 @@ (when (= 0 (function-argument-argnum binding)) `((:popl :ebx))) `((:popl :ecx))) - (progn (error "WEgewgew") - `((:store-lexical ,binding :edi :type null)))) + (progn (error "Unsupported situation.") + #+ignore `((:store-lexical ,binding :edi :type null)))) ,@(when (and (= 0 (function-argument-argnum binding)) (not last-optional-p)) `((:popl :ebx))) ; protect ebx

1 0

[movitz-cvs] CVS update: public_html/index.html
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv8732 Modified Files: index.html Log Message: html tinkering Date: Tue Feb 10 06:42:30 2004 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.12 public_html/index.html:1.13 --- public_html/index.html:1.12 Tue Feb 10 06:39:31 2004 +++ public_html/index.html Tue Feb 10 06:42:30 2004 @@ -71,9 +71,11 @@ The main build process is run by two operators. Create-image creates a symbolic Movitz lisp-world from scratch. This symbolic - representation is loaded into the variable <pre>*image*</pre>, which + representation is loaded into the variable <tt>*image*</tt>, which holds "the current image" for many Movitz operators. The function - dump-image transforms a symbolic image to a bootable image file. + dump-image transforms a symbolic image to a bootable image file. </p> + + <p> <div class="footer"> <a href="ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a>

1 0

[movitz-cvs] CVS update: public_html/index.html
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv30112 Modified Files: index.html Log Message: Updated/added some general info about Movitz building. Date: Tue Feb 10 06:39:31 2004 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.11 public_html/index.html:1.12 --- public_html/index.html:1.11 Wed Jan 14 11:48:01 2004 +++ public_html/index.html Tue Feb 10 06:39:31 2004 @@ -16,12 +16,12 @@ <h3>Introduction</h3> <p> The Movitz system aspires to be an implementation of ANSI Common -Lisp that targets the ubiquitous x86 PC architecture "on the -metal". That is, running without any operating system or other form of -software environment. Movitz is a development platform for operating -system kernels, embedded, and single-purpose applications. There can -potentially be several completely different operating systems built -using Movitz. </p> + Lisp that targets the ubiquitous x86 PC architecture "on the + metal". That is, running without any operating system or other form + of software environment. Movitz is a development platform for + operating system kernels, embedded, and single-purpose + applications. There can potentially be several completely different + operating systems built using Movitz. </p> <p> <a href="movitz.html">More information about Movitz concepts.</a> @@ -63,17 +63,21 @@ <li><tt>movitz</tt></li> </ul> - <p> The former two are required for building and using the latter. - Also, both ia-x86 and binary-types have been somewhat tested for - portability, whereas Movitz itself has only ever been used with - Allegro CL. I'm hoping that someone with experience with other lisp - implementations than Allegro can make movitz runnable under their - system, and submit patches to that effect to - movitz-devel(a)common-lisp.net. - + <p> The former two are required for building and using the + latter. So far, this combo has been run under Allegro, SBCL, and + CMUCL, but everything is supposed to be platform-independent ANSI + Common Lisp. CLisp apparently dumps core for some reason during the + build process. </p> + + The main build process is run by two operators. Create-image creates + a symbolic Movitz lisp-world from scratch. This symbolic + representation is loaded into the variable <pre>*image*</pre>, which + holds "the current image" for many Movitz operators. The function + dump-image transforms a symbolic image to a bootable image file. <div class="footer"> <a href="ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a> + Feb. 10, 2004. </div> </body>

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11612 Modified Files: los-closette-compiler.lisp Log Message: Avoid warning about undeclared variable *the-standard-method-combination*. Date: Mon Feb 9 20:03:41 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.9 movitz/losp/muerte/los-closette-compiler.lisp:1.10 --- movitz/losp/muerte/los-closette-compiler.lisp:1.9 Mon Feb 9 19:43:43 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 20:03:41 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.9 2004/02/10 00:43:43 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.10 2004/02/10 01:03:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1111,7 +1111,7 @@ (generic-function-lambda-list gf) lambda-list (generic-function-methods gf) () (generic-function-method-class gf) method-class - (generic-function-method-combination gf) *the-standard-method-combination*) + (generic-function-method-combination gf) (symbol-value '*the-standard-method-combination*)) (finalize-generic-function gf) gf))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3770 Modified Files: los-closette-compiler.lisp Log Message: Added place-holder defun finalize-inheritance. Date: Mon Feb 9 19:43:43 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.8 movitz/losp/muerte/los-closette-compiler.lisp:1.9 --- movitz/losp/muerte/los-closette-compiler.lisp:1.8 Mon Feb 9 19:42:37 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:43:43 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.8 2004/02/10 00:42:37 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.9 2004/02/10 00:43:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -732,6 +732,10 @@ #'compute-slots) class)) (values)) + + (defun finalize-inheritance (class) + (error "Don't know how to finalize-inheritance for class ~S of class ~S." + class (class-of class))) ;;; Class precedence lists

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv32704 Modified Files: los-closette-compiler.lisp Log Message: Added place-holder defun compute-slots. Date: Mon Feb 9 19:42:37 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.7 movitz/losp/muerte/los-closette-compiler.lisp:1.8 --- movitz/losp/muerte/los-closette-compiler.lisp:1.7 Mon Feb 9 19:41:42 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:42:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.7 2004/02/10 00:41:42 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.8 2004/02/10 00:42:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -847,6 +847,10 @@ (loop for i upfrom 0 as slot in effective-slots do (setf (slot-definition-location slot) i)) effective-slots)) + + (defun compute-slots (class) + (error "Don't know how to compute-slots for class ~S of class ~S." + class (class-of class))) (defun std-compute-effective-slot-definition (class name direct-slots) (declare (ignore name))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11795 Modified Files: los-closette-compiler.lisp Log Message: Added placeholder defun compute-effective-slot-definition. Date: Mon Feb 9 19:41:42 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.6 movitz/losp/muerte/los-closette-compiler.lisp:1.7 --- movitz/losp/muerte/los-closette-compiler.lisp:1.6 Mon Feb 9 19:39:51 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:41:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.6 2004/02/10 00:39:51 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.7 2004/02/10 00:41:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -865,6 +865,10 @@ direct-slots)) :allocation (slot-definition-allocation (car direct-slots))))) + (defun compute-effective-slot-definition (class name direct-slots) + (declare (ignore name direct-slots)) + (error "Don't know how to compute-effective-slot-definition for class ~S of class ~S." + class (class-of class))) ;;;;

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23043 Modified Files: los-closette-compiler.lisp Log Message: Added placeholder defun compute-class-precedence-list. Date: Mon Feb 9 19:39:52 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.5 movitz/losp/muerte/los-closette-compiler.lisp:1.6 --- movitz/losp/muerte/los-closette-compiler.lisp:1.5 Mon Feb 9 19:38:45 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:39:51 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.5 2004/02/10 00:38:45 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.6 2004/02/10 00:39:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -745,6 +745,10 @@ classes-to-order) :test #'equal) #'std-tie-breaker-rule))) + + (defun compute-class-precedence-list (class) + (error "Don't know how to compute class-precedence-list for ~S of class ~S." + class (class-of class))) ;;; topological-sort implements the standard algorithm for topologically ;;; sorting an arbitrary set of elements while honoring the precedence

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24768 Modified Files: los-closette-compiler.lisp Log Message: Added some ignore declarations to get rid of some warnings. Date: Mon Feb 9 19:38:45 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.4 movitz/losp/muerte/los-closette-compiler.lisp:1.5 --- movitz/losp/muerte/los-closette-compiler.lisp:1.4 Wed Feb 4 10:29:25 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:38:45 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.4 2004/02/04 15:29:25 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.5 2004/02/10 00:38:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -589,7 +589,7 @@ ;;; (defun movitz-make-instance-funcallable (metaclass &rest all-keys &key name direct-superclasses direct-slots &allow-other-keys) - ;; (declare (ignore metaclass)) + (declare (ignore all-keys)) (let ((class (std-allocate-instance metaclass))) #+ignore (dolist (slot (class-slots (movitz-class-of class))) @@ -650,7 +650,7 @@ &key name slots direct-slots ((:metaclass dummy)) (direct-superclasses (list (movitz-find-class 'structure-object)))) - (declare (ignore dummy)) + (declare (ignore dummy all-keys)) (assert (null direct-slots)) (let ((class (std-allocate-instance (if (symbolp metaclass) (movitz-find-class metaclass)

1 0

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

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv30608 Modified Files: image.lisp Log Message: Really don't use +code-vector-entry-factor+. Date: Mon Feb 9 19:32:09 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.11 movitz/image.lisp:1.12 --- movitz/image.lisp:1.11 Mon Feb 9 19:29:10 2004 +++ movitz/image.lisp Mon Feb 9 19:32:08 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.11 2004/02/10 00:29:10 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.12 2004/02/10 00:32:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1187,7 +1187,7 @@ (when x (list pc (list (format nil " ~S" (car x))) "" nil))) collect it when (some (lambda (x) - (and (plusp pc) (= pc (* x +code-vector-entry-factor+)))) + (and (plusp pc) (= pc x))) entry-points) collect (list pc nil (format nil " => Entry-point for ~D arguments <="

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
17
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 February 2004