mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 21:51:42 +02:00
+ Added PathDelim,DriveDelim,PathSep
This commit is contained in:
parent
25ba6fe2ea
commit
2a04e66b42
@ -233,6 +233,21 @@ Var
|
||||
{$endif MT}
|
||||
InOutRes : Word;
|
||||
|
||||
{****************************************************************************
|
||||
System specific variables
|
||||
****************************************************************************}
|
||||
|
||||
const
|
||||
{$ifndef unix}
|
||||
PathDelim = '\';
|
||||
DriveDelim = ':';
|
||||
PathSep = ';';
|
||||
{$else}
|
||||
PathDelim = '/';
|
||||
DriveDelim = '';
|
||||
PathSep = ':';
|
||||
{$endif}
|
||||
|
||||
{****************************************************************************
|
||||
Processor specific routines
|
||||
****************************************************************************}
|
||||
@ -554,7 +569,10 @@ const
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.36 2001-10-09 02:32:51 carl
|
||||
Revision 1.37 2001-11-07 13:52:37 michael
|
||||
+ Added PathDelim,DriveDelim,PathSep
|
||||
|
||||
Revision 1.36 2001/10/09 02:32:51 carl
|
||||
* bugfix #1639 (IsMultiThread varialbe setting)
|
||||
|
||||
Revision 1.35 2001/08/19 21:02:01 florian
|
||||
@ -683,4 +701,4 @@ const
|
||||
Revision 1.2 2000/07/13 11:33:45 michael
|
||||
+ removed logs
|
||||
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user