Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv8832

Modified Files: compiler.lisp Log Message: Slight change in how code-vector objects are constructed.

Date: Wed Jul 7 10:34:10 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.69 movitz/compiler.lisp:1.70 --- movitz/compiler.lisp:1.69 Mon Jun 21 00:48:59 2004 +++ movitz/compiler.lisp Wed Jul 7 10:34:09 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.69 2004/06/21 07:48:59 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.70 2004/07/07 17:34:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -108,11 +108,8 @@ (case label (:nil-value (image-nil-word *image*))))))) (make-movitz-vector (length code-vector) - :element-type 'movitz-code - :flags '(:code-vector-p) - :alignment 16 - :alignment-offset 8 - :initial-contents code-vector))) + :element-type 'movitz-code + :initial-contents code-vector)))

(defun register-function-code-size (funobj) (let* ((name (movitz-print (movitz-funobj-name funobj))) @@ -875,9 +872,7 @@ :fill-pointer code-length :element-type 'movitz-code :initial-contents code-vector - :flags '(:code-vector-p) - :alignment 16 - :alignment-offset 8)))) + )))) funobj)

#+ignore