blob: bd975dd7957f05abe8b088430a673e2870e454c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{ 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.
|
