paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix sysdir.inc dummy for embedded targets

Browse Source 
git-svn-id: trunk@18868 -
This commit is contained in:
florian 2011-08-27 22:43:53 +00:00
parent a683b7e9f1
commit 26a9bbbd13
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/embedded/sysdir.inc
View File

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