mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-02 07:27:54 +02:00
* part of previous commit
git-svn-id: trunk@3709 -
This commit is contained in:
parent
2a62055580
commit
098033d56b
@ -217,7 +217,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
{ remove ending slash if it already exists }
|
{ remove ending slash if it already exists }
|
||||||
if S [Length (S)] = DirectorySeparator then
|
if S [Length (S)] = DirectorySeparator then
|
||||||
Dec (S [0]);
|
SetLength(S,Length(s)-1);
|
||||||
Pa := S + DirectorySeparator +
|
Pa := S + DirectorySeparator +
|
||||||
Copy (Pa, PathStart, Length (Pa) - PathStart + 1)
|
Copy (Pa, PathStart, Length (Pa) - PathStart + 1)
|
||||||
end
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user