movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

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

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30768 Modified Files: print.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:53:09 2004 Author: ffjeld Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.14 movitz/losp/muerte/print.lisp:1.15 --- movitz/losp/muerte/print.lisp:1.14 Tue Jul 27 17:16:55 2004 +++ movitz/losp/muerte/print.lisp Mon Oct 11 15:53:09 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.14 2004/07/27 15:16:55 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.15 2004/10/11 13:53:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -395,12 +395,12 @@ #.(cl:cons 'progn (cl:loop for octet from 3 downto 1 collecting - `(let ((n (memref x 0 ,octet :unsigned-byte8))) + `(let ((n (memref x 0 :index ,octet :type :unsigned-byte8))) (when (setq z (or z (<= #x10 n))) (write-digit (ldb (byte 4 4) n) stream)) (when (setq z (or z (plusp n))) (write-digit (ldb (byte 4 0) n) stream))))) - (let ((n (memref x 0 0 :unsigned-byte8))) + (let ((n (memref x 0 :type :unsigned-byte8))) (when (or z (<= #x10 n)) (write-digit (ldb (byte 4 4) n) stream)) (write-digit (ldb (byte 4 0) n) stream)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30717 Modified Files: memref.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:53:01 2004 Author: ffjeld Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.31 movitz/losp/muerte/memref.lisp:1.32 --- movitz/losp/muerte/memref.lisp:1.31 Thu Oct 7 14:43:29 2004 +++ movitz/losp/muerte/memref.lisp Mon Oct 11 15:53:01 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.31 2004/10/07 12:43:29 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.32 2004/10/11 13:53:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,7 +18,8 @@ (in-package muerte) -(define-compiler-macro memref (&whole form object offset index type &key (localp nil) (endian :host) +(define-compiler-macro memref (&whole form object offset &key (index 0) (type :lisp) + (localp nil) (endian :host) &environment env) (if (or (not (movitz:movitz-constantp type env)) (not (movitz:movitz-constantp localp env)) @@ -323,29 +324,29 @@ (:load-lexical (:lexical-binding ,object-var) :eax) (:addl :ebx :ecx) (:movl (:eax :ecx ,(offset-by 4)) :eax))))))) - (t (error "Unknown memref type: ~S" (movitz::eval-form type nil nil)) + (t (error "Unknown memref type: ~S" (movitz:movitz-eval type nil nil)) form))))))))) -(defun memref (object offset index type &key localp (endian :host)) +(defun memref (object offset &key (index 0) (type :lisp) localp (endian :host)) (ecase type (:lisp (if localp - (memref object offset index :lisp :localp t) - (memref object offset index :lisp :localp nil))) - (:unsigned-byte32 (memref object offset index :unsigned-byte32)) - (:character (memref object offset index :character)) - (:unsigned-byte8 (memref object offset index :unsigned-byte8)) - (:location (memref object offset index :location)) - (:unsigned-byte14 (memref object offset index :unsigned-byte14)) + (memref object offset :index index :localp t) + (memref object offset :index index :localp nil))) + (:unsigned-byte32 (memref object offset :index index :type :unsigned-byte32)) + (:character (memref object offset :index index :type :character)) + (:unsigned-byte8 (memref object offset :index index :type :unsigned-byte8)) + (:location (memref object offset :index index :type :location)) + (:unsigned-byte14 (memref object offset :index index :type :unsigned-byte14)) (:unsigned-byte16 (ecase endian ((:host :little) - (memref object offset index :unsigned-byte16 :endian :little)) + (memref object offset :index index :type :unsigned-byte16 :endian :little)) ((:big) - (memref object offset index :unsigned-byte16 :endian :big)))) - (:signed-byte30+2 (memref object offset index :signed-byte30+2)) - (:unsigned-byte29+3 (memref object offset index :unsigned-byte29+3)))) + (memref object offset :index index :type :unsigned-byte16 :endian :big)))))) +;;; (:signed-byte30+2 (memref object offset index :signed-byte30+2)) +;;; (:unsigned-byte29+3 (memref object offset index :unsigned-byte29+3)))) -(define-compiler-macro (setf memref) (&whole form &environment env value object offset index type - &key (localp nil) (endian :host)) +(define-compiler-macro (setf memref) (&whole form &environment env value object offset + &key (index 0) (type :lisp) (localp nil) (endian :host)) (if (or (not (movitz:movitz-constantp type env)) (not (movitz:movitz-constantp localp env)) (not (movitz:movitz-constantp endian env))) @@ -683,24 +684,29 @@ (t ;; (warn "Can't handle inline MEMREF: ~S" form) form)))) -(defun (setf memref) (value object offset index type &key localp (endian :host)) +(defun (setf memref) (value object offset &key (index 0) (type :lisp) localp (endian :host)) (ecase type (:character - (setf (memref object offset index :character) value)) + (setf (memref object offset :index index :type :character) + value)) (:unsigned-byte8 - (setf (memref object offset index :unsigned-byte8) value)) + (setf (memref object offset :index index :type :unsigned-byte8) + value)) (:unsigned-byte16 (ecase endian ((:host :little) - (setf (memref object offset index :unsigned-byte16 :endian :little) value)) + (setf (memref object offset :index index :type :unsigned-byte16 :endian :little) + value)) ((:big) - (setf (memref object offset index :unsigned-byte16 :endian :big) value)))) + (setf (memref object offset :index index :type :unsigned-byte16 :endian :big) + value)))) (:unsigned-byte32 - (setf (memref object offset index :unsigned-byte32) value)) + (setf (memref object offset :index index :type :unsigned-byte32) + value)) (:lisp (if localp - (setf (memref object offset index :lisp :localp t) value) - (setf (memref object offset index :lisp :localp nil) value))))) + (setf (memref object offset :index index :localp t) value) + (setf (memref object offset :index index :localp nil) value))))) (define-compiler-macro memref-int (&whole form &environment env address offset index type &optional physicalp)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30699 Modified Files: interrupt.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:54 2004 Author: ffjeld Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.28 movitz/losp/muerte/interrupt.lisp:1.29 --- movitz/losp/muerte/interrupt.lisp:1.28 Thu Oct 7 14:42:38 2004 +++ movitz/losp/muerte/interrupt.lisp Mon Oct 11 15:52:54 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.28 2004/10/07 12:42:38 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.29 2004/10/11 13:52:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -57,7 +57,7 @@ (if (not (and (movitz:movitz-constantp stack env) (eq nil (movitz:movitz-eval stack env)))) form - `(memref ,frame (dit-frame-offset ,reg) 0 ,type))) + `(memref ,frame (dit-frame-offset ,reg) :type ,type))) (defun dit-frame-ref (stack frame reg &optional (type :lisp)) (stack-frame-ref stack frame (dit-frame-index reg) type)) @@ -263,7 +263,7 @@ (declare (without-check-stack-limit)) (macrolet ((dereference (fixnum-address &optional (type :lisp)) "Dereference the fixnum-address." - `(memref ,fixnum-address 0 0 ,type))) + `(memref ,fixnum-address 0 :type ,type))) (let (($eip (+ dit-frame (dit-frame-index :eip))) ($eax (+ dit-frame (dit-frame-index :eax))) ($ebx (+ dit-frame (dit-frame-index :ebx)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30674 Modified Files: integers.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:51 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.97 movitz/losp/muerte/integers.lisp:1.98 --- movitz/losp/muerte/integers.lisp:1.97 Wed Sep 22 19:40:47 2004 +++ movitz/losp/muerte/integers.lisp Mon Oct 11 15:52:50 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.97 2004/09/22 17:40:47 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.98 2004/10/11 13:52:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -881,7 +881,7 @@ (t (check-type integer (integer 0 *)) (let ((result (%make-bignum (ceiling result-length 32)))) (dotimes (i (* 2 (%bignum-bigits result))) - (setf (memref result -2 i :unsigned-byte16) + (setf (memref result -2 :index i :type :unsigned-byte16) (let ((pos (- (* i 16) count))) (cond ((minusp (+ pos 16)) 0) @@ -889,8 +889,12 @@ (ldb (byte 16 pos) integer)) (t (ash (ldb (byte (+ pos 16) 0) integer) (- pos))))))) - (assert (or (plusp (memref result -2 (+ -1 (* 2 (%bignum-bigits result))) :unsigned-byte16)) - (plusp (memref result -2 (+ -2 (* 2 (%bignum-bigits result))) :unsigned-byte16)))) + (assert (or (plusp (memref result -2 + :index (+ -1 (* 2 (%bignum-bigits result))) + :type :unsigned-byte16)) + (plusp (memref result -2 + :index (+ -2 (* 2 (%bignum-bigits result))) + :type :unsigned-byte16)))) (bignum-canonicalize result)))))) (t (let ((count (- count))) (etypecase integer @@ -913,9 +917,9 @@ (let ((src-max-bigit (* 2 (%bignum-bigits integer)))) (dotimes (i (* 2 (%bignum-bigits result))) (let ((src (+ i long))) - (setf (memref result -2 i :unsigned-byte16) + (setf (memref result -2 :index i :type :unsigned-byte16) (if (< src src-max-bigit) - (memref integer -2 src :unsigned-byte16) + (memref integer -2 :index src :type :unsigned-byte16) 0))))) (bignum-canonicalize (macrolet

