paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 00:09:33 +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:

20
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;
@ -126,21 +118,21 @@ const
{ set randseed to a new pseudo random value } { set randseed to a new pseudo random value }
procedure randomize(); procedure randomize();
begin begin
RandSeed := 63458; RandSeed := 63458;
end; end;
procedure randomize(value: integer); procedure randomize(value: integer);
begin begin
RandSeed := value; RandSeed := value;
end; end;
function random(): integer; function random(): integer;
begin begin
RandSeed := QRAN_A * RandSeed + QRAN_C; RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX; random := (RandSeed shr 16) and QRAN_MAX;
end; end;
function random(value: integer): integer; function random(value: integer): integer;
var var
a: integer; a: integer;
begin begin
@ -150,7 +142,7 @@ begin
end; end;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS} {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
{ number of args } { number of args }
function paramcount : longint; function paramcount : longint;
begin begin