RxFPC: fix compile rxfileutils on windows

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5825 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2017-03-30 06:53:18 +00:00
parent c60a38defc
commit 7a395b0e3e
2 changed files with 2 additions and 11 deletions
--- a/components/rx/trunk/rxtools/rxfileutils.pas
+++ b/components/rx/trunk/rxtools/rxfileutils.pas
@ -150,7 +150,9 @@ end;
 function GetFileOwnerUser(const SearchDomain, FileName: String): String;
 var
  S:string;
+  {$IFNDEF WINDOWS}
  FStat: stat;
+  {$ENDIF}
 begin
  {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
 (*  GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), Result, S);