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

* mistyping in the Unix part fixed

Browse Source
This commit is contained in:
Tomas Hajny 2001-03-19 21:05:42 +00:00
parent 3005bc8b7b
commit 0d616f2cca
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/fexpand.inc
View File

@ -75,7 +75,7 @@ begin
Delete (Pa, 1, 1)
else
if S [Length (S)] = DirSep then
Pa := S + Copy (Pa, 3, Length (Pa - 2))
Pa := S + Copy (Pa, 3, Length (Pa) - 2)
else
Pa := S + Copy (Pa, 2, Pred (Length (Pa)));
end;
@ -200,7 +200,10 @@ end;
{
$Log$
Revision 1.2 2001-03-10 09:57:51 hajny
Revision 1.3 2001-03-19 21:05:42 hajny
* mistyping in the Unix part fixed
Revision 1.2 2001/03/10 09:57:51 hajny
* FExpand without IOResult change, remaining direct asm removed