I just tried it with the latest git build. Declaim is still ignored,
at least in this case.
c:\development\cvstree\ecl-shootout>cat compile.lisp
(require 'cmp)
(defun create-exec (file)
(let ((c::*cc-flags* " -O3 -march=core2 -fomit-frame-pointer -fPIC
-Ic:/usr/local/include "))
(c::builder :program file
:lisp-files (list (compile-file file :system-p t))
:epilogue-code '(quit))))
c:\development\cvstree\ecl-shootout>cat n-body.lisp | grep declaim
(declaim (optimize (speed 3) (safety 0) (debug 0)))
;; declaim is the first non comment lisp line
c:\development\cvstree\ecl-shootout>ecl -norc -load compile.lisp -eval
"(create-exec \"n-body\")" -eval "(quit)"
;;; Loading "c:/development/cvstree/ecl-shootout/compile.lisp"
;;; Loading #P"c:/opt/ecl/cmp.fas"
;;;
;;; Compiling n-body.
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0
;;;
...
Regards,
Marko Kocić
On Sat, Feb 12, 2011 at 8:12 PM, Juan Jose Garcia-Ripoll
<juanjose.garciarip...@googlemail.com> wrote:
> On Tue, Feb 1, 2011 at 3:02 PM, Marko Kocić <marko.ko...@gmail.com> wrote:
>>
>> I have lisp file some.lisp which have the following at the beginning:
>>
>> (declaim (optimize (speed 3) (safety 0) (debug 0)))
>>
>> When I call (compile-file "some.lisp"), declarations in file are
>> ignored while compiling file.
>
> I just checked with a toy example (see below) and the code is indeed
> generated differently when I change the declaim statement in the file. Do
> those problems still persist in your copy of ECL?
> Juanjo
> (declaim (optimize (speed 3) (safety 0) (debug 0)))
> (defun faa (x)
> (print (cos x)))
>
> --
> Instituto de Física Fundamental, CSIC
> c/ Serrano, 113b, Madrid 28006 (Spain)
> http://juanjose.garciaripoll.googlepages.com
>
------------------------------------------------------------------------------
The ultimate all-in-one performance toolkit: Intel(R) Parallel Studio XE:
Pinpoint memory and threading errors before they happen.
Find and fix more than 250 security defects in the development cycle.
Locate bottlenecks in serial and parallel code that limit performance.
http://p.sf.net/sfu/intel-dev2devfeb
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
