[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Thu Oct 21 20:30:10 UTC 2004
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv2604
Modified Files:
arrays.lisp
Log Message:
Minor edits.
Date: Thu Oct 21 22:30:08 2004
Author: ffjeld
Index: movitz/losp/muerte/arrays.lisp
diff -u movitz/losp/muerte/arrays.lisp:1.45 movitz/losp/muerte/arrays.lisp:1.46
--- movitz/losp/muerte/arrays.lisp:1.45 Mon Oct 11 15:52:12 2004
+++ movitz/losp/muerte/arrays.lisp Thu Oct 21 22:30:07 2004
@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef at acm.org>
;;;; Created at: Sun Feb 11 23:14:04 2001
;;;;
-;;;; $Id: arrays.lisp,v 1.45 2004/10/11 13:52:12 ffjeld Exp $
+;;;; $Id: arrays.lisp,v 1.46 2004/10/21 20:30:07 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -764,8 +764,9 @@
(:addl 4 :ecx)
(:andl -8 :ecx)
(:jz 'init-done)
+ (:load-lexical (:lexical-binding initial-element) :edx)
init-loop
- (:movl :edi (:eax (:offset movitz-basic-vector data) :ecx -4))
+ (:movl :edx (:eax (:offset movitz-basic-vector data) :ecx -4))
(:subl 4 :ecx)
(:jnz 'init-loop)
init-done
@@ -779,6 +780,7 @@
(cond
(initial-contents
(replace array initial-contents))
+ #+ignore
(initial-element
(dotimes (i dimension)
(setf (svref%unsafe array i) initial-element))))
More information about the Movitz-cvs
mailing list