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

* throw warning when there is a space in the XCT imported link.

Browse Source 
git-svn-id: trunk@24089 -
This commit is contained in:
marco 2013-03-31 13:05:36 +00:00
parent 7ad6c5028e
commit ad455d05b1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpdoc/dglobals.pp
View File

@ -692,6 +692,8 @@ var
Inc(i); Inc(i);
NewNode := TLinkNode.Create(Copy(s, ThisSpaces + 1, i - ThisSpaces - 1), NewNode := TLinkNode.Create(Copy(s, ThisSpaces + 1, i - ThisSpaces - 1),
ALinkPrefix + Copy(s, i + 1, Length(s))); ALinkPrefix + Copy(s, i + 1, Length(s)));
if pos(' ',newnode.link)>0 then
writeln(stderr,'Bad format imported node: name="',newnode.name,'" link="',newnode.link,'"');
if Assigned(PrevSibling) then if Assigned(PrevSibling) then
PrevSibling.FNextSibling := NewNode PrevSibling.FNextSibling := NewNode
else else