1 0

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

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30647 Modified Files: inspect.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:44 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.42 movitz/losp/muerte/inspect.lisp:1.43 --- movitz/losp/muerte/inspect.lisp:1.42 Fri Sep 24 11:33:16 2004 +++ movitz/losp/muerte/inspect.lisp Mon Oct 11 15:52:44 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.42 2004/09/24 09:33:16 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.43 2004/10/11 13:52:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -76,8 +76,8 @@ (let ((pos (+ frame index))) (assert (< -1 pos (length stack)) () "Index ~S, pos ~S, len ~S" index pos (length stack)) - (memref stack 2 pos type))) - (t (memref frame 0 index type)))) + (memref stack 2 :index pos :type type))) + (t (memref frame 0 :index index :type type)))) (defun (setf stack-frame-ref) (value stack frame index &optional (type ':lisp)) (cond @@ -86,8 +86,8 @@ (let ((pos (+ frame index))) (assert (< -1 pos (length stack)) () "Index ~S, pos ~S, len ~S" index pos (length stack)) - (setf (memref stack 2 pos type) value))) - (t (setf (memref frame 0 index type) value)))) + (setf (memref stack 2 :index pos :type type) value))) + (t (setf (memref frame 0 :index index :type type) value)))) (defun current-dynamic-context () (with-inline-assembly (:returns :eax) @@ -248,12 +248,9 @@ (dotimes (i (funobj-num-constants x) t) (unless (test funobj-constant-ref i))))) (symbol - (and (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::function-value) - 0 :lisp) - (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::name) - 0 :lisp) - (test memref #.(bt:slot-offset 'movitz:movitz-symbol 'movitz::flags) - 0 :lisp))) + (and (test memref (movitz-type-slot-offset 'movitz-symbol 'function-value)) + (test memref (movitz-type-slot-offset 'movitz-symbol 'name)) + (test memref (movitz-type-slot-offset 'movitz-symbol 'flags)))) (vector (and (typep y 'vector) (test array-element-type)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/hash-tables.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30623 Modified Files: hash-tables.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:38 2004 Author: ffjeld Index: movitz/losp/muerte/hash-tables.lisp diff -u movitz/losp/muerte/hash-tables.lisp:1.3 movitz/losp/muerte/hash-tables.lisp:1.4 --- movitz/losp/muerte/hash-tables.lisp:1.3 Wed Jun 30 01:19:21 2004 +++ movitz/losp/muerte/hash-tables.lisp Mon Oct 11 15:52:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Feb 19 19:09:05 2001 ;;;; -;;;; $Id: hash-tables.lisp,v 1.3 2004/06/29 23:19:21 ffjeld Exp $ +;;;; $Id: hash-tables.lisp,v 1.4 2004/10/11 13:52:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -96,9 +96,6 @@ (if (not (plusp limit)) 0 (typecase object - #+ignore - (std-instance - (memref object #x1e 2 :lisp)) (cons (logxor (sxhash-limited (car object) (- limit 2)) (sxhash-limited (cdr object) (1- limit))))

1 0

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

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30595 Modified Files: functions.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:35 2004 Author: ffjeld Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.21 movitz/losp/muerte/functions.lisp:1.22 --- movitz/losp/muerte/functions.lisp:1.21 Wed Sep 22 18:40:32 2004 +++ movitz/losp/muerte/functions.lisp Mon Oct 11 15:52:34 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.21 2004/09/22 16:40:32 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.22 2004/10/11 13:52:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -106,12 +106,14 @@ (defun funobj-code-vector (funobj) (check-type funobj function) - (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::code-vector) 0 :code-vector)) + (memref funobj (movitz-type-slot-offset 'movitz-funobj 'code-vector) + :type :code-vector)) (defun (setf funobj-code-vector) (code-vector funobj) (check-type funobj function) (check-type code-vector code-vector) - (setf (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::code-vector) 0 :code-vector) + (setf (memref funobj (movitz-type-slot-offset 'movitz-funobj 'code-vector) + :type :code-vector) code-vector)) (defun funobj-code-vector%1op (funobj) @@ -299,12 +301,12 @@ (defun funobj-name (funobj) (check-type funobj function) - (movitz-accessor funobj movitz-funobj name)) + (memref funobj (movitz-type-slot-offset 'movitz-funobj 'name))) (defun (setf funobj-name) (name funobj) (check-type funobj function) - ;; (check-type name (or symbol list) - (setf-movitz-accessor (funobj movitz-funobj name) name)) + (setf (memref funobj (movitz-type-slot-offset 'movitz-funobj 'name)) + name)) (defun funobj-lambda-list (funobj) (check-type funobj function) @@ -342,7 +344,7 @@ (assert (below index (funobj-num-constants funobj)) (index) "Index ~D out of range, ~S has ~D constants." index funobj (funobj-num-constants funobj)) (if (>= index (funobj-num-jumpers funobj)) - (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::constant0) index :lisp) + (memref funobj (movitz-type-slot-offset 'movitz-funobj 'constant0) :index index) ;; For a jumper, return its offset relative to the code-vector. ;; This is tricky wrt. to potential GC interrupts, because we're doing ;; pointer arithmetics. @@ -361,8 +363,7 @@ (assert (below index (funobj-num-constants funobj)) (index) "Index ~D out of range, ~S has ~D constants." index funobj (funobj-num-constants funobj)) (if (>= index (funobj-num-jumpers funobj)) - (setf (memref funobj #.(bt:slot-offset 'movitz:movitz-funobj 'movitz::constant0) - index :lisp) + (setf (memref funobj (movitz-type-slot-offset 'movitz-funobj 'constant0) :index index) value) (progn (assert (below value (length (funobj-code-vector funobj))) (value) @@ -382,7 +383,7 @@ (defun funobj-debug-info (funobj) (check-type funobj function) - (movitz-accessor-u16 funobj movitz-funobj debug-info)) + (memref funobj (movitz-type-slot-offset 'movitz-funobj 'debug-info) :type :unsigned-byte16)) (defun funobj-frame-num-unboxed (funobj) "The number of unboxed slots in this function's stack-frame(s)."

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/defstruct.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30575 Modified Files: defstruct.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:28 2004 Author: ffjeld Index: movitz/losp/muerte/defstruct.lisp diff -u movitz/losp/muerte/defstruct.lisp:1.14 movitz/losp/muerte/defstruct.lisp:1.15 --- movitz/losp/muerte/defstruct.lisp:1.14 Thu Sep 23 11:31:28 2004 +++ movitz/losp/muerte/defstruct.lisp Mon Oct 11 15:52:27 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.14 2004/09/23 09:31:28 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.15 2004/10/11 13:52:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -21,10 +21,10 @@ (defun structure-object-length (object) (check-type object structure-object) - (memref object -4 0 :unsigned-byte14)) + (memref object -4 :type :unsigned-byte14)) (defun structure-object-class (x) - (memref x -6 1 :lisp)) + (memref x -6 :index 1)) (defun copy-structure (object) (%shallow-copy-object object (+ 2 (structure-object-length object))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/bignums.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30543 Modified Files: bignums.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:21 2004 Author: ffjeld Index: movitz/losp/muerte/bignums.lisp diff -u movitz/losp/muerte/bignums.lisp:1.11 movitz/losp/muerte/bignums.lisp:1.12 --- movitz/losp/muerte/bignums.lisp:1.11 Thu Sep 23 11:17:51 2004 +++ movitz/losp/muerte/bignums.lisp Mon Oct 11 15:52:21 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Jul 17 19:42:57 2004 ;;;; -;;;; $Id: bignums.lisp,v 1.11 2004/09/23 09:17:51 ffjeld Exp $ +;;;; $Id: bignums.lisp,v 1.12 2004/10/11 13:52:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -82,7 +82,7 @@ (defun print-bignum (x) (check-type x bignum) (dotimes (i (1+ (%bignum-bigits x))) - (format t "~8,'0X " (memref x -6 i :unsigned-byte32))) + (format t "~8,'0X " (memref x -6 :index i :type :unsigned-byte32))) (terpri) (values)) @@ -468,7 +468,8 @@ (defun bignum-set-zerof (bignum) (check-type bignum bignum) (dotimes (i (%bignum-bigits bignum)) - (setf (memref bignum -2 i :lisp) 0)) + (setf (memref bignum (movitz-type-slot-offset 'movitz-bignum 'bigit0) + :index i :type :unsigned-byte32) 0)) bignum) (defun %bignum= (x y)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp
by Frode Vatvedt Fjeld 11 Oct '04

11 Oct '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30521 Modified Files: basic-macros.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments. Date: Mon Oct 11 15:52:18 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.41 movitz/losp/muerte/basic-macros.lisp:1.42 --- movitz/losp/muerte/basic-macros.lisp:1.41 Wed Sep 22 18:26:14 2004 +++ movitz/losp/muerte/basic-macros.lisp Mon Oct 11 15:52:18 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.41 2004/09/22 16:26:14 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.42 2004/10/11 13:52:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -391,6 +391,13 @@ (find-symbol (string slot-name) :movitz)))) (:leal ((:ecx #.movitz::+movitz-fixnum-factor+) :edi ,(- (movitz::image-nil-word movitz::*image*))) :eax))) + +(define-compiler-macro movitz-type-slot-offset (type slot &environment env) + (if (not (and (movitz:movitz-constantp type env) + (movitz:movitz-constantp slot env))) + (error "Non-constant movitz-type-slot-offset call.") + (bt:slot-offset (intern (symbol-name (movitz:movitz-eval type env)) :movitz) + (intern (symbol-name (movitz:movitz-eval slot env)) :movitz)))) (define-compiler-macro not (x)

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs