소스 검색

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
             else
              FixFileName[i]:=s[i];
              FixFileName[i]:=s[i];
  {$else}
  {$else}
+ {$ifndef hasamiga}
       '/' : FixFileName[i]:='\';
       '/' : FixFileName[i]:='\';
  'A'..'Z' : FixFileName[i]:=char(byte(s[i])+32);
  'A'..'Z' : FixFileName[i]:=char(byte(s[i])+32);
+ {$else}
+      '\' : FixFileName[i]:='/';
+ {$endif}
  {$endif}
  {$endif}
      else
      else
       FixFileName[i]:=s[i];
       FixFileName[i]:=s[i];