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

MG: started basetype chaching

Browse Source 
git-svn-id: trunk@665 -
This commit is contained in:
lazarus 2002-02-05 21:59:21 +00:00
parent 9b9e3cfba0
commit c64d618c01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -281,7 +281,7 @@ type
procedure DoDeleteNodes; override; procedure DoDeleteNodes; override;
procedure ClearNodeCaches(Force: boolean); procedure ClearNodeCaches(Force: boolean);
function CreateNewNodeCache(Node: TCodeTreeNode): TCodeTreeNodeCache; function CreateNewNodeCache(Node: TCodeTreeNode): TCodeTreeNodeCache;
function CreateNewBaseTypeCache(Node: TCodeTreeNode): TCodeTreeNodeCache; function CreateNewBaseTypeCache(Node: TCodeTreeNode): TBaseTypeCache;
function GetNodeCache(Node: TCodeTreeNode; function GetNodeCache(Node: TCodeTreeNode;
CreateIfNotExists: boolean): TCodeTreeNodeCache; CreateIfNotExists: boolean): TCodeTreeNodeCache;
procedure AddResultToNodeCaches(Identifier: PChar; procedure AddResultToNodeCaches(Identifier: PChar;
@ -3732,7 +3732,7 @@ begin
end; end;
function TFindDeclarationTool.CreateNewBaseTypeCache(Node: TCodeTreeNode function TFindDeclarationTool.CreateNewBaseTypeCache(Node: TCodeTreeNode
): TCodeTreeNodeCache; ): TBaseTypeCache;
begin begin
Result:=BaseTypeCacheMemManager.NewBaseTypeCache(Node); Result:=BaseTypeCacheMemManager.NewBaseTypeCache(Node);
Result.Next:=FFirstBaseTypeCache; Result.Next:=FFirstBaseTypeCache;