pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warnings and hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@871 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-27 22:36:57 +00:00
parent 20d339d050
commit 3c02bd5018
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
wst/trunk/record_rtti.pas
View File

@ -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;