mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 17:40:28 +02:00
* use directory separator from System unit
git-svn-id: trunk@12794 -
This commit is contained in:
parent
7798d6a265
commit
d800d165de
@ -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';
|
||||||
|
Loading…
Reference in New Issue
Block a user