movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

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

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19008 Modified Files: eval.lisp Log Message: Have eval-let properly parse declarations. So now evaluating let will properly interpret e.g. (let ((#0=#:foo 2)) (declare (special #0#)) (symbol-value '#0#)) => 2 Date: Sun Mar 28 08:23:57 2004 Author: ffjeld Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.2 movitz/losp/muerte/eval.lisp:1.3 --- movitz/losp/muerte/eval.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/eval.lisp Sun Mar 28 08:23:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.3 2004/03/28 13:23:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -276,7 +276,7 @@ special-values (local-env env)) (multiple-value-bind (body declarations) - declarations-and-body + (parse-declarations-and-body declarations-and-body) (dolist (var-spec var-specs) (multiple-value-bind (var init-form) (if (atom var-spec)

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-serv22316 Modified Files: inspect.lisp Log Message: Initialize properly with nil the fresh objects from malloc-clumps. Date: Fri Mar 26 09:05:20 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.3 movitz/losp/muerte/inspect.lisp:1.4 --- movitz/losp/muerte/inspect.lisp:1.3 Thu Mar 25 20:49:11 2004 +++ movitz/losp/muerte/inspect.lisp Fri Mar 26 09:05:20 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.3 2004/03/26 01:49:11 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.4 2004/03/26 14:05:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -179,6 +179,6 @@ (: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)) + (setf (memref x -6 (* i 2) :lisp) nil + (memref x -2 (* i 2) :lisp) nil)) x))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/memref.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-serv12460 Modified Files: memref.lisp Log Message: Added a rather stupid version of (setf memref) for :unsigned-byte32 Date: Fri Mar 26 08:58:28 2004 Author: ffjeld Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.2 movitz/losp/muerte/memref.lisp:1.3 --- movitz/losp/muerte/memref.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/memref.lisp Fri Mar 26 08:58:27 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.3 2004/03/26 13:58:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -250,7 +250,11 @@ (:unsigned-byte8 (setf (memref object offset index :unsigned-byte8) value)) (:unsigned-byte16 - (setf (memref object offset index :unsigned-byte8) value)) + (setf (memref object offset index :unsigned-byte16) value)) + (:unsigned-byte32 + (setf (memref object offset (* index 2) :unsigned-byte16) (ldb (byte 16 0) value) + (memref object offset (+ 1 (* index 2)) :unsigned-byte16) (ldb (byte 14 16) value)) + value) (:lisp (setf (memref object offset index :lisp) value))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/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-serv10209 Modified Files: functions.lisp Log Message: In copy-funobj, calculate the size of the new object correctly. Date: Fri Mar 26 08:58:01 2004 Author: ffjeld Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.5 movitz/losp/muerte/functions.lisp:1.6 --- movitz/losp/muerte/functions.lisp:1.5 Wed Mar 24 15:40:40 2004 +++ movitz/losp/muerte/functions.lisp Fri Mar 26 08:58:01 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.5 2004/03/24 20:40:40 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.6 2004/03/26 13:58:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -373,13 +373,12 @@ (defun copy-funobj (old-funobj &optional (name (funobj-name old-funobj))) (let* ((num-constants (funobj-num-constants old-funobj)) - (funobj (malloc-words (+ #.(cl:truncate (bt:sizeof 'movitz:movitz-funobj) 4) + (funobj (malloc-words (+ -2 #.(cl:truncate (bt:sizeof 'movitz:movitz-funobj) 4) num-constants)))) (setf (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:type) 0 :unsigned-byte16) (memref old-funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz:type) 0 :unsigned-byte16)) (setf (funobj-num-constants funobj) num-constants) (replace-funobj funobj old-funobj name))) - (defun install-funobj-name (name funobj) (setf (funobj-name funobj) name)

1 0

[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

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