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

* Small fix from Andrey to improve link resolving

Browse Source 
git-svn-id: trunk@48441 -
(cherry picked from commit 89149a2f9f)
This commit is contained in:
michael 2021-01-28 07:01:38 +00:00 committed by Florian Klämpfl
parent c3cd59d03f
commit 9d8955d25c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/dwriter.pp
View File

@ -1067,7 +1067,7 @@ function TLongNameFileAllocator.GetFilename(AElement: TPasElement; ASubindex: In
var var
n,s: String; n,s: String;
i: Integer; i: Integer;
MElement: TPasElement;
begin begin
Result:=''; Result:='';
if AElement.ClassType = TPasPackage then if AElement.ClassType = TPasPackage then
@ -1105,7 +1105,9 @@ begin
end else end else
Result := LowerCase(AElement.PathName); Result := LowerCase(AElement.PathName);
// cut off Package Name // cut off Package Name
AElement:= AElement.GetModule; MElement:= AElement.GetModule;
if Assigned(MElement) then
AElement:= MElement;
Result := Copy(Result, Length(AElement.Parent.Name) + 2, MaxInt); Result := Copy(Result, Length(AElement.Parent.Name) + 2, MaxInt);
// to skip dots in unit name // to skip dots in unit name
i := Length(AElement.Name); i := Length(AElement.Name);