Parcourir la source

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

git-svn-id: trunk@30359 -
Károly Balogh il y a 10 ans
Parent
commit
226c184d14
1 fichiers modifiés avec 4 ajouts et 0 suppressions
  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];