Ver código fonte

+ even more stuff added

olle 21 anos atrás
pai
commit
ae0d5d47c0
1 arquivos alterados com 8 adições e 2 exclusões
  1. 8 2
      rtl/macos/macostp.inc

+ 8 - 2
rtl/macos/macostp.inc

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