I thought I would try in under Ubuntu Linux 6.06 (kernel 2.6.15-25).
I have a daul-boot setup, so it is the exact same pc specs and same
FPC compiler version.

Again no change between compiles.

Regards,
 - Graeme -


On 6/25/06, Graeme Geldenhuys <[EMAIL PROTECTED]> wrote:
No change here..  My default compiler settings is as follows:

<CONFIG>
  <Compiler Value="C:\FPC\2.0.2\bin\i386-win32\ppc386.exe" Date="863670948"/>
  <Params Value=" -S2ci -OG1 -gl -vewnhi -l -Fu.
-oC:\Temp\t3\fpcBench.exe fpcBench.lpr"/>
</CONFIG>

I have tried the new code as you mention, also tried different
performance compiler settings, and it make no difference here.  The
elapsed time is always the same.

My system specs:
 Dell Inspiron 9100 (laptop)
 CPU: P4 3000Mhz
 Mem: 512Mb

Regards,
  - Graeme -



On 6/25/06, Al Boldi <[EMAIL PROTECTED]> wrote:
> Graeme Geldenhuys wrote:
> > > Commenting  'x: double = 0;' reduces performance 333%.
> > > Any ideas what's going on?
> > > And can somebody confirm this on other platforms?
> >
> > I tried it under Win2000 with FPC 2.0.2 and don't get any change.
> > Both attempts resulted in the same answer.  Elapsed: 78
>
> Thanks for trying that!
>
> What switches did you use?
>
> Can you try with this switch: "ppc386 -gl fpcBench"
>
> And can you also try this one with no switches:
>
> program fpcBench;
>
> {$mode objfpc}{$H+}
>
> { $APPTYPE CONSOLE}
>
> uses
>   SysUtils;
>
> procedure fn;
> var
>   x: double = 0;
>   i: double = 9999999;
>   startTime: TDateTime;
>
> begin
>
>   startTime := Now;
>
>   while (i > 0) do i := i - 1;
>
>   Writeln('Elapsed: ' + IntToStr(DateTimeToTimeStamp(Now - startTime).Time));
>
> end;
>
> begin
>   fn;
>   write;
> end.
>
> Thanks a lot!
>
> --
> Al
>
> _________________________________________________________________
>      To unsubscribe: mail [EMAIL PROTECTED] with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives
>


--
There's no place like 127.0.0.1



--
There's no place like 127.0.0.1

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to