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

* fexpand('o:') fixed to return o:\ (from the mailinglist)

Browse Source
This commit is contained in:
peter 1998-11-23 12:48:02 +00:00
parent defda2181e
commit f224c7d84f
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/dos/dos.pp
View File

@ -977,7 +977,7 @@ end;
dec(byte(pa[0]));
{ if only a drive is given in path then there should be a '\' at the
end of the string given back }
if length(path) = 2 then pa := pa + '\';
if length(pa) = 2 then pa := pa + '\';
fexpand:=pa;
end;
@ -1162,7 +1162,10 @@ End;
end.
{
$Log$
Revision 1.17 1998-11-22 09:33:21 florian
Revision 1.18 1998-11-23 12:48:02 peter
* fexpand('o:') fixed to return o:\ (from the mailinglist)
Revision 1.17 1998/11/22 09:33:21 florian
* fexpand bug (temp. strings were too shoort) fixed, was reported
by Marco van de Voort