movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/stream-image.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20865 Modified Files: stream-image.lisp Log Message: Removed references to the old movitz-vector class. Date: Thu Jul 8 11:53:38 2004 Author: ffjeld Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.7 movitz/stream-image.lisp:1.8 --- movitz/stream-image.lisp:1.7 Tue Jun 29 16:15:52 2004 +++ movitz/stream-image.lisp Thu Jul 8 11:53:38 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.7 2004/06/29 23:15:52 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.8 2004/07/08 18:53:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -89,8 +89,6 @@ (read-binary 'movitz-funobj (image-stream image))) (:basic-vector (read-binary 'movitz-basic-vector (image-stream image))) - (:vector - (read-binary 'movitz-vector (image-stream image))) (:defstruct (read-binary 'movitz-struct (image-stream image))) (:std-instance

1 0

[movitz-cvs] CVS update: movitz/procfs-image.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv18229 Modified Files: procfs-image.lisp Log Message: Removed references to the old movitz-vector class. Date: Thu Jul 8 11:53:34 2004 Author: ffjeld Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.8 movitz/procfs-image.lisp:1.9 --- movitz/procfs-image.lisp:1.8 Tue Jun 29 16:15:47 2004 +++ movitz/procfs-image.lisp Thu Jul 8 11:53:33 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Aug 24 11:39:37 2001 ;;;; -;;;; $Id: procfs-image.lisp,v 1.8 2004/06/29 23:15:47 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.9 2004/07/08 18:53:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -118,7 +118,7 @@ (movitz-vector-symbolic-data expr))) (movitz-fixnum (movitz-fixnum-value expr)) - ((or movitz-vector movitz-basic-vector) + (movitz-basic-vector (map 'vector #'movitz-print (movitz-vector-symbolic-data expr))) (movitz-cons (cons (movitz-print (movitz-car expr))

1 0

[movitz-cvs] CVS update: movitz/packages.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv17671 Modified Files: packages.lisp Log Message: Removed references to the old movitz-vector class. Date: Thu Jul 8 11:53:29 2004 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.28 movitz/packages.lisp:1.29 --- movitz/packages.lisp:1.28 Thu Jul 8 04:28:34 2004 +++ movitz/packages.lisp Thu Jul 8 11:53:29 2004 @@ -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.28 2004/07/08 11:28:34 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.29 2004/07/08 18:53:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1329,7 +1329,6 @@ #:movitz-heap-object #:movitz-basic-vector - #:movitz-vector #:movitz-vector-num-elements #:movitz-vector-element-type #:movitz-vector-symbolic-data

1 0

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

08 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv16232 Modified Files: image.lisp Log Message: Removed references to the old movitz-vector class. Date: Thu Jul 8 11:53:24 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.41 movitz/image.lisp:1.42 --- movitz/image.lisp:1.41 Wed Jul 7 10:37:01 2004 +++ movitz/image.lisp Thu Jul 8 11:53:24 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.41 2004/07/07 17:37:01 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.42 2004/07/08 18:53:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -613,7 +613,7 @@ '(muerte.cl:null muerte.cl:cons muerte.cl:fixnum muerte.cl:symbol muerte.cl:character muerte.cl:function muerte.cl:condition muerte.cl:integer muerte.cl:ratio - muerte.cl:vector muerte.cl:string muerte.cl:array + muerte.cl:vector muerte.cl:string muerte.cl:bit-vector muerte.cl:array muerte.cl:class muerte.cl:standard-class muerte.cl:standard-generic-function muerte:run-time-context

1 0

[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv17931 Modified Files: los0-gc.lisp Log Message: Changed default newspace size to 1MB. Date: Thu Jul 8 11:49:26 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.19 movitz/losp/los0-gc.lisp:1.20 --- movitz/losp/los0-gc.lisp:1.19 Wed Jul 7 16:39:50 2004 +++ movitz/losp/los0-gc.lisp Thu Jul 8 11:49:26 2004 @@ -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.19 2004/07/07 23:39:50 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.20 2004/07/08 18:49:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -247,7 +247,7 @@ (:leal (:edx :ecx 8) :eax)))) (do-it))) -(defun install-los0-consing (&optional (space-kilobytes 2048)) +(defun install-los0-consing (&optional (space-kilobytes 1024)) (let ((size (* space-kilobytes #x100))) (setf (%run-time-context-slot 'nursery-space) (allocate-duo-space size))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv27175 Modified Files: primitive-functions.lisp Log Message: Implemented bit-vectors. Date: Thu Jul 8 08:28:57 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.25 movitz/losp/muerte/primitive-functions.lisp:1.26 --- movitz/losp/muerte/primitive-functions.lisp:1.25 Thu Jul 8 04:30:26 2004 +++ movitz/losp/muerte/primitive-functions.lisp Thu Jul 8 08:28:57 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.25 2004/07/08 11:30:26 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.26 2004/07/08 15:28:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -658,6 +658,8 @@ (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) (string (find-class 'string)) + (bit-vector + (find-class 'bit-vector)) (vector (find-class 'vector)) (function

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26827 Modified Files: arrays.lisp Log Message: Implemented bit-vectors. Date: Thu Jul 8 08:28:52 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.31 movitz/losp/muerte/arrays.lisp:1.32 --- movitz/losp/muerte/arrays.lisp:1.31 Thu Jul 8 04:30:14 2004 +++ movitz/losp/muerte/arrays.lisp Thu Jul 8 08:28:52 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.31 2004/07/08 11:30:14 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.32 2004/07/08 15:28:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -205,7 +205,13 @@ ((do-it () `(with-inline-assembly (:returns :eax) (:declare-label-set basic-vector-dispatcher - (any-t character u8 unknown u32 unknown code unknown)) + ,(print (loop with x = (make-list 8 :initial-element 'unknown) + for et in '(:any-t :character :u8 :u32 :code :bit) + do (setf (elt x (bt:enum-value + 'movitz::movitz-vector-element-type + et)) + et) + finally (return x)))) (:compile-two-forms (:eax :ebx) array index) (:movl (:eax ,movitz:+other-type-offset+) :ecx) (:cmpb ,(movitz:tag :basic-vector) :cl) @@ -231,19 +237,19 @@ ,(bt:slot-offset 'movitz:movitz-funobj 'movitz::constant0))) (() () '(:sub-program (unknown) (:int 100))) - u32 + :u32 (:movl (:eax :ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ecx) (:call-global-constant box-u32-ecx) (:jmp 'return) - u8 code + :u8 :code (:movl :ebx :ecx) (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) (:movzxb (:eax :ecx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ecx) (:leal ((:ecx ,movitz:+movitz-fixnum-factor+)) :eax) (:jmp 'return) - character + :character (:movl :ebx :ecx) (:movl :eax :ebx) (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) @@ -251,7 +257,16 @@ (:movb (:ebx :ecx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :ah) (:jmp 'return) - any-t + :bit + (:movl :ebx :ecx) + (:movl :eax :ebx) + (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) + (:xorl :eax :eax) + (:btl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jnc 'return) + (:addl ,movitz:+movitz-fixnum-factor+ :eax) + (:jmp 'return) + :any-t (:movl (:eax :ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data)) :eax) return))) @@ -274,13 +289,18 @@ (:testb 7 :cl) (:jnz '(:sub-program (not-a-vector) (:compile-form (:result-mode :ignore) - (error "Not a vector: ~S" vector)))) + (error "Not a vector: ~S." vector)))) (:movl (:ebx ,movitz:+other-type-offset+) :ecx) (:andl #xffff :ecx) (:testb ,movitz:+movitz-fixnum-zmask+ :dl) (:jnz '(:sub-program (not-an-index) (:compile-form (:result-mode :ignore) - (error "Not a vector index: ~S" index)))) + (error "Not a vector index: ~S." index)))) + (:cmpl (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements)) + :edx) + (:jnc '(:sub-program (illegal-index) + (:compile-form (:result-mode :ignore) + (error "Index ~S out of range." index)))) ;; t? (:cmpl ,(movitz:basic-vector-type-tag :any-t) :ecx) (:jne 'not-any-t-vector) @@ -317,6 +337,7 @@ (:jmp 'return) not-u8-vector + ;; u32? (:cmpl ,(movitz:basic-vector-type-tag :u32) :ecx) (:jne 'not-u32-vector) (:call-global-constant unbox-u32) @@ -325,6 +346,26 @@ (:jmp 'return) not-u32-vector + ;; bit? + (:cmpl ,(movitz:basic-vector-type-tag :bit) :ecx) + (:jne 'not-u8-vector) + (:testl ,(logxor #xffffffff (* #x1 movitz:+movitz-fixnum-factor+)) + :eax) + (:jne '(:sub-program (not-a-bit) + (:compile-form (:result-mode :ignore) + (error "Not a bit: ~S" value)))) + (:movl :edx :ecx) + (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) + + (:testl :eax :eax) + (:jnz 'set-one-bit) + (:btrl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jmp 'return) + set-one-bit + (:btsl :ecx (:ebx ,(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::data))) + (:jmp 'return) + + not-bit-vector (:compile-form (:result-mode :ignore) (error "Not a vector: ~S" vector)) return) @@ -554,11 +595,11 @@ (replace array initial-contents))) array)) -(defun make-basic-vector%u8 (dimensions fill-pointer initial-element initial-contents) - (let ((array (malloc-data-words (truncate (+ dimensions 3) 4)))) +(defun make-basic-vector%u8 (length fill-pointer initial-element initial-contents) + (let ((array (malloc-data-words (truncate (+ length 3) 4)))) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) 0 :lisp) - dimensions) + length) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::type) 0 :unsigned-byte32) #.(movitz:basic-vector-type-tag :u8)) @@ -566,16 +607,38 @@ (fill-pointer (setf (fill-pointer array) fill-pointer)) ((array-has-fill-pointer-p array) - (setf (fill-pointer array) dimensions))) + (setf (fill-pointer array) length))) (cond (initial-element (check-type initial-element (unsigned-byte 8)) - (dotimes (i dimensions) + (dotimes (i length) (setf (u8ref%unsafe array i) initial-element))) (initial-contents (replace array initial-contents))) array)) +(defun make-basic-vector%bit (length fill-pointer initial-element initial-contents) + (let ((array (malloc-data-words (truncate (+ length 31) 32)))) + (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) + 0 :lisp) + length) + (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::type) + 0 :unsigned-byte32) + #.(movitz:basic-vector-type-tag :bit)) + (cond + (fill-pointer + (setf (fill-pointer array) fill-pointer)) + ((array-has-fill-pointer-p array) + (setf (fill-pointer array) length))) + (cond + (initial-element + (check-type initial-element (unsigned-byte 8)) + (dotimes (i length) + (setf (aref array i) initial-element))) + (initial-contents + (replace array initial-contents))) + array)) + (defun make-basic-vector%code (dimensions fill-pointer initial-element initial-contents) (let ((array (malloc-data-words (truncate (+ dimensions 3) 4)))) (setf (memref array #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::num-elements) @@ -631,6 +694,8 @@ ;; These should be replaced by subtypep sometime. ((eq element-type 'character) (make-basic-vector%character dimensions fill-pointer initial-element initial-contents)) + ((member element-type '(bit (unsigned-byte 1)) :test #'equal) + (make-basic-vector%bit dimensions fill-pointer initial-element initial-contents)) ((member element-type '(u8 (unsigned-byte 8)) :test #'equal) (make-basic-vector%u8 dimensions fill-pointer initial-element initial-contents)) ((member element-type '(u32 (unsigned-byte 32)) :test #'equal)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24694 Modified Files: typep.lisp Log Message: Added bit-vector for typep, and some type-predicate-functions. Date: Thu Jul 8 08:28:12 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.22 movitz/losp/muerte/typep.lisp:1.23 --- movitz/losp/muerte/typep.lisp:1.22 Thu Jul 8 04:30:41 2004 +++ movitz/losp/muerte/typep.lisp Thu Jul 8 08:28:12 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.22 2004/07/08 11:30:41 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.23 2004/07/08 15:28:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -242,6 +242,8 @@ (make-basic-vector-typep :any-t)) ((string simple-string) (make-basic-vector-typep :character)) + ((bit-vector simple-bit-vector) + (make-basic-vector-typep :bit)) (vector-u8 (make-basic-vector-typep :u8)) (vector-u16 @@ -268,6 +270,10 @@ (cond ((movitz:movitz-subtypep et '(unsigned-byte 8)) (make-basic-vector-typep :u8)) + ((movitz:movitz-subtypep et '(unsigned-byte 32)) + (make-basic-vector-typep :u32)) + ((movitz:movitz-subtypep et 'character) + (make-basic-vector-typep :character)) (t (make-basic-vector-typep :any-t))))) ((integer) (destructuring-bind (&optional (lower-limit '*) (upper-limit '*)) @@ -482,6 +488,15 @@ (define-simple-typep (vector vectorp) (obj) (typep obj 'vector)) +(define-simple-typep (simple-vector simple-vector-p) (obj) + (typep obj 'simple-vector)) + +(define-simple-typep (simple-string simple-string-p) (obj) + (typep obj 'simple-string)) + +(define-simple-typep (simple-bit-vector simple-bit-vector-p) (obj) + (typep obj 'simple-bit-vector)) + (define-simple-typep (pointer pointerp) (obj) (typep obj 'pointer)) @@ -489,7 +504,6 @@ (and (typep x 'cons) (or (eq '* car) (typep (car x) car)) (or (eq '* cdr) (typep (cdr x) cdr)))) - (define-simple-typep (atom atom) (x) (typep x 'atom))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25032 Modified Files: print.lisp Log Message: Add printing of bit-vectors. Date: Thu Jul 8 08:23:53 2004 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.10 movitz/losp/muerte/print.lisp:1.11 --- movitz/losp/muerte/print.lisp:1.10 Wed Jun 2 16:50:34 2004 +++ movitz/losp/muerte/print.lisp Thu Jul 8 08:23:53 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.10 2004/06/02 23:50:34 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.11 2004/07/08 15:23:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -263,6 +263,10 @@ (write-string "#:" stream)) (write-symbol-name object stream)) (t (error "Huh?"))))) + (bit-vector + (write-string "#*") + (dotimes (i (length object)) + (write (aref object i) :radix nil))) (vector (let ((level *print-level*) (length *print-length*))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 08 Jul '04

08 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv23008 Modified Files: inspect.lisp Log Message: Minor edit. Date: Thu Jul 8 08:23:15 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.13 movitz/losp/muerte/inspect.lisp:1.14 --- movitz/losp/muerte/inspect.lisp:1.13 Wed Jul 7 10:37:20 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jul 8 08:23:15 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.13 2004/07/07 17:37:20 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.14 2004/07/08 15:23:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -245,7 +245,7 @@ (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-funobj) (funobj-num-constants object)))) - ((or vector-u8 string code-vector) + ((or string code-vector (simple-array (unsigned-byte 8))) (<= object-location location (+ -1 object-location

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