paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation of embedded system unit

Browse Source 
git-svn-id: trunk@11559 -
This commit is contained in:
florian 2008-08-12 20:58:55 +00:00
parent 8f95bb12ac
commit 27ff21f00e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/embedded/system.pp
View File

@ -28,9 +28,9 @@ Unit System;
{$I systemh.inc} {$I systemh.inc}
const
{ {
fix me fix me
const
LineEnding = #10; LineEnding = #10;
LFNSupport = true; LFNSupport = true;
DirectorySeparator = '/'; DirectorySeparator = '/';
@ -40,7 +40,11 @@ const
AllowDirectorySeparators : set of char = ['\','/']; AllowDirectorySeparators : set of char = ['\','/'];
AllowDriveSeparators : set of char = [':']; AllowDriveSeparators : set of char = [':'];
{ FileNameCaseSensitive is defined below! } { FileNameCaseSensitive is defined below! }
}
{$ifdef FPC_HAS_FEATURE_EXITCODE}
maxExitCode = 255; maxExitCode = 255;
{$endif FPC_HAS_FEATURE_EXITCODE}
{
MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
AllFilesMask = '*'; AllFilesMask = '*';