From 26a9bbbd13ec6717cd0f944640e96c4f83e40946 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 27 Aug 2011 22:43:53 +0000
Subject: [PATCH] * fix sysdir.inc dummy for embedded targets

git-svn-id: trunk@18868 -
---
 rtl/embedded/sysdir.inc | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/rtl/embedded/sysdir.inc b/rtl/embedded/sysdir.inc
index b89c4a2193..f65b0c8670 100644
--- a/rtl/embedded/sysdir.inc
+++ b/rtl/embedded/sysdir.inc
@@ -5,7 +5,7 @@
     Low level directory functions
     GBA does not have any drive, so no directory handling is needed.
     Copyright (c) 2006 by Francesco Lombardi
-    
+
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
 
@@ -19,20 +19,24 @@
 {*****************************************************************************
                            Directory Handling
 *****************************************************************************}
-procedure mkdir(const s : string);[IOCheck];
+procedure mkdir(s: pchar;len:sizeuint);[IOCheck];
 begin
+  InOutRes:=3;
 end;
 
-procedure rmdir(const s : string);[IOCheck];
+procedure rmdir(s: pchar;len:sizeuint);[IOCheck];
 begin
+  InOutRes:=3;
 end;
 
-procedure chdir(const s : string);[IOCheck];
+procedure chdir(s: pchar;len:sizeuint);[IOCheck];
 begin
+  InOutRes:=3;
 end;
 
 procedure GetDir (DriveNr: byte; var Dir: ShortString);
 begin
+  InOutRes:=3;
 end;