Explorar o código

IDE: made FixFileName to actually fix and not break file names on Amiga-like systems

git-svn-id: trunk@30359 -
Károly Balogh %!s(int64=10) %!d(string=hai) anos
pai
achega
226c184d14
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      ide/fputils.pas

+ 4 - 0
ide/fputils.pas

@@ -157,8 +157,12 @@ begin
             else
              FixFileName[i]:=s[i];
  {$else}
+ {$ifndef hasamiga}
       '/' : FixFileName[i]:='\';
  'A'..'Z' : FixFileName[i]:=char(byte(s[i])+32);
+ {$else}
+      '\' : FixFileName[i]:='/';
+ {$endif}
  {$endif}
      else
       FixFileName[i]:=s[i];