[Ecls-list] Type propagation

[Juan Jose Garcia-Ripoll]

On Thu, Aug 12, 2010 at 4:54 PM, Alexander Gavrilov <angavrilov at gmail.com>wrote:

>  (loop for i fixnum from 0 below (- (min (array-total-size arr1)
>                                          (array-total-size arr2))
>                                     3) by 4


This is the code that gets normally inlined. Can you try adding the
following function to the same file and see whether it gets inlined by your
modified compiler?

(defun foo (arr1 arr2)
  (declare (optimize (safety 0) (speed 3)))
  (loop for i fixnum from 0 below (- (min (array-total-size arr1)
                                          (array-total-size arr2))
                                     3) by 4
     collect (aref arr1 i)))

Juanjo

-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20100812/34ecf64d/attachment.html>