Sieb des Eratosthenes

[Horst_]

Hallo,

lazarus kann das Programm nicht umwandeln.
Allein die Unit _Main hat 3800 Zeilen , Sieve um die 2500 .....
Das Trect plötzlich width und centerpoint hat mag ja noch angehen, aber TListbox.count läßt sich nichts zuweisen und das kommt andauernd vor.
Die gesamte Form wird selbst erzeugt und gestaltet. Holla, was für ein Aufwand.

Im Assembler Teil verschluckte sich Freepascal an so etwas:

Delphi-Quellcode:

ASM
mov      eax,eax.TSieve.fPData     ;hoffentlich ist das:
mov      eax,TSieve([EAX]).fPData  ;der passende Ersatz

Nach unmengen auskommentieren und umschriebseln bricht das Programm beim
"Error reading lbData.Style invalid value for property ab." und kommt deshalb wahrscheinlich auch nicht zur ursprünglichen Abbruchstelle.

Laut Debugger knallt es hier

Delphi-Quellcode:

asm
 pshufb   xmm1,xmm0

aus:
unit PrimeSieve_Progress;
Bereich Graphics:

Delphi-Quellcode:

PROCEDURE InitXMM(Range:Integer; Color1,Color2:TRGB);
FUNCTION NextColorXMM:TRGB;

AMD Phenom kennt es nicht:
http://en.wikipedia.org/wiki/SSSE3#CPUs_with_SSSE3

Also ging es um etwas nebensächliches....

Gruß Horst