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

* part of previous commit

Browse Source 
git-svn-id: trunk@3709 -
This commit is contained in:
florian 2006-05-27 21:42:00 +00:00
parent 2a62055580
commit 098033d56b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/fexpand.inc
View File

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