paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 05:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ some dummy consts for the file io

Browse Source 
git-svn-id: branches/z80@45030 -
This commit is contained in:
nickysn 2020-04-23 02:58:33 +00:00
parent 4c5f095422
commit 91eeb82e5a
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/zxspectrum/system.pp
View File

@ -110,6 +110,20 @@ implementation
{$ifdef FULL_RTL}
const
LineEnding = #13#10;
{ LFNSupport is a variable here, defined below!!! }
DirectorySeparator = '\';
DriveSeparator = ':';
ExtensionSeparator = '.';
PathSeparator = ';';
AllowDirectorySeparators : set of char = ['\','/'];
AllowDriveSeparators : set of char = [':'];
{ FileNameCaseSensitive and FileNameCasePreserving are defined separately below!!! }
maxExitCode = 255;
MaxPathLen = 256;
{$I system.inc}
{$I tinyheap.inc}