On Fri, May 13, 2011 at 8:52 AM, Marcos Douglas wrote:
>
> I did this test.
> My env is FPC 2.4.3 (/fixes_2_4)
>
> Result:
> -O = run in 891 ms
> -O1 = run in 875 ms
> -O2 = run in 1656 ms
> -O3 = run in 1625 ms
>
> And now?
Ah, sorry, I use WinXP SP3.
Marcos Douglas
__
On Thu, May 12, 2011 at 3:54 PM, cobines wrote:
> Hello.
>
> I have written the following program:
>
> program a;
> {$mode objfpc}
> uses
> SysUtils;
> var
> i: integer;
> vd: double;
> t: TDateTime;
> max: int64;// = 1;
> begin
> t := Now;
> max := 1;
> for i := 0 to max d
Hello.
I have written the following program:
program a;
{$mode objfpc}
uses
SysUtils;
var
i: integer;
vd: double;
t: TDateTime;
max: int64;// = 1;
begin
t := Now;
max := 1;
for i := 0 to max do
vd := i / max;
Writeln('Time: ', DateTimeToTimeStamp(Now - t).Tim
