double float array problem?
"J. T.K." <[email protected]> Wed, 10 Jan 2007 11:36:19 -1000
| Newsgroups | gmane.lisp.openmcl.bugs |
|---|---|
| Message-ID | <[email protected]> |
--===============9203200558461945774==
Content-Type: multipart/alternative;
boundary="----=_Part_14360_29334971.1168464979167"
------=_Part_14360_29334971.1168464979167
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Hello,
The following function will not compile in OpenMCL Version
1.1-pre-061231(DarwinPPC32)
running in OS X 10.4.8
There seem to be some mentions of aref bugs in the mailing lists,
but this is from a snapshot I downloaded yesterday, and I couldn't find any
references
to AREF bugs after 2006-12-31 in the CHANGES file in
ftp://clozure.com/pub/testing/
I tried to figure out if this is in the latest CVS release, but I did not
manage to compile the
CVS distribution, because there is something I don't understand about
kernels and heap
images - I got "Heap image is too new for this kernel." when loading
ppc-boot.image into
the new CVS dppccl
Many thanks,
Jan
;; compiling this fails as shown below
;;
(defun foo (y)
(declare (type (simple-array double-float (*)) y))
(loop for i below (length y)
do (print (aref y i))))
> Error: Vinsn DOUBLE->HEAP expects 2 result/argument specs, received 3 .
> While executing: CCL::MATCH-TEMPLATE-VREGS, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
;; but changing to generic array fixes things, but single float also breaks
(defun foo (y)
(declare (type (simple-array t (*)) y))
(loop for i below (length y)
do (print (aref y i))))
==> FOO
------=_Part_14360_29334971.1168464979167
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
Hello,<br><br>The following function will not compile in OpenMCL Version 1.1-pre-061231 (DarwinPPC32)<br>running in OS X 10.4.8<br><br>There seem to be some mentions of aref bugs in the mailing lists, <br>but this is from a snapshot I downloaded yesterday, and I couldn't find any references
<br>to AREF bugs after 2006-12-31 in the CHANGES file in <a href="ftp://clozure.com/pub/testing/">ftp://clozure.com/pub/testing/</a><br><br>I tried to figure out if this is in the latest CVS release, but I did not manage to compile the
<br>CVS distribution, because there is something I don't understand about kernels and heap <br>images - I got "Heap image is too new for this kernel." when loading ppc-boot.image into <br>the new CVS dppccl<br>
<br>Many thanks,<br>Jan<br><br><br><br>;; compiling this fails as shown below<br>;;<br>(defun foo (y)<br> (declare (type (simple-array double-float (*)) y))<br> (loop for i below (length y)<br> do (print (aref y i))))
<br><br><br>> Error: Vinsn DOUBLE->HEAP expects 2 result/argument specs, received 3 .<br>> While executing: CCL::MATCH-TEMPLATE-VREGS, in process listener(1).<br>> Type :POP to abort, :R for a list of available restarts.
<br>> Type :? for other options.<br><br><br><br>;; but changing to generic array fixes things, but single float also breaks<br>(defun foo (y)<br>
(declare (type (simple-array t (*)) y))<br>
(loop for i below (length y)<br>
do (print (aref y i))))<br>
==> FOO<br>
------=_Part_14360_29334971.1168464979167--
--===============9203200558461945774==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Bug-openmcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/bug-openmcl
--===============9203200558461945774==--