Преглед изворни кода

* use directory separator from System unit

git-svn-id: trunk@12794 -
Károly Balogh пре 16 година
родитељ
комит
d800d165de
1 измењених фајлова са 2 додато и 2 уклоњено
  1. 2 2
      ide/fputils.pas

+ 2 - 2
ide/fputils.pas

@@ -19,14 +19,14 @@ interface
 uses Objects;
 
 const
+  dirsep = System.DirectorySeparator;
+  
 {$ifdef Unix}
-  dirsep = '/';
   listsep = [';',':'];
   exeext = '';
   pasext = '.pas';
   ppext  = '.pp';
 {$else}
-  dirsep = '\';
   listsep = [';'];
   exeext = '.exe';
   pasext = '.pas';