* use directory separator from System unit

git-svn-id: trunk@12794 -
This commit is contained in:
Károly Balogh 2009-02-25 21:28:41 +00:00
parent 7798d6a265
commit d800d165de

View File

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