Forum: Sonstige Fragen zu Delphi
Delphi
by Assertor,
17. Dez 2008
Lösung ist, die gesamte CRCInit() in eine Zwang-Optimierung zu setzen, anstatt nur die CRCTab:
{$IFOPT O-}{$O+}{$DEFINE NoOpt}{$ENDIF}
function CRCInit(var CRCDef: TCRCDef; CRCType: TCRCType): Boolean; register;
type
PCRCTab = ^TCRCTab;
TCRCTab = array of packed record
Poly,Bits,Init,FInit: Cardinal;
Inverse: LongBool;
Forum: Sonstige Fragen zu Delphi
Delphi
by Assertor,
17. Dez 2008
Ok,
danke fürs Testen in D2007. Damit Du auch benachrichtigt wirst ein neuer Eintrag, kein Edit :)
Es betrifft die CRC_32CCITT, nicht z.B. CRC_32.
cResult := CRCCalc(CRC_32, PAnsiChar(FText)^, Length(FText));
liefert mit/ohne Optimization immer C1271A8C.