paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Andrey Sobol to fix broken topic links

Browse Source 
git-svn-id: trunk@48439 -
This commit is contained in:
michael 2021-01-27 21:29:12 +00:00
parent 706e72e1fd
commit c3aca47e50
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_chm.pp
View File

@ -72,6 +72,7 @@ var
n,s: String; n,s: String;
i: Integer; i: Integer;
excl: Boolean; //search excl: Boolean; //search
MElement: TPasElement;
begin begin
Result:=''; Result:='';
excl := False; excl := False;
@ -120,7 +121,9 @@ begin
excl := (ASubindex > 0); excl := (ASubindex > 0);
end; end;
// 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);