paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +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 }
case target_info.system of
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:
target_unsup_features:=[f_threading,f_commandargs,f_fileio,f_textio,f_consoleio,f_dynlibs];
system_i386_nativent:

20
rtl/gba/system.pp
View File

@ -19,11 +19,6 @@ interface
{$define __ARM__}
{$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 gbabiosh.inc}
@ -52,7 +47,7 @@ const
MaxPathLen = 255;
AllFilesMask = '*';
sLineBreak : string[1] = LineEnding;
sLineBreak = LineEnding;
DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsCRLF;
UnusedHandle = $ffff;
@ -60,9 +55,6 @@ const
StdOutputHandle = 1;
StdErrorHandle = $ffff;
var
argc: LongInt = 0;
argv: PPChar;
@ -126,21 +118,21 @@ const
{ set randseed to a new pseudo random value }
procedure randomize();
begin
RandSeed := 63458;
RandSeed := 63458;
end;
procedure randomize(value: integer);
begin
RandSeed := value;
RandSeed := value;
end;
function random(): integer;
function random(): integer;
begin
RandSeed := QRAN_A * RandSeed + QRAN_C;
random := (RandSeed shr 16) and QRAN_MAX;
end;
function random(value: integer): integer;
function random(value: integer): integer;
var
a: integer;
begin
@ -150,7 +142,7 @@ begin
end;
{$ifdef FPC_HAS_FEATURE_COMMANDARGS}
{$ifdef FPC_HAS_FEATURE_COMMANDARGS}
{ number of args }
function paramcount : longint;
begin