From 885a71ab977e2dc6256745290cd4d5806c950ca0 Mon Sep 17 00:00:00 2001
From: drewski207 <drewski207@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 10 Oct 2007 02:26:55 +0000
Subject: * Fixed compilation for 64bit fpc

---
 examples/apps/uidesigner/vfdprops.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples')

diff --git a/examples/apps/uidesigner/vfdprops.pas b/examples/apps/uidesigner/vfdprops.pas
index 6d47764b..bc14e890 100644
--- a/examples/apps/uidesigner/vfdprops.pas
+++ b/examples/apps/uidesigner/vfdprops.pas
@@ -170,7 +170,7 @@ begin
   for n := 0 to T^.MaxValue do
   begin
     sl.Add(P^);
-    Inc(integer(P), Length(P^) + 1);
+    Inc(PtrInt(P), Length(P^) + 1);
   end;
 end;
 
-- 
cgit v1.2.3-70-g09d2