paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 18:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* proper feature handling for gba

Browse Source 
* slinebreak shall be a real constant

git-svn-id: trunk@19973 -
This commit is contained in:
florian 2012-01-05 17:27:02 +00:00
parent c8a7063602
commit e0d7af703a
2 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/options.pas
View File

@ -2295,7 +2295,7 @@ begin
{ Features } { Features }
case target_info.system of case target_info.system of
system_arm_gba: system_arm_gba:
target_unsup_features:=[f_threading,f_commandargs,f_fileio,f_textio,f_consoleio,f_dynlibs]; target_unsup_features:=[f_dynlibs];
system_arm_nds: system_arm_nds:
target_unsup_features:=[f_threading,f_commandargs,f_fileio,f_textio,f_consoleio,f_dynlibs]; target_unsup_features:=[f_threading,f_commandargs,f_fileio,f_textio,f_consoleio,f_dynlibs];
system_i386_nativent: system_i386_nativent:

10
rtl/gba/system.pp
View File

@ -19,11 +19,6 @@ interface
{$define __ARM__} {$define __ARM__}
{$define FPC_IS_SYSTEM} {$define FPC_IS_SYSTEM}
{$define FPC_HAS_FEATURE_THREADING}
{$define FPC_HAS_FEATURE_CONSOLEIO}
{$define FPC_HAS_FEATURE_COMMANDARGS}
{$define FPC_HAS_FEATURE_TEXTIO}
{$define FPC_HAS_FEATURE_FILEIO}
{$i systemh.inc} {$i systemh.inc}
{$i gbabiosh.inc} {$i gbabiosh.inc}
@ -52,7 +47,7 @@ const
MaxPathLen = 255; MaxPathLen = 255;
AllFilesMask = '*'; AllFilesMask = '*';
sLineBreak : string[1] = LineEnding; sLineBreak = LineEnding;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF; DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
UnusedHandle = $ffff; UnusedHandle = $ffff;
@ -60,9 +55,6 @@ const
StdOutputHandle = 1; StdOutputHandle = 1;
StdErrorHandle = $ffff; StdErrorHandle = $ffff;
var var
argc: LongInt = 0; argc: LongInt = 0;
argv: PPChar; argv: PPChar;