Browse Source

* fixed CONST and wrong record value params

olle 20 years ago
parent
commit
4dd211d6e0
1 changed files with 17 additions and 14 deletions
  1. 17 14
      rtl/macos/macostp.inc

+ 17 - 14
rtl/macos/macostp.inc

@@ -214,7 +214,7 @@ const
   gestaltOSAttr        = 'os  ';            {  o/s attributes  }
   gestaltSysZoneGrowable    = 0;              {  system heap is growable  }
   gestaltLaunchCanReturn    = 1;              {  can return from launch  }
-  gestaltLaunchFullFileSpec  = 2;              {  can launch from full file spec  }
+  gestaltLaunchFullFileSpec  = 2;              {  can launch from full file var spec  }
   gestaltLaunchControl    = 3;              {  launch control support available  }
   gestaltTempMemSupport    = 4;              {  temp memory support  }
   gestaltRealTempMemory    = 5;              {  temp memory handles are real  }
@@ -683,31 +683,31 @@ external 'InterfaceLib';
 FUNCTION GetVol(volName: StringPtr; VAR vRefNum: INTEGER): OSErr;
 external 'InterfaceLib';
 
-function FSpOpenDF(spec: FSSpec; permission: SignedByte;
+function FSpOpenDF(var spec: FSSpec; permission: SignedByte;
   var refNum: Integer): OSErr;
 external 'InterfaceLib';
 
-function FSpCreate(spec: FSSpec; creator, fileType: OSType;
+function FSpCreate(var spec: FSSpec; creator, fileType: OSType;
   scriptTag: ScriptCode): OSErr;
 external 'InterfaceLib';
 
-function FSpDirCreate(spec: FSSpec; scriptTag: ScriptCode;
+function FSpDirCreate(var spec: FSSpec; scriptTag: ScriptCode;
   var createdDirID: Longint): OSErr;
 external 'InterfaceLib';
 
-function FSpDelete(spec: FSSpec): OSErr;
+function FSpDelete(var spec: FSSpec): OSErr;
 external 'InterfaceLib';
 
-FUNCTION FSpGetFInfo(const spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
+FUNCTION FSpGetFInfo(var spec: FSSpec; VAR fndrInfo: FInfo): OSErr;
 external 'InterfaceLib';
 
-FUNCTION FSpSetFInfo(const spec: FSSpec; const fndrInfo: FInfo): OSErr;
+FUNCTION FSpSetFInfo(var spec: FSSpec; var fndrInfo: FInfo): OSErr;
 external 'InterfaceLib';
 
-FUNCTION FSpSetFLock(const spec: FSSpec): OSErr;
+FUNCTION FSpSetFLock(var spec: FSSpec): OSErr;
 external 'InterfaceLib';
 
-FUNCTION FSpRstFLock(const spec: FSSpec): OSErr;
+FUNCTION FSpRstFLock(var spec: FSSpec): OSErr;
 external 'InterfaceLib';
 
 function FSClose(refNum: Integer): OSErr;
@@ -1021,7 +1021,8 @@ type
 PROCEDURE GetTime(var d: DateTimeRec);
 external 'InterfaceLib';
 
-PROCEDURE SetTime(const d: DateTimeRec);
+PROCEDURE SetTime(var d: DateTimeRec);
+//PROCEDURE SetTime(const d: DateTimeRec);
 external 'InterfaceLib';
 
 PROCEDURE DateToSeconds({CONST}VAR d: DateTimeRec; VAR secs: UInt32);
@@ -1201,14 +1202,15 @@ FUNCTION AECreateDesc(typeCode: DescType; dataPtr: Mac_Ptr; dataSize: Size; VAR
 external 'InterfaceLib';
 FUNCTION AEDisposeDesc(VAR theAEDesc: AEDesc): OSErr;
 external 'InterfaceLib';
-FUNCTION AEDuplicateDesc(const theAEDesc: AEDesc; VAR result: AEDesc): OSErr;
+FUNCTION AEDuplicateDesc(var theAEDesc: AEDesc; VAR result: AEDesc): OSErr;
 external 'InterfaceLib';
 
-FUNCTION AECreateAppleEvent(theAEEventClass: AEEventClass; theAEEventID: AEEventID; const target: AEAddressDesc; returnID: AEReturnID; transactionID: AETransactionID; VAR result: AppleEvent): OSErr;
+FUNCTION AECreateAppleEvent(theAEEventClass: AEEventClass; theAEEventID: AEEventID; var target: AEAddressDesc;
+    returnID: AEReturnID; transactionID: AETransactionID; VAR result: AppleEvent): OSErr;
 external 'InterfaceLib';
 FUNCTION AEPutParamPtr(VAR theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; typeCode: DescType; dataPtr: Mac_Ptr; dataSize: Size): OSErr;
 external 'InterfaceLib';
-FUNCTION AEGetParamDesc(const theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr;
+FUNCTION AEGetParamDesc(var theAppleEvent: AppleEvent; theAEKeyword: AEKeyword; desiredType: DescType; VAR result: AEDesc): OSErr;
 external 'InterfaceLib';
 
 {************** from AEInteraction ***************}
@@ -1217,7 +1219,8 @@ type
   AEIdleUPP = ^LONGINT; { an opaque UPP }
   AEFilterUPP = ^LONGINT; { an opaque UPP }
 
-FUNCTION AESend(const theAppleEvent: AppleEvent; VAR reply: AppleEvent; sendMode: AESendMode; sendPriority: AESendPriority; timeOutInTicks: LONGINT; idleProc: AEIdleUPP; filterProc: AEFilterUPP): OSErr;
+FUNCTION AESend(var theAppleEvent: AppleEvent; VAR reply: AppleEvent; sendMode: AESendMode; sendPriority: AESendPriority;
+    timeOutInTicks: LONGINT; idleProc: AEIdleUPP; filterProc: AEFilterUPP): OSErr;
 external 'InterfaceLib';
 
 {************** from others ***************}