paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +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
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

2
utils/fpdoc/dw_html.pp
View File

@ -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);