mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
15 lines
383 B
ObjectPascal
15 lines
383 B
ObjectPascal
{ %cpu=i386 }
|
|
{$mode delphi}
|
|
type
|
|
TCRCDef = record
|
|
polynomial : longint;
|
|
end;
|
|
{$asmmode intel}
|
|
function CRCSetup(var CRCDef: TCRCDef; Polynomial, Bits, InitVector,
|
|
FinalVector: Cardinal; Inverse: LongBool): Boolean; register;assembler;
|
|
asm // initialize CRCDef according to the parameters, calculate the lookup table
|
|
MOV [EAX].TCRCDef.Polynomial,EDX
|
|
end;
|
|
begin
|
|
end.
|