From 06364845d60119f7d5c2fc636dd849222ebae55a Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Fri, 26 Oct 2018 08:08:20 +0000
Subject: [PATCH] pastojs: ExpandFileNamePJ for \\?\

git-svn-id: trunk@40047 -
---
 packages/pastojs/src/pas2jsfileutilswin.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/pastojs/src/pas2jsfileutilswin.inc b/packages/pastojs/src/pas2jsfileutilswin.inc
index 2d5d3b73d4..a1af69ccd7 100644
--- a/packages/pastojs/src/pas2jsfileutilswin.inc
+++ b/packages/pastojs/src/pas2jsfileutilswin.inc
@@ -287,7 +287,7 @@ begin
   //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
      (Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here!
-     then Exit;
+     then Exit(FN);
   ForcePathDelims(Fn);
   IsAbs := FileNameIsWinAbsolute(Fn);
   if not IsAbs then