From: Juho S. <js...@us...> - 2008-06-23 00:55:52
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8979/src/compiler/generic Modified Files: vm-ir2tran.lisp Log Message: 1.0.17.40: Fix build on -raw-instance-init-vops platforms (probably) * Reported by Xach Index: vm-ir2tran.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/vm-ir2tran.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- vm-ir2tran.lisp 29 May 2008 16:11:09 -0000 1.15 +++ vm-ir2tran.lisp 23 Jun 2008 00:55:49 -0000 1.16 @@ -54,6 +54,8 @@ (move-lvar-result node block locs lvar))) (defun emit-inits (node block name object lowtag instance-length inits args) + #!-raw-instance-init-vops + (declare (ignore instance-length)) (let ((unbound-marker-tn nil) (funcallable-instance-tramp-tn nil)) (dolist (init inits) |