paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed wrong declaration of objc_msgSend

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@737 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2009-03-13 15:18:41 +00:00
parent 72809c8784
commit 547722ce0d
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
bindings/objc/objcrtl.pas
View File

@ -17,7 +17,7 @@ uses
dynlibs;
const
OSXObjCLibName : AnsiString = 'libobjc.A.dylib';
DefaultObjCLibName : AnsiString = 'libobjc.A.dylib';
{ Overview
@ -222,12 +222,13 @@ var
objc_setEnumerationMutationHandler : procedure (handler:TMutationHandlerProc); cdecl = nil;
objc_setForwardHandler: procedure (fwd:pointer; fwd_stret:pointer); cdecl = nil;
objc_msgSend : function (self: id; op: SEL{; ...}): id; cdecl = nil;
objc_msgSendSuper : function (const super: objc_super; op: SEL{; ...}): id = nil;
objc_msgSend_stret : procedure (self: id; op: SEL{; ...}); cdecl= nil;
objc_msgSendSuper_stret : procedure (const super: objc_super; op: SEL{, ...})= nil;
objc_msgSend_fpret : function (self: id; op: SEL{ , ...}): double= nil;
{$WARNINGS OFF} // warning: cdecl'ared funtions have no high parameter
objc_msgSend : function (self: id; op: SEL; param3: array of const): id; cdecl = nil;
objc_msgSendSuper : function (const super: objc_super; op: SEL; param3: array of const): id; cdecl = nil;
objc_msgSend_stret : procedure (self: id; op: SEL; param3: array of const); cdecl= nil;
objc_msgSendSuper_stret : procedure (const super: objc_super; op: SEL; param3: array of const); cdecl = nil;
objc_msgSend_fpret : function (self: id; op: SEL; param3: array of const): double; cdecl = nil;
{$WARNINGS ON}
method_invoke : function (receiver: id; m: Method {, ...}): id= nil;
method_invoke_stret : procedure (receiver: id; m: Method{ , ...})= nil;