paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 05:06:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added PathDelim,DriveDelim,PathSep

Browse Source
This commit is contained in:
michael 2001-11-07 13:52:37 +00:00
parent 25ba6fe2ea
commit 2a04e66b42
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/systemh.inc
View File

@ -233,6 +233,21 @@ Var
{$endif MT} {$endif MT}
InOutRes : Word; InOutRes : Word;
{****************************************************************************
System specific variables
****************************************************************************}
const
{$ifndef unix}
PathDelim = '\';
DriveDelim = ':';
PathSep = ';';
{$else}
PathDelim = '/';
DriveDelim = '';
PathSep = ':';
{$endif}
{**************************************************************************** {****************************************************************************
Processor specific routines Processor specific routines
****************************************************************************} ****************************************************************************}
@ -554,7 +569,10 @@ const
{ {
$Log$ $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) * bugfix #1639 (IsMultiThread varialbe setting)
Revision 1.35 2001/08/19 21:02:01 florian 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 Revision 1.2 2000/07/13 11:33:45 michael
+ removed logs + removed logs
} }