merge r14017 from the trunk:

r14017 | jonas | 2009-11-03 15:05:02 +0100 (Tue, 03 Nov 2009) | 2 lines
Changed paths:
   M /trunk/tests/test/tforin8.pp

  * fixed 64 bit compilation

git-svn-id: branches/fixes_2_4@14752 -

tests/test/tforin8.pp

@@ -55,7 +55,7 @@ var
 begin
   List := TMyList.Create;
   for i in List do
-    WriteLn(Integer(i));
+    WriteLn(PtrUInt(i));
   List := nil;
 end.