[movitz-cvs] CVS update: movitz/losp/muerte/memref.lisp

[Frode Vatvedt Fjeld]

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 at 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))))