mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 01:10:06 +02:00
51 lines
1.0 KiB
ObjectPascal
51 lines
1.0 KiB
ObjectPascal
{ Source provided for Free Pascal Bug Report 3478 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-12-26 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
{ Before fixing bug 3477 this prints
|
|
FFFFFFF
|
|
FFFFFFFFFFFFFFFF
|
|
0000000FFFFFFFFF
|
|
9999999
|
|
FFFFFFFF99999999
|
|
0000000999999999
|
|
|
|
After fixing 3477 with my patch this prints
|
|
FFFFFFF
|
|
FFFFFFFFFFFFFFFF
|
|
FFFFFFFFF
|
|
9999999
|
|
FFFFFFFF99999999
|
|
999999999
|
|
so part of the problems are gone, but not all.
|
|
|
|
Then, after fixing this bug with my simple patch it correctly prints
|
|
FFFFFFF
|
|
FFFFFFFF
|
|
FFFFFFFFF
|
|
9999999
|
|
99999999
|
|
999999999
|
|
}
|
|
|
|
{$R-}
|
|
{$Q-}
|
|
|
|
uses SysUtils,erroru;
|
|
|
|
procedure Check(a,b:ansistring);
|
|
begin
|
|
writeln(a);
|
|
if a<>b then
|
|
error;
|
|
end;
|
|
|
|
begin
|
|
check(Format('%x', [$FFFFFFF]),'FFFFFFF');
|
|
check(Format('%x', [$FFFFFFFF]),'FFFFFFFF');
|
|
check(Format('%x', [$FFFFFFFFF]),'FFFFFFFFF');
|
|
|
|
check(Format('%x', [$9999999]),'9999999');
|
|
check(Format('%x', [$99999999]),'99999999');
|
|
check(Format('%x', [$999999999]),'999999999');
|
|
end.
|