X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Futils.pas;h=790feb7a60a4aef96629831d2801b2ea1b54a56f;hp=14fa53b94eecb7425bbb1d8b8746eb4e412a5826;hb=b4b66ea803f8d896c2b2abd75108ef233030da03;hpb=2d2ce4c1770a59c3e780f3fd31249ce6043f374c

diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 14fa53b..790feb7 100644
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
@@ -342,11 +342,15 @@ end;
 // ////////////////////////////////////////////////////////////////////////// //
 // rewrites slashes to '/'
 function fixSlashes (s: AnsiString): AnsiString;
+{$IFDEF WINDOWS}
 var
   f: Integer;
+{$ENDIF}
 begin
   result := s;
+  {$IFDEF WINDOWS}
   for f := 1 to length(result) do if (result[f] = '\') then result[f] := '/';
+  {$ENDIF}
 end;