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

Converter: Fix the return value of MaybeAddPackageDep. (It was not used yet, no bugs caused.)

Browse Source 
git-svn-id: trunk@53844 -
This commit is contained in:
juha 2017-01-02 22:26:21 +00:00
parent f009e795cb
commit a6975f0f66
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
converter/usedunits.pas
View File

@ -651,6 +651,7 @@ end;
function TUsedUnitsTool.MaybeAddPackageDep(aUnitName: string): Boolean; function TUsedUnitsTool.MaybeAddPackageDep(aUnitName: string): Boolean;
// Add a dependency to a package containing the unit and open it. // Add a dependency to a package containing the unit and open it.
// Called when the unit is not found. // Called when the unit is not found.
// Returns True if a dependency was really added.
var var
s: String; s: String;
begin begin
@ -658,7 +659,7 @@ begin
s:=''; s:='';
if fCTLink.CodeTool.DirectoryCache.FindUnitSourceInCompletePath(aUnitName,s,True) = '' then if fCTLink.CodeTool.DirectoryCache.FindUnitSourceInCompletePath(aUnitName,s,True) = '' then
if Assigned(fOnCheckPackageDependency) then if Assigned(fOnCheckPackageDependency) then
Result := not fOnCheckPackageDependency(aUnitName); Result := fOnCheckPackageDependency(aUnitName);
end; end;
function TUsedUnitsTool.ConvertUsed: TModalResult; function TUsedUnitsTool.ConvertUsed: TModalResult;