paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 16:09:24 +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) Delete (Pa, 1, 1)
else else
if S [Length (S)] = DirSep then if S [Length (S)] = DirSep then
Pa := S + Copy (Pa, 3, Length (Pa - 2)) Pa := S + Copy (Pa, 3, Length (Pa) - 2)
else else
Pa := S + Copy (Pa, 2, Pred (Length (Pa))); Pa := S + Copy (Pa, 2, Pred (Length (Pa)));
end; end;
@ -200,7 +200,10 @@ end;
{ {
$Log$ $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 * FExpand without IOResult change, remaining direct asm removed