소스 검색

+ even more stuff added

olle 21 년 전
부모
커밋
ae0d5d47c0
1개의 변경된 파일8개의 추가작업 그리고 2개의 파일을 삭제
  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;