Delphi - Důvěryhodnost GetTickCount

Máš to nějaké pomalé... Java 1.6.0, stará E6300.

public class Test {

    public static void main(String[] args) {
            long timeBefore = System.nanoTime();
            double i = Math.pow(10, 9);
            long retyped = (long) i;

            while (retyped > 0) {
                retyped = retyped - 1;
            }

            long timeAfter = System.nanoTime();
            long time = (timeAfter - timeBefore) / 1000000;
            System.out.println(time + " ms");
        }
}

2536 ms
2534 ms
2532 ms
2543 ms
2537 ms
2535 ms....atd.

Furt to mas pomale.

public class Test {

    public static void main(String[] args) {
            long timeBefore = System.nanoTime();

            double i = Math.pow(10, 9);
            long retyped = 0;

            long timeAfter = System.nanoTime();
            long time = (timeAfter - timeBefore) / 1000000;
            System.out.println(time + " ms");
        }
}

0 ms :)

Zaujimave je to len s realnym kodom ktory fakt nieco zlozite rata.

0 ms mas proto, ze ty tam pro zmenu nemas ten cyklus

No jasně tak tomuhle kodu neverim ani kozu.

Například Oracle level optimalizeru +2 by te s tim nekam poslal - while by nespoustel, protoze proc by to kurva taky delal, kdyz to pak nikde nepouzivas, tim chci rict ze zatimco vy si tu hrajete buhvinaco, tak kompilator s tim dela buhvico. Ja napriklad vim, ze v Oracle se ti na to while za urcitych okolosti vysere a to pak to tu muzete asi tezko srovávat.

Vsak jasně, kdybych tam dal VM argument -server (možná by stačila i tiered compilation), pravděpodobně by se to while vůbec nevykonalo...

Inac nie som si isty ci do long v jave ulozis 10^9 (neviem zhlavy nechce sa mi to hladat), takze si mozno tych cyklov robil napr. 100x menej apod

Uložíš, nerobil...

Máš to nějaké pomalé... Java 1.6.0, stará E6300.

Pomale to ma proto, ze decrementuje primo ten extended. Pokud to, stejne jako ty, pretypuje na LongInt (v Delphi na Int64), pak to trva stejne jako u tebe

var
  prvniCas, druhyCas: Cardinal;
  i: Int64;
begin
  prvniCas := GetTickCount;
  i := Trunc(Power(10, 9));
  repeat
      Dec(i);
  until i=0;
  druhyCas := GetTickCount;
  writeln(inttostr(druhyCas-prvniCas));
  Readln;
end.

Zkousel jsem, jestli se nejak projevi Do While a Repeat - Until a ne

A kdyz I nadeklaruju jako LongInt misto Int64 (protoze to uz je hodne velky kalibr), tak jsem s casem na 437ms.

Jaký máš HW?

V Javě vlastně stačí normal int. Teď jsem na 850ms, níž už to na mojem HW asi nesrazím...

Hardware? Lenovo ThinkPad T61
Stejné výsledky jsem na tom notebooku dostal i ve VirtualBoxu.

Pokud si to chces zkusit spustit u sebe, zde je zkompilovany EXE vcetne zdrojaku:
qqq-rar

358 na i5-2410M