* Fixed libgbafpc compilation

git-svn-id: trunk@16880 -

packages/libgbafpc/src/gba.pp

@@ -14,8 +14,8 @@ uses
 {$linklib gba}
 
 {$linklib c}
-{$linklib g}
 {$linklib gcc}
+{$linklib g}
 {$linklib sysbase}
 
 {$define GBA_INTERFACE}

rtl/gba/sysdir.inc

@@ -19,21 +19,23 @@
 {*****************************************************************************
                            Directory Handling
 *****************************************************************************}
-procedure mkdir(const s : string);[IOCheck];
+procedure mkdir(s: pchar; len: sizeuint);[IOCheck, public, alias : 'FPC_SYS_MKDIR'];
 begin
-end;
 
-procedure rmdir(const s : string);[IOCheck];
-begin
 end;
 
-procedure chdir(const s : string);[IOCheck];
+procedure rmdir(s: pchar; len: sizeuint);[IOCheck, public, alias : 'FPC_SYS_RMDIR'];
 begin
+
 end;
 
-procedure GetDir (DriveNr: byte; var Dir: ShortString);
+procedure chdir(s: pchar; len: sizeuint);[IOCheck, public, alias : 'FPC_SYS_CHDIR'];
 begin
+
 end;
 
+procedure GetDir(DriveNr: byte; var Dir: ShortString);
+begin
 
+end;
 

rtl/gba/system.pp

@@ -187,7 +187,7 @@ begin
 { OS specific startup }
 
 { Set up signals handlers }
-  fpc_cpucodeinit;
+//  fpc_cpucodeinit;
 
 { Setup heap }
   InitHeap;