mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
* fix sysdir.inc dummy for embedded targets
git-svn-id: trunk@18868 -
This commit is contained in:
parent
a683b7e9f1
commit
26a9bbbd13
@ -5,7 +5,7 @@
|
|||||||
Low level directory functions
|
Low level directory functions
|
||||||
GBA does not have any drive, so no directory handling is needed.
|
GBA does not have any drive, so no directory handling is needed.
|
||||||
Copyright (c) 2006 by Francesco Lombardi
|
Copyright (c) 2006 by Francesco Lombardi
|
||||||
|
|
||||||
See the file COPYING.FPC, included in this distribution,
|
See the file COPYING.FPC, included in this distribution,
|
||||||
for details about the copyright.
|
for details about the copyright.
|
||||||
|
|
||||||
@ -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;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user