From 547722ce0d1defb42ae9e978e732f00faf421d9d Mon Sep 17 00:00:00 2001 From: skalogryz Date: Fri, 13 Mar 2009 15:18:41 +0000 Subject: [PATCH] fixed wrong declaration of objc_msgSend git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@737 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- bindings/objc/objcrtl.pas | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/bindings/objc/objcrtl.pas b/bindings/objc/objcrtl.pas index 5d546e68f..c409605ef 100644 --- a/bindings/objc/objcrtl.pas +++ b/bindings/objc/objcrtl.pas @@ -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;