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

+ allow double backslash for network drives

Browse Source
This commit is contained in:
pierre 2000-03-22 08:00:42 +00:00
parent 0578c906ee
commit 299ec9d3dc
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/go32v2/dos.pp
View File

@ -873,7 +873,11 @@ begin
end end
else else
if pa[1]='\' then if pa[1]='\' then
pa:=s[1]+':'+pa begin
{ Do not touch Network drive names if LFNSupport is true }
if not ((Length(pa)>1) and (pa[2]='\') and LFNSupport) then
pa:=s[1]+':'+pa;
end
else if s[0]=#3 then else if s[0]=#3 then
pa:=s+pa pa:=s+pa
else else
@ -1169,7 +1173,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.22 2000-02-09 16:59:28 peter Revision 1.23 2000-03-22 08:00:42 pierre
+ allow double backslash for network drives
Revision 1.22 2000/02/09 16:59:28 peter
* truncated log * truncated log
Revision 1.21 2000/02/09 13:00:32 peter Revision 1.21 2000/02/09 13:00:32 peter
@ -1215,4 +1222,3 @@ end.
} }