From e7025b67593b3309fd219dfe0a81606dcf6ba7fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 30 Jun 2018 16:51:41 +0000
Subject: [PATCH] another fix for the new warning introduced in r39347,
 hopefully it fixes win32 build

git-svn-id: trunk@39352 -
---
 compiler/cfileutl.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index 167e52154a..445452fb58 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -1300,6 +1300,7 @@ end;
         GetShortName:=n;
 {$ifdef win32}
         hs:=n+#0;
+        hs2:='';
         { may become longer in case of e.g. ".a" -> "a~1" or so }
         setlength(hs2,length(hs)*2);
         i:=Windows.GetShortPathName(@hs[1],@hs2[1],length(hs)*2);