paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 19:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed find declaration intf cache

Browse Source 
git-svn-id: trunk@4156 -
This commit is contained in:
mattias 2003-05-15 13:00:21 +00:00
parent 5eacc53695
commit 6bbd9abbbe
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -3251,10 +3251,13 @@ begin
Params.NewCleanPos);
end else begin
// do not save proc identifiers or collect results
Result:=false;
end;
end else
end else begin
// identifier does not exist in interface
FInterfaceIdentifierCache.Add(OldInput.Identifier,nil,-1);
Result:=false;
end;
end;
function TFindDeclarationTool.CompareNodeIdentifier(Node: TCodeTreeNode;

25
designer/propedits.pp
View File

@ -1207,17 +1207,39 @@ var
TypeData: PTypeData;
PropInfo: PPropInfo;
CurCount, i: integer;
//CurParent: TClass;
begin
TypeInfo:=Instance.ClassInfo;
TypeData:=GetTypeData(TypeInfo);
GetMem(BigList,TypeData^.PropCount * SizeOf(Pointer));
// read all properties and remove doubles
TypeInfo:=Instance.ClassInfo;
FCount:=0;
repeat
// read all property infos of current class
TypeData:=GetTypeData(TypeInfo);
// skip unitname
PropInfo:=(@TypeData^.UnitName+Length(TypeData^.UnitName)+1);
// read property count
CurCount:=PWord(PropInfo)^;
// Now point PropInfo to first propinfo record.
inc(Longint(PropInfo),SizeOf(Word));
{writeln('TPropInfoList.Create D ',CurCount,' TypeData^.ClassType=',HexStr(Cardinal(TypeData^.ClassType),8));
writeln('TPropInfoList.Create E ClassName="',TypeData^.ClassType.ClassName,'"',
' TypeInfo=',HexStr(Cardinal(TypeInfo),8),
' TypeData^.ClassType.ClassInfo=',HexStr(Cardinal(TypeData^.ClassType.ClassInfo),8),
' TypeData^.ClassType.ClassParent=',HexStr(Cardinal(TypeData^.ClassType.ClassParent),8),
' TypeData^.ParentInfo=',HexStr(Cardinal(TypeData^.ParentInfo),8),
'');
CurParent:=TypeData^.ClassType.ClassParent;
if CurParent<>nil then begin
writeln('TPropInfoList.Create F CurParent.ClassName=',CurParent.ClassName,
' CurParent.ClassInfo=',HexStr(Cardinal(CurParent.ClassInfo),8),
'');
end;}
// read properties
while CurCount>0 do begin
if PropInfo^.PropType^.Kind in Filter then begin
// check if name already exists in list
@ -1237,7 +1259,6 @@ begin
end;
TypeInfo:=TypeData^.ParentInfo;
if TypeInfo=nil then break;
TypeData:=GetTypeData(TypeInfo);
until false;
// create FList