paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 23:11:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use AllowDirectorySeparators

Browse Source 
git-svn-id: trunk@10109 -
This commit is contained in:
peter 2008-01-29 23:32:01 +00:00
parent 8c0adc7f3d
commit 7ceeb83014
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dw_html.pp
View File

@ -637,7 +637,7 @@ begin
EndIndex := Length(AFilename); EndIndex := Length(AFilename);
if EndIndex = 0 then if EndIndex = 0 then
exit; exit;
while not (AFilename[EndIndex] in DirSeparators) do while not (AFilename[EndIndex] in AllowDirectorySeparators) do
begin begin
Dec(EndIndex); Dec(EndIndex);
if EndIndex = 0 then if EndIndex = 0 then
@ -2010,7 +2010,7 @@ var
begin begin
CurDirectory := Allocator.GetFilename(AElement, ASubpageIndex); CurDirectory := Allocator.GetFilename(AElement, ASubpageIndex);
i := Length(CurDirectory); i := Length(CurDirectory);
while (i > 0) and not (CurDirectory[i] in DirSeparators) do while (i > 0) and not (CurDirectory[i] in AllowDirectorySeparators) do
Dec(i); Dec(i);
CurDirectory := Copy(CurDirectory, 1, i); CurDirectory := Copy(CurDirectory, 1, i);
BaseDirectory := Allocator.GetRelativePathToTop(AElement); BaseDirectory := Allocator.GetRelativePathToTop(AElement);