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

10
rtl/embedded/sysdir.inc
View File

@ -19,20 +19,24 @@
{***************************************************************************** {*****************************************************************************
Directory Handling Directory Handling
*****************************************************************************} *****************************************************************************}
procedure mkdir(const s : string);[IOCheck]; procedure mkdir(s: pchar;len:sizeuint);[IOCheck];
begin begin
InOutRes:=3;
end; end;
procedure rmdir(const s : string);[IOCheck]; procedure rmdir(s: pchar;len:sizeuint);[IOCheck];
begin begin
InOutRes:=3;
end; end;
procedure chdir(const s : string);[IOCheck]; procedure chdir(s: pchar;len:sizeuint);[IOCheck];
begin begin
InOutRes:=3;
end; end;
procedure GetDir (DriveNr: byte; var Dir: ShortString); procedure GetDir (DriveNr: byte; var Dir: ShortString);
begin begin
InOutRes:=3;
end; end;