Explorar el Código

* use directory separator from System unit

git-svn-id: trunk@12794 -
Károly Balogh hace 16 años
padre
commit
d800d165de
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  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';