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

+ Patch from Vincent Snijder to fix multiple content files and use DirectoryExists

Browse Source 
git-svn-id: trunk@1989 -
This commit is contained in:
michael 2005-12-19 08:10:50 +00:00
parent df7ecf0872
commit 675d051274
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dglobals.pp
View File

@ -538,7 +538,10 @@ var
begin begin
PrevSpaces := 0; PrevSpaces := 0;
CurParent := RootLinkNode; CurParent := RootLinkNode;
PrevSibling := nil; PrevSibling := CurParent.FirstChild;
if assigned(PrevSibling) then
while assigned(PrevSibling.NextSibling) do
PrevSibling := PrevSibling.NextSibling;
StackIndex := 0; StackIndex := 0;
while True do while True do
begin begin

2
utils/fpdoc/dw_html.pp
View File

@ -638,7 +638,7 @@ begin
end; end;
Path := Copy(AFilename, 1, EndIndex - 1); Path := Copy(AFilename, 1, EndIndex - 1);
if not FileExists(Path) then if not DirectoryExists(Path) then
begin begin
CreatePath(Path); CreatePath(Path);
MkDir(Path); MkDir(Path);