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
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