Ich rede ja auch nicht von "div 30" sondern "*30"
Delphi-Quellcode:
PrimeBits:=PrimeLen*30;
-->
PrimeBits := (PrimeLen * 16 - PrimeLen) * 2;
-->
asm
LEA EAX,[PrimeLen * 16 - PrimeLen]
ADD EAX,EAX
end;
Und "div 30" liese sich durch "*(1/30)" ersetzen. Allerdings sollte man so'nen Aufwand wirklich nur in den innersten Schleifen treiben.
Gruß hagen