From ad455d05b11eb1c0cc373648884d5778a3bca9e7 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 31 Mar 2013 13:05:36 +0000
Subject: [PATCH]  * throw warning when there is a space in the XCT imported
 link.

git-svn-id: trunk@24089 -
---
 utils/fpdoc/dglobals.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index 0cb01f8647..9cb2ff55fd 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/utils/fpdoc/dglobals.pp
@@ -692,6 +692,8 @@ var
         Inc(i);
       NewNode := TLinkNode.Create(Copy(s, ThisSpaces + 1, i - ThisSpaces - 1),
         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
         PrevSibling.FNextSibling := NewNode
       else