movitz-cvs July 2004

movitz-cvs@common-lisp.net

2 participants
376 discussions

[movitz-cvs] CVS update: movitz/compiler-types.lisp
by Frode Vatvedt Fjeld 09 Jul '04

09 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12846 Modified Files: compiler-types.lisp Log Message: Fixed bug in numscope-add-range. Date: Fri Jul 9 05:48:02 2004 Author: ffjeld Index: movitz/compiler-types.lisp diff -u movitz/compiler-types.lisp:1.16 movitz/compiler-types.lisp:1.17 --- movitz/compiler-types.lisp:1.16 Thu Jul 8 04:27:19 2004 +++ movitz/compiler-types.lisp Fri Jul 9 05:48:01 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.16 2004/07/08 11:27:19 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.17 2004/07/09 12:48:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -118,15 +118,17 @@ (push sub-range new-numscope) (setf new-min (and new-min (min new-min (car sub-range))) new-max nil))) - ((cond + ((cond ; is <new-min, new-max> overlapping sub-range? ((and (not new-min) (not new-max)) t) ((not new-min) (<= (car sub-range) (+ epsilon new-max))) ((not new-max) (<= new-min (+ epsilon (cdr sub-range)))) ((<= (- new-min epsilon) (car sub-range) (+ new-max epsilon)) t) - ((<= (- new-min epsilon) (cdr sub-range) (+ new-max epsilon)) t)) + ((<= (- new-min epsilon) (cdr sub-range) (+ new-max epsilon)) t) + ((<= (car sub-range) new-min (cdr sub-range)))) (setf new-min (and new-min (min new-min (car sub-range))) new-max (and new-max (max new-max (cdr sub-range))))) - (t (push sub-range new-numscope)))) + (t ;; (warn "Unaffected sub-range: ~A for ~D-~D" sub-range new-min new-max) + (push sub-range new-numscope)))) (sort (cons (cons new-min new-max) new-numscope) (lambda (x y) (and x y (< x y)))

1 0

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

09 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv14514 Modified Files: image.lisp Log Message: Removed dead code. Date: Fri Jul 9 04:16:24 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.42 movitz/image.lisp:1.43 --- movitz/image.lisp:1.42 Thu Jul 8 11:53:24 2004 +++ movitz/image.lisp Fri Jul 9 04:16: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.42 2004/07/08 18:53:24 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.43 2004/07/09 11:16:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -330,38 +330,6 @@ (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) 'word)) :map-binary-read-delayed 'movitz-word) -;;; (the-class-fixnum -;;; :binary-type word -;;; :initform 'fixnum -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-cons -;;; :binary-type word -;;; :initform 'cons -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-null -;;; :binary-type word -;;; :initform 'null -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) -;;; (the-class-symbol -;;; :binary-type word -;;; :initform 'symbol -;;; :map-binary-write (lambda (x type) -;;; (declare (ignore type)) -;;; (movitz-read-and-intern (funcall 'muerte::movitz-find-class x) -;;; 'word)) -;;; :map-binary-read-delayed 'movitz-word) (interrupt-handlers :binary-type word :map-binary-write 'movitz-intern

1 0

[movitz-cvs] CVS update: movitz/losp/los0.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-serv24544 Modified Files: los0.lisp Log Message: Added top-level command :z that prints word values. Date: Thu Jul 8 14:52:29 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.15 movitz/losp/los0.lisp:1.16 --- movitz/losp/los0.lisp:1.15 Thu Jul 8 11:59:55 2004 +++ movitz/losp/los0.lisp Thu Jul 8 14:52:29 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.15 2004/07/08 18:59:55 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.16 2004/07/08 21:52:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -790,6 +790,15 @@ (format t "~&~Z = ~W" x x)) (t (fresh-line) (write x :radix nil :base (case *print-base* (10 16) (t 10))))) + x)) + (if x-list + (do-print (eval x-list)) + (dolist (x cl:/ (values-list cl:/)) + (do-print x))))) + +(define-toplevel-command :z (&optional x-list) + (flet ((do-print (x) + (format t "~&~Z => ~S" x x) x)) (if x-list (do-print (eval x-list))

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-serv18440 Modified Files: arrays.lisp Log Message: Removed dead code. Date: Thu Jul 8 14:51:48 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.33 movitz/losp/muerte/arrays.lisp:1.34 --- movitz/losp/muerte/arrays.lisp:1.33 Thu Jul 8 11:53:42 2004 +++ movitz/losp/muerte/arrays.lisp Thu Jul 8 14:51:48 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.33 2004/07/08 18:53:42 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.34 2004/07/08 21:51:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -214,10 +214,6 @@ finally (return x))) (:compile-two-forms (:eax :ebx) array index) (:movl (:eax ,movitz:+other-type-offset+) :ecx) -;;; (:cmpb ,(movitz:tag :basic-vector) :cl) -;;; (:jne '(:sub-program (not-vector) -;;; (:compile-form (:result-mode :ignore) -;;; (error "Not an array: ~S." array)))) (:testb ,movitz:+movitz-fixnum-zmask+ :bl) (:jnz '(:sub-program (illegal-index) (:compile-form (:result-mode :ignore)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/integers.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-serv15680 Modified Files: integers.lisp Log Message: Corrected logxor for bignums. Date: Thu Jul 8 14:51:08 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.39 movitz/losp/muerte/integers.lisp:1.40 --- movitz/losp/muerte/integers.lisp:1.39 Thu Jul 8 04:30:20 2004 +++ movitz/losp/muerte/integers.lisp Thu Jul 8 14:51:08 2004 @@ -1,15 +1,15 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2004, +;;;; Copyright (C) 2000-2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: integers.lisp -;;;; Description: +;;;; Description: Arithmetics. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.39 2004/07/08 11:30:20 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.40 2004/07/08 21:51:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1552,12 +1552,14 @@ (with-inline-assembly (:returns :eax) (:compile-two-forms (:eax :ebx) x y) (:xorl :ebx :eax))) + (((eql 0) t) y) + ((t (eql 0)) x) ((positive-fixnum positive-bignum) (macrolet ((do-it () `(let ((r (copy-bignum y))) (with-inline-assembly (:returns :eax) - (:compile-two-forms (:eax :ecx) y x) + (:compile-two-forms (:eax :ecx) r x) (:shrl ,movitz:+movitz-fixnum-shift+ :ecx) (:xorl (:eax ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)) :ecx))))) (do-it))) @@ -1572,34 +1574,29 @@ (do-it))) ((positive-bignum positive-bignum) (if (< (%bignum-bigits x) (%bignum-bigits y)) - (logior y x) + (logxor y x) (let ((r (copy-bignum x))) (macrolet ((do-it () - `(with-inline-assembly (:returns :eax) - (:compile-two-forms (:eax :ebx) r y) - (:movzxw (:ebx ,(bt:slot-offset 'movitz::movitz-bignum 'movitz::length)) - :ecx) - (:leal ((:ecx ,movitz:+movitz-fixnum-factor+) - ,(* -1 movitz:+movitz-fixnum-factor+)) - :edx) ; EDX is loop counter - or-loop - (:movl (:ebx :edx ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)) - :ecx) - (:orl :ecx - (:eax :edx ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0))) - (:subl 4 :edx) - (:jnc 'or-loop)))) - (do-it)))))) - (number-double-dispatch (x y) - (((eql 0) t) y) - ((t (eql 0)) x) - ((fixnum fixnum) - (with-inline-assembly (:returns :eax) - (:compile-form (:result-mode :eax) x) - (:compile-form (:result-mode :ecx) y) - ;; (:orl #.movitz:+movitz-fixnum-zmask+ :ecx) - (:xorl :ecx :eax))))) + `(%bignum-canonicalize + (with-inline-assembly (:returns :eax) + (:compile-two-forms (:eax :ebx) r y) + (:movzxw (:ebx ,(bt:slot-offset 'movitz::movitz-bignum 'movitz::length)) + :ecx) + (:leal ((:ecx ,movitz:+movitz-fixnum-factor+) + ,(* -1 movitz:+movitz-fixnum-factor+)) + :edx) ; EDX is loop counter + xor-loop + (:movl (:ebx :edx ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)) + :ecx) + (:xorl :ecx + (:eax :edx ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0))) + (:subl 4 :edx) + (:jnc 'xor-loop) + + (:movzxw (:ebx ,(bt:slot-offset 'movitz::movitz-bignum 'movitz::length)) + :ecx))))) + (do-it))))))) (t (&rest integers) (declare (dynamic-extent integers)) (if (null integers)

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-serv11392 Modified Files: typep.lisp Log Message: Slightly more correct dealing with simple-array type. Date: Thu Jul 8 14:50:03 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.24 movitz/losp/muerte/typep.lisp:1.25 --- movitz/losp/muerte/typep.lisp:1.24 Thu Jul 8 11:54:01 2004 +++ movitz/losp/muerte/typep.lisp Thu Jul 8 14:50:03 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.24 2004/07/08 18:54:01 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.25 2004/07/08 21:50:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -260,15 +260,20 @@ `(typep ,object ',(apply deriver-function (cdr type))) (case (car type) ((simple-array) - (let ((et (cadr type))) - (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))))) + (let ((et (second type)) + (dim (if (listp (third type)) + (length (third type)) + (or (third type) '*)))) + (if (not (eql dim 1)) + form + (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 '*)) (cdr type)

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-serv1632 Modified Files: inspect.lisp Log Message: Added %bignum-canonicalize. Date: Thu Jul 8 14:48:58 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.15 movitz/losp/muerte/inspect.lisp:1.16 --- movitz/losp/muerte/inspect.lisp:1.15 Thu Jul 8 11:53:47 2004 +++ movitz/losp/muerte/inspect.lisp Thu Jul 8 14:48:58 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.15 2004/07/08 18:53:47 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.16 2004/07/08 21:48:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -245,7 +245,7 @@ (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-funobj) (funobj-num-constants object)))) - ((or string code-vector (simple-array (unsigned-byte 8))) + ((or string code-vector (simple-array (unsigned-byte 8) 1)) (<= object-location location (+ -1 object-location @@ -272,6 +272,37 @@ (defun %bignum-bigits (x) (%bignum-bigits x)) + +(defun %bignum-canonicalize (x) + "Assuming x is a bignum, return the canonical integer value. That is, +either return a fixnum, or destructively modify the bignum's length so +that the msb isn't zero. DO NOT APPLY TO NON-BIGNUM VALUES!" + (macrolet + ((do-it () + `(with-inline-assembly (:returns :eax) + (:load-lexical (:lexical-binding x) :eax) + (:movl (:eax ,movitz:+other-type-offset+) :ecx) + (:shrl 16 :ecx) + shrink-loop + (:cmpl 1 :ecx) + (:je 'shrink-no-more) + (:cmpl 0 (:eax (:ecx 4) ,(+ -4 (bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)))) + (:jnz 'shrink-done) + (:subl 1 :ecx) + (:jmp 'shrink-loop) + shrink-no-more + (:cmpl ,(1+ movitz:+movitz-most-positive-fixnum+) + (:eax ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0))) + (:jc '(:sub-program (fixnum-result) + (:movl (:eax ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::bigit0)) + :ecx) + (:leal ((:ecx ,movitz:+movitz-fixnum-factor+)) :eax) + (:jmp 'done))) + shrink-done + (:movw :cx (:eax ,(bt:slot-offset 'movitz:movitz-bignum 'movitz::length))) + done + ))) + (do-it))) (defun copy-bignum (old) (check-type old bignum)

1 0

[movitz-cvs] CVS update: movitz/losp/los0.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-serv15907 Modified Files: los0.lisp Log Message: Minor edits. Date: Thu Jul 8 11:59:56 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.14 movitz/losp/los0.lisp:1.15 --- movitz/losp/los0.lisp:1.14 Mon May 24 07:58:39 2004 +++ movitz/losp/los0.lisp Thu Jul 8 11:59:55 2004 @@ -1,15 +1,15 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001,2000, 2002-2004, +;;;; Copyright (C) 2000-2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: los0.lisp -;;;; Description: Top-level initialization file. +;;;; Description: Top-level initialization and testing. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.14 2004/05/24 14:58:39 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.15 2004/07/08 18:59:55 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -80,6 +80,13 @@ ;;; (declare (dynamic-extent args)) ;;; (apply (constantly 'test-value) args)) +(defun test-break () + (with-inline-assembly (:returns :multiple-values) + (:movl 10 :ecx) + (:movl :esi :eax) ; This function should return itself! + (:clc) + (:break))) + (defun test-upload (x) ;; (warn "Test-upload blab la bla!!") (setf x (cdr x)) @@ -266,14 +273,68 @@ (defun test-bignum () 123456789123456) -(defun ff32 () - #xffffffff) +(defun fe32 () + #xfffffffe) + +(defun fe64 () + #xfffffffffffffffe) + +(defun fe96 () + #xfffffffffffffffffffffffe) (defun one32 () #x100000000) -(defun test-nbignum () - -123456789123456) +(defun z (op x y) + (let ((foo (cons 1 2)) + (result (funcall op x y)) + (bar (cons 3 4))) + (if (not (typep result 'pointer)) + (warn "foo: ~Z result: ~Z, bar: ~Z, diff foo-bar: ~D." + foo result bar + (- (object-location bar) (object-location foo))) + (warn "foo: ~Z result: ~Z, bar: ~Z, diff: ~D, ~D." + foo result bar + (- (object-location result) (object-location foo)) + (- (object-location bar) (object-location result)))) + (values foo result bar))) + +(defun foo (number &rest more-numbers) + (declare (dynamic-extent more-numbers)) + (do ((p more-numbers (cdr p))) + ((not (cdr p)) number) + (unless (< (car p) (cadr p)) + (return nil)))) + +(defun modx (x) + (lambda () + (print x))) + +(defun mod30 (x) + (ldb (Byte 30 0) x)) + +(defun mod32-4 (x) + (ldb (byte 28 4) x)) + +(defun mod24-4 (x) + (ldb (Byte 24 4) x)) + +(defun zz (op x y) + (let ((foo (vector 1 2)) + (result (funcall op x y)) + (bar (vector 3 4))) + (if (not (typep result 'pointer)) + (warn "foo: ~Z result: ~Z, bar: ~Z, diff foo-bar: ~D." + foo result bar + (- (object-location bar) (object-location foo))) + (warn "foo: ~Z result: ~Z, bar: ~Z, diff: ~D, ~D." + foo result bar + (- (object-location result) (object-location foo)) + (- (object-location bar) (object-location result)))) + (values foo result bar))) + +(defun testb () + #(1 2 3 4)) (defun gt5 (x) (<= x 5)) @@ -632,9 +693,6 @@ (defun test-nano-sleep (x) (time (nano-sleep x))) -(defun test () - (time 123)) - (defun mvtest () (multiple-value-call #'list (round 5 2)) (list (memref-int #x1000000 0 0 :unsigned-byte8) @@ -730,7 +788,8 @@ (format t " ~~ ~,3F" x))) (pointer (format t "~&~Z = ~W" x x)) - (t (write x :radix nil :base (case *print-base* (10 16) (t 10))))) + (t (fresh-line) + (write x :radix nil :base (case *print-base* (10 16) (t 10))))) x)) (if x-list (do-print (eval x-list)) @@ -782,7 +841,8 @@ (write (cdr condition)))) (t (format t "~&Error: ~A" condition))) (if *debugger-printing-restarts* - (format t "~&[restarts suppressed]") + (progn (format t "~&[restarts suppressed]") + (halt-cpu)) (let ((*debugger-printing-restarts* t)) (map-active-restarts (lambda (restart index) (format t "~&~2D: ~A~%" index restart)) @@ -881,10 +941,11 @@ (idt-init) (install-los0-consing) + (setf *debugger-function* #'los0-debugger) (let ((*repl-readline-context* (make-readline-context :history-size 16)) (*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame))) #+ignore (*error-no-condition-for-debugger* t) - (*debugger-function* #'los0-debugger) + #+ignore (*debugger-function* #'los0-debugger) (*package* nil)) (with-simple-restart (abort "Skip Los0 boot-up initialization.") (setf *cpu-features*

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-serv14379 Modified Files: los0-gc.lisp Log Message: Minor edits. Date: Thu Jul 8 11:59:51 2004 Author: ffjeld Index: movitz/losp/los0-gc.lisp diff -u movitz/losp/los0-gc.lisp:1.20 movitz/losp/los0-gc.lisp:1.21 --- movitz/losp/los0-gc.lisp:1.20 Thu Jul 8 11:49:26 2004 +++ movitz/losp/los0-gc.lisp Thu Jul 8 11:59:51 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.20 2004/07/08 18:49:26 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.21 2004/07/08 18:59:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -35,10 +35,6 @@ (defmacro space-fresh-pointer (space) `(memref ,space -6 2 :lisp)) -;;;(defmacro space-last-cons (space) -;;; "The location of the last cons-cell that will with in this space." -;;; `(memref ,space -6 3 :lisp)) - (defmacro space-other (space) `(memref ,space -6 3 :lisp)) @@ -49,12 +45,8 @@ space)) (defun initialize-space (space) - (setf (space-fresh-pointer space) 2 -;;; (space-last-cons space) (+ (object-location space) -;;; (array-dimension space 0))) - ) + (setf (space-fresh-pointer space) 2) space) - (defun allocate-duo-space (size) (let* ((space1 (allocate-space size))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/variables.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-serv1664 Modified Files: variables.lisp Log Message: Removed references to the old movitz-vector class. Date: Thu Jul 8 11:54:05 2004 Author: ffjeld Index: movitz/losp/muerte/variables.lisp diff -u movitz/losp/muerte/variables.lisp:1.5 movitz/losp/muerte/variables.lisp:1.6 --- movitz/losp/muerte/variables.lisp:1.5 Tue Apr 13 07:21:19 2004 +++ movitz/losp/muerte/variables.lisp Thu Jul 8 11:54:05 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2003-2004, -;;;; Department of Computer Science, University of Tromsoe, Norway. +;;;; 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.5 2004/04/13 14:21:19 ffjeld Exp $ +;;;; $Id: variables.lisp,v 1.6 2004/07/08 18:54:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0

← Newer
1
...
30
31
32
33
34
35
36
37
38
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 July 2004