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

pastojs: ExpandFileNamePJ for \\?\

Browse Source 
git-svn-id: trunk@40047 -
This commit is contained in:
Mattias Gaertner 2018-10-26 08:08:20 +00:00
parent 70a21c91c1
commit 06364845d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/pas2jsfileutilswin.inc
View File

@ -287,7 +287,7 @@ begin
//See: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247%28v=vs.85%29.aspx //See: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247%28v=vs.85%29.aspx
if (Length(Fn) > 3) and (Fn[1] = PathDelim) and (Fn[2] = PathDelim) and if (Length(Fn) > 3) and (Fn[1] = PathDelim) and (Fn[2] = PathDelim) and
(Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here! (Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here!
then Exit; then Exit(FN);
ForcePathDelims(Fn); ForcePathDelims(Fn);
IsAbs := FileNameIsWinAbsolute(Fn); IsAbs := FileNameIsWinAbsolute(Fn);
if not IsAbs then if not IsAbs then