From 3c02bd501801c12f122ca62f83ee08772329c9d3 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 27 Jun 2009 22:36:57 +0000
Subject: [PATCH] suppress warnings and hints

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@871 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/record_rtti.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/wst/trunk/record_rtti.pas b/wst/trunk/record_rtti.pas
index f46682a8b..f5f2ebbfd 100644
--- a/wst/trunk/record_rtti.pas
+++ b/wst/trunk/record_rtti.pas
@@ -222,7 +222,7 @@ var
   count,
   offset,
   i : longint;
-  info : pointer;
+  //info : pointer;
 
   resBuffer : PRecordTypeData;
   typName : shortstring;
@@ -261,9 +261,9 @@ begin
   { Process elements }
   for i := 1 to Count do begin
     fieldInfo := @(resBuffer^.Fields[(i - 1)]);
-    Info := PPointer(Temp)^;
+    //Info := PPointer(Temp)^;
     fieldInfo^.TypeInfo := PPTypeInfo(Temp);
-    Inc(Temp,sizeof(Info));
+    Inc(Temp,sizeof(Pointer));
     Offset := PLongint(Temp)^;
     fieldInfo^.Offset := Offset;
     fieldInfo^.Visible := True;