diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 14fa53b94eecb7425bbb1d8b8746eb4e412a5826..790feb7a60a4aef96629831d2801b2ea1b54a56f 100644 (file)
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
// ////////////////////////////////////////////////////////////////////////// //
// 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;