mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-29 12:43:45 +02:00
50 lines
1.1 KiB
ObjectPascal
50 lines
1.1 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
|
|
}
|
|
|
|
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
|
|
|
|
procedure Check(a,b:ansistring);
|
|
begin
|
|
if a<>b then
|
|
begin
|
|
writeln(a,' should be equal to ',b);
|
|
error;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
|
|
check(WideFormat('%x', [$FFFFFFFF]),'FFFFFFFF');
|
|
check(WideFormat('%x', [$FFFFFFFFF]),'FFFFFFFFF');
|
|
|
|
check(WideFormat('%x', [$9999999]),'9999999');
|
|
check(WideFormat('%x', [$99999999]),'99999999');
|
|
check(WideFormat('%x', [$999999999]),'999999999');
|
|
end.
|