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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
{ 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.
|
