* proper feature handling for gba

* slinebreak shall be a real constant

git-svn-id: trunk@19973 -

compiler/options.pas

@@ -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:

rtl/gba/system.pp

@@ -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