mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-21 20:19:37 +01:00
* Fix bug #24271, fpdoc failing on dotted unit names
git-svn-id: trunk@30624 -
This commit is contained in:
parent
f3e8240230
commit
faaae8b2a2
@ -475,9 +475,6 @@ begin
|
||||
LastChild := Child;
|
||||
Child := Child.NextSibling;
|
||||
end;
|
||||
{ No child found, let's create one if we are at the end of the path }
|
||||
if DotPos > 0 then
|
||||
Raise Exception.CreateFmt('Link path does not exist: %s',[APathName]);
|
||||
Result := TLinkNode.Create(ChildName, ALinkTo);
|
||||
if Assigned(LastChild) then
|
||||
LastChild.FNextSibling := Result
|
||||
|
||||
Loading…
Reference in New Issue
Block a user