paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-29 12:23:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: set DirectoryCache of tool, removed auto fetching

Browse Source 
git-svn-id: trunk@41552 -
This commit is contained in:
mattias 2013-06-05 19:07:50 +00:00
parent 324c59bc5d
commit 4ce8683fd7
3 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codetoolmanager.pas
View File

@ -5564,6 +5564,9 @@ begin
TCodeTool(Result).OnFindUsedUnit:=@DoOnFindUsedUnit;
TCodeTool(Result).OnGetSrcPathForCompiledUnit:=@DoOnGetSrcPathForCompiledUnit;
TCodeTool(Result).OnGetMethodName:=@DoOnInternalGetMethodName;
TCodeTool(Result).DirectoryCache:=
DirectoryCachePool.GetCache(ExtractFilePath(Code.Filename),
true,true);
Result.OnSetGlobalWriteLock:=@DoOnToolSetWriteLock;
Result.OnTreeChange:=@DoOnToolTreeChange;
TCodeTool(Result).OnParserProgress:=@DoOnParserProgress;

20
components/codetools/finddeclarationtool.pas
View File

@ -731,7 +731,6 @@ type
public
constructor Create;
destructor Destroy; override;
function CheckDirectoryCache: boolean;
procedure ConsistencyCheck; override;
procedure CalcMemSize(Stats: TCTMemStats); override;
@ -869,7 +868,7 @@ type
write FOnGetMethodName;
property AdjustTopLineDueToComment: boolean
read FAdjustTopLineDueToComment write FAdjustTopLineDueToComment;
property DirectoryCache: TCTDirectoryCache read FDirectoryCache;
property DirectoryCache: TCTDirectoryCache read FDirectoryCache write FDirectoryCache;
end;
function ExprTypeToString(const ExprType: TExpressionType): string;
@ -2179,8 +2178,7 @@ begin
if (AnUnitName='') or (Scanner=nil) or (Scanner.MainCode=nil)
or (not (TObject(Scanner.MainCode) is TCodeBuffer))
or (Scanner.OnLoadSource=nil)
or (not CheckDirectoryCache) then
begin
then begin
RaiseException('TFindDeclarationTool.FindUnitSource Invalid Data');
end;
@ -2232,7 +2230,6 @@ end;
function TFindDeclarationTool.FindUnitCaseInsensitive(var AnUnitName,
AnUnitInFilename: string): string;
begin
if not CheckDirectoryCache then exit('');
Result:=DirectoryCache.FindUnitSourceInCompletePath(
AnUnitName,AnUnitInFilename,true);
end;
@ -2242,7 +2239,6 @@ procedure TFindDeclarationTool.GatherUnitAndSrcPath(var UnitPath,
begin
UnitPath:='';
CompleteSrcPath:='';
if not CheckDirectoryCache then exit;
UnitPath:=DirectoryCache.Strings[ctdcsUnitPath];
CompleteSrcPath:=DirectoryCache.Strings[ctdcsCompleteSrcPath];
//DebugLn('TFindDeclarationTool.GatherUnitAndSrcPath UnitPath="',UnitPath,'" CompleteSrcPath="',CompleteSrcPath,'"');
@ -2251,16 +2247,12 @@ end;
function TFindDeclarationTool.SearchUnitInUnitLinks(const TheUnitName: string
): string;
begin
Result:='';
if not CheckDirectoryCache then exit;
Result:=DirectoryCache.FindUnitLink(TheUnitName);
end;
function TFindDeclarationTool.SearchUnitInUnitSet(const TheUnitName: string
): string;
begin
Result:='';
if not CheckDirectoryCache then exit;
Result:=DirectoryCache.FindUnitInUnitSet(TheUnitName);
end;
@ -9425,14 +9417,6 @@ begin
end;
end;
function TFindDeclarationTool.CheckDirectoryCache: boolean;
begin
if FDirectoryCache<>nil then exit(true);
if Assigned(OnGetDirectoryCache) then
FDirectoryCache:=OnGetDirectoryCache(ExtractFilePath(MainFilename));
Result:=FDirectoryCache<>nil;
end;
constructor TFindDeclarationTool.Create;
begin
inherited Create;

3
components/codetools/stdcodetools.pas
View File

@ -1201,8 +1201,6 @@ function TStandardCodeTool.FixUsedUnitCaseInUsesSection(
CurDir:=ExtractFilePath(TCodeBuffer(Scanner.MainCode).Filename);
AFilename:=CurDir+AFilename;
end;
CheckDirectoryCache;
if DirectoryCache=nil then exit;
Result:=DirectoryCache.Pool.FindDiskFilename(AFilename,true);
if Result='' then exit;
if MakeRelative then
@ -1492,7 +1490,6 @@ const
Node: TCodeTreeNode;
begin
if UsesNode=nil then exit(true);
if not CheckDirectoryCache then exit(false);
Node:=UsesNode.FirstChild;
while Node<>nil do begin