paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 07:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation of embedded system unit: path helper functions depend now on the avaibility of the textio/fileio feature

Browse Source 
git-svn-id: trunk@12599 -
This commit is contained in:
florian 2009-01-26 08:23:38 +00:00
parent 3ef9342d59
commit 2510af64d1
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/embedded/system.pp
View File

@ -29,18 +29,21 @@ Unit System;
{$I systemh.inc} {$I systemh.inc}
const const
{ {$ifdef FPC_HAS_FEATURE_TEXTIO}
fix me
LineEnding = #10; LineEnding = #10;
{$endif FPC_HAS_FEATURE_TEXTIO}
{$ifdef FPC_HAS_FEATURE_FILEIO}
LFNSupport = true; LFNSupport = true;
DirectorySeparator = '/'; DirectorySeparator = '/';
DriveSeparator = ':'; DriveSeparator = ':';
ExtensionSeparator = '.'; ExtensionSeparator = '.';
PathSeparator = ':'; PathSeparator = ':';
AllowDirectorySeparators : set of char = ['\','/']; AllowDirectorySeparators : set of char = ['\','/'];
AllowDriveSeparators : set of char = [':']; AllowDriveSeparators : set of char = [':'];
{$endif FPC_HAS_FEATURE_FILEIO}
{ FileNameCaseSensitive is defined below! } { FileNameCaseSensitive is defined below! }
}
{$ifdef FPC_HAS_FEATURE_EXITCODE} {$ifdef FPC_HAS_FEATURE_EXITCODE}
maxExitCode = 255; maxExitCode = 255;
{$endif FPC_HAS_FEATURE_EXITCODE} {$endif FPC_HAS_FEATURE_EXITCODE}

3
rtl/inc/system.inc
View File

@ -1284,6 +1284,8 @@ end;
File Handling File Handling
*****************************************************************************} *****************************************************************************}
{$ifdef FPC_HAS_FEATURE_FILEIO}
{ Allow slash and backslash as separators } { Allow slash and backslash as separators }
procedure DoDirSeparators(p:Pchar); procedure DoDirSeparators(p:Pchar);
var var
@ -1302,6 +1304,7 @@ begin
if p[i] in AllowDirectorySeparators then if p[i] in AllowDirectorySeparators then
p[i]:=DirectorySeparator; p[i]:=DirectorySeparator;
end; end;
{$endif FPC_HAS_FEATURE_FILEIO}
{ OS dependent low level file functions } { OS dependent low level file functions }
{$ifdef FPC_HAS_FEATURE_FILEIO} {$ifdef FPC_HAS_FEATURE_FILEIO}