From 675d051274d62d8b1368a69dec853b94bc8138bb Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 19 Dec 2005 08:10:50 +0000
Subject: [PATCH] + Patch from Vincent Snijder to fix multiple content files
 and use DirectoryExists

git-svn-id: trunk@1989 -
---
 utils/fpdoc/dglobals.pp | 5 ++++-
 utils/fpdoc/dw_html.pp  | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index f76c902e2c..7904876d85 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/utils/fpdoc/dglobals.pp
@@ -538,7 +538,10 @@ var
   begin
     PrevSpaces := 0;
     CurParent := RootLinkNode;
-    PrevSibling := nil;
+    PrevSibling := CurParent.FirstChild;
+    if assigned(PrevSibling) then
+      while assigned(PrevSibling.NextSibling) do
+        PrevSibling := PrevSibling.NextSibling;
     StackIndex := 0;
     while True do
     begin
diff --git a/utils/fpdoc/dw_html.pp b/utils/fpdoc/dw_html.pp
index 1aba4fa5c4..df00ce60f5 100644
--- a/utils/fpdoc/dw_html.pp
+++ b/utils/fpdoc/dw_html.pp
@@ -638,7 +638,7 @@ begin
   end;
 
   Path := Copy(AFilename, 1, EndIndex - 1);
-  if not FileExists(Path) then
+  if not DirectoryExists(Path) then
   begin
     CreatePath(Path);
     MkDir(Path);