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, count,
offset, offset,
i : longint; i : longint;
info : pointer; //info : pointer;
resBuffer : PRecordTypeData; resBuffer : PRecordTypeData;
typName : shortstring; typName : shortstring;
@@ -261,9 +261,9 @@ begin
{ Process elements } { Process elements }
for i := 1 to Count do begin for i := 1 to Count do begin
fieldInfo := @(resBuffer^.Fields[(i - 1)]); fieldInfo := @(resBuffer^.Fields[(i - 1)]);
Info := PPointer(Temp)^; //Info := PPointer(Temp)^;
fieldInfo^.TypeInfo := PPTypeInfo(Temp); fieldInfo^.TypeInfo := PPTypeInfo(Temp);
Inc(Temp,sizeof(Info)); Inc(Temp,sizeof(Pointer));
Offset := PLongint(Temp)^; Offset := PLongint(Temp)^;
fieldInfo^.Offset := Offset; fieldInfo^.Offset := Offset;
fieldInfo^.Visible := True; fieldInfo^.Visible := True;