* removed warning when GetEnvironmentVariable() does not return a

    a unicodestring

git-svn-id: branches/cpstrrtl@25305 -

rtl/objpas/sysutils/filutil.inc

@@ -386,7 +386,7 @@ Var
 begin
   D:=DirList;
   if (D='') then
-    D:=GetEnvironmentVariable('PATH');
+    D:=UnicodeString(GetEnvironmentVariable('PATH'));
 {$ifdef unix}
   O:=[];
 {$else unix}