mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
33 lines
683 B
ObjectPascal
33 lines
683 B
ObjectPascal
{ Test against Mantis #30166, an issue in the i386 fpc_div_int64 helper. }
|
|
Uses sysutils;
|
|
|
|
Var cc, dd: int64;
|
|
a, b: int64;
|
|
|
|
Begin
|
|
dd:=int64($0000000A6BB38805);
|
|
cc:=int64($0000000000142E04);
|
|
cc:=cc-2822400; { $FF11813BCCC3B114 }
|
|
dd:=dd*cc;
|
|
|
|
{ dd:=int64($FF11813BCCC3B114); }
|
|
|
|
a:=dd div int64($00000000002B1100);
|
|
b:=int64($FF11813BCCC3B114) div int64($00000000002B1100);
|
|
|
|
WriteLn(IntToHex(cc,16));
|
|
WriteLn(IntToHex(dd,16));
|
|
WriteLn('FF11813BCCC3B114:00000000002B1100='#9, IntToHex(a,16));
|
|
WriteLn('FF11813BCCC3B114:00000000002B1100='#9, IntToHex(b,16));
|
|
|
|
if a<>b then
|
|
begin
|
|
writeln('Failed!');
|
|
halt(1);
|
|
end
|
|
else
|
|
begin
|
|
writeln('Passed!');
|
|
end;
|
|
End.
|