From c49c838270a6bdb6cfe683463ca4775a0ac47e77 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 3 Nov 2009 14:05:02 +0000
Subject: [PATCH]   * fixed 64 bit compilation

git-svn-id: trunk@14017 -
---
 tests/test/tforin8.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/tforin8.pp b/tests/test/tforin8.pp
index 85376a9542..e91cb516d0 100644
--- a/tests/test/tforin8.pp
+++ b/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.