paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 06:08:16 +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}
const
{
fix me
const
LineEnding = #10;
LFNSupport = true;
DirectorySeparator = '/';
@ -40,7 +40,11 @@ const
AllowDirectorySeparators : set of char = ['\','/'];
AllowDriveSeparators : set of char = [':'];
{ FileNameCaseSensitive is defined below! }
}
{$ifdef FPC_HAS_FEATURE_EXITCODE}
maxExitCode = 255;
{$endif FPC_HAS_FEATURE_EXITCODE}
{
MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
AllFilesMask = '*';