paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 03:09:15 +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

10
rtl/embedded/sysdir.inc
View File

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