Explorar el Código

+ even more stuff added

olle hace 21 años
padre
commit
ae0d5d47c0
Se han modificado 1 ficheros con 8 adiciones y 2 borrados
  1. 8 2
      rtl/macos/macostp.inc

+ 8 - 2
rtl/macos/macostp.inc

@@ -698,10 +698,16 @@ external 'InterfaceLib';
 function FSpDelete(spec: FSSpec): OSErr;
 function FSpDelete(spec: FSSpec): OSErr;
 external 'InterfaceLib';
 external 'InterfaceLib';
 
 
-FUNCTION FSpSetFLock({CONST}VAR spec: FSSpec): OSErr;
+FUNCTION FSpGetFInfo(const spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
 external 'InterfaceLib';
 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';
 external 'InterfaceLib';
 
 
 function FSClose(refNum: Integer): OSErr;
 function FSClose(refNum: Integer): OSErr;