diff --git a/.gitattributes b/.gitattributes index 7d23eb2c5b..be39a87dd3 100644 --- a/.gitattributes +++ b/.gitattributes @@ -12197,6 +12197,7 @@ rtl/zxspectrum/Makefile svneol=native#text/plain rtl/zxspectrum/Makefile.fpc svneol=native#text/plain rtl/zxspectrum/prt0.asm svneol=native#text/plain rtl/zxspectrum/rtldefs.inc svneol=native#text/plain +rtl/zxspectrum/sysdir.inc svneol=native#text/plain rtl/zxspectrum/sysfile.inc svneol=native#text/plain rtl/zxspectrum/sysheap.inc svneol=native#text/plain rtl/zxspectrum/sysos.inc svneol=native#text/plain diff --git a/rtl/zxspectrum/sysdir.inc b/rtl/zxspectrum/sysdir.inc new file mode 100644 index 0000000000..1d04169f45 --- /dev/null +++ b/rtl/zxspectrum/sysdir.inc @@ -0,0 +1,35 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 1999-2000 by Florian Klaempfl and Pavel Ozerski + member of the Free Pascal development team. + + FPC Pascal system unit for the Win32 API. + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{***************************************************************************** + Directory Handling +*****************************************************************************} + +Procedure do_MkDir(const s: rawbytestring); +begin +end; + +Procedure do_RmDir(const s: rawbytestring); +begin +end; + +Procedure do_ChDir(const s: rawbytestring); +begin +end; + +procedure do_GetDir (DriveNr: byte; var Dir: RawByteString); +begin +end;