|
|
@@ -0,0 +1,48 @@
|
|
|
+{ Source provided for Free Pascal Bug Report 3478 }
|
|
|
+{ Submitted by "Michalis Kamburelis" on 2004-12-26 }
|
|
|
+{ e-mail: [email protected] }
|
|
|
+{ 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 SysUtils,erroru;
|
|
|
+
|
|
|
+procedure Check(a,b:ansistring);
|
|
|
+begin
|
|
|
+ writeln(a);
|
|
|
+ if a<>b then
|
|
|
+ error;
|
|
|
+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.
|
|
|
+
|
florian