paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ even more stuff added

Browse Source
This commit is contained in:
olle 2004-09-30 19:33:53 +00:00
parent 39d6a252e2
commit ae0d5d47c0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/macos/macostp.inc
View File

@ -698,10 +698,16 @@ external 'InterfaceLib';
function FSpDelete(spec: FSSpec): OSErr;
external 'InterfaceLib';
FUNCTION FSpSetFLock({CONST}VAR spec: FSSpec): OSErr;
FUNCTION FSpGetFInfo(const spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
external 'InterfaceLib';
FUNCTION FSpRstFLock({CONST}VAR spec: FSSpec): OSErr;
FUNCTION FSpSetFInfo(const spec: FSSpec; const fndrInfo: FInfo): OSErr;
external 'InterfaceLib';
FUNCTION FSpSetFLock(const spec: FSSpec): OSErr;
external 'InterfaceLib';
FUNCTION FSpRstFLock(const spec: FSSpec): OSErr;
external 'InterfaceLib';
function FSClose(refNum: Integer): OSErr;