Überlauf bei Berechnung erkennen

[himitsu]

alles wir eh nicht ASM werden ... vor 'ner Weile haten wir hier im Forum sogar mal irgendwo etwas gehabt, da war die menschliche ASM-Version viel langsamer, als Compileroptimierte Pascal-Variante :stupid:

aktuell werd ich wohl nur irgendwann mal ADD und SUB in ASM erstellen, da ich dort die 64-Bit-Operationen dann loswerde

ergibt etwa 'nen 10-tel an Opcode

hatte das schonmal gemacht (alter Vorgänger des aktuellen TBigInt) ... in 'ner Schleife mit ADD und ADC über die gesamte Variable

bei ADD ist das Carry auch nur 0 und 1 (über alle Operationen ... incl. DEC und SUB) gibt es dann noch die -1 (siehe 1. Beitrag, 3. Codefenster, hinter dem "#" steht mein Carry)

[add]
für einen Durchlauf benötigt bei mir diese Schleife 1,589 ms

Delphi-Quellcode:

I  := 0;
i2 := 0;
While i2 < 511 do Begin
  Inc(i2);
  I  := I * 2 + 1;
  S  := I.asStringT;
  S2 := I.asHexString;
  If S = S2 Then ;  // wegen Compileroptimierung
End;

aber das Meiste geht für di Stringoperationen drauf ... ohne war es für GetTickCount zu schnell und des meinte 0 ms für alle Durchgänge zusammen.
So ist es jetzt nur noch 0,00159 ms pro Durchgang ... was doch für mich erstmal schnell genug ist

Delphi-Quellcode:

I  := 0;
i2 := 0;
While i2 < 1024*1024 do Begin
  Inc(i2);
  I  := I * 2 + 1;
End;

Code aus der Project.dpr (irgendwo in de Mitte)
http://www.delphipraxis.net/internal...t.php?t=135239