From 0a6dd12bb96222f8a3f749051584ef17e3eac9bd Mon Sep 17 00:00:00 2001 From: skalogryz Date: Sat, 21 Mar 2009 13:44:00 +0000 Subject: [PATCH] fixing objc_msgSend_stret function declaration git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@746 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- bindings/objc/objcrtl.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bindings/objc/objcrtl.pas b/bindings/objc/objcrtl.pas index c2d146cd1..e5724a89c 100644 --- a/bindings/objc/objcrtl.pas +++ b/bindings/objc/objcrtl.pas @@ -225,8 +225,8 @@ var {$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_stret : procedure (stret: Pointer; self: id; op: SEL; param3: array of const); cdecl= nil; + objc_msgSendSuper_stret : procedure (stret: Pointer; 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}