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

* try to resolve relative url first in current package before current module,

Browse Source 
solves bug #17146

git-svn-id: trunk@15768 -
This commit is contained in:
marco 2010-08-10 23:25:18 +00:00
parent b1b6ef237a
commit 1e7e80bfb3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dglobals.pp
View File

@ -984,6 +984,10 @@ begin
Result := FindAbsoluteLink(ALinkDest) Result := FindAbsoluteLink(ALinkDest)
else else
begin begin
Result := ResolveLink(AModule, amodule.packagename + '.' + ALinkDest);
if Length(Result) > 0 then
exit;
Result := ResolveLink(AModule, AModule.PathName + '.' + ALinkDest); Result := ResolveLink(AModule, AModule.PathName + '.' + ALinkDest);
if Length(Result) > 0 then if Length(Result) > 0 then
exit; exit;