paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed CONST and wrong record value params

Browse Source
This commit is contained in:
olle 2005-01-22 15:06:17 +00:00
parent 63eddaa305
commit 4dd211d6e0
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/macos/macostp.inc
View File

@ -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 ***************}