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

* Strict resolving

Browse Source 
git-svn-id: trunk@23537 -
This commit is contained in:
michael 2013-01-29 19:01:39 +00:00
parent e247d1fa1a
commit 528e231c66
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/fpdoc/dw_html.pp
View File

@ -923,7 +923,7 @@ var
i: Integer;
ThisPackage: TLinkNode;
begin
Result:=Engine.ResolveLink(Module,Name, False);
Result:=Engine.ResolveLink(Module,Name, True);
if Length(Result) > 0 then
if Copy(Result, 1, Length(CurDirectory) + 1) = CurDirectory + '/' then
Result := Copy(Result, Length(CurDirectory) + 2, Length(Result))
@ -1758,17 +1758,18 @@ begin
CodeEl := CreateCode(CreatePara(CreateTD(CreateTR(TableEl))));
AppendSym(CodeEl, ')');
end;
end else
begin
end
else
begin
{ Procedure or function without arguments }
if Element.InheritsFrom(TPasFunctionType) then
begin
begin
AppendSym(CodeEl, ': ');
AppendHyperlink(CodeEl, TPasFunctionType(Element).ResultEl.ResultType);
end;
end;
if Element.IsOfObject then
AppendKw(CodeEl, ' of object');
end;
end;
Result := CodeEl;
end;