ソースを参照

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

git-svn-id: trunk@30359 -
Károly Balogh 10 年 前
コミット
226c184d14
1 ファイル変更4 行追加0 行削除
  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];