pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fixed PowerPC declaration stretreg and added linking to Foundation framework for objcrtltest

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@766 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-06 14:41:37 +00:00
parent 3fb17bb8f6
commit a5d4c3203d
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/objc/objcrtl.pas
View File

@ -396,7 +396,7 @@ begin
Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend');
{$else}
Pointer(objc_msgSend_fpret) := GetProcedureAddress(hnd, 'objc_msgSend');
Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend_streg');
Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSends_stret');
{$endif}
Result := true;
end;

4
bindings/objc/objcrtltest.pas
View File

@ -21,7 +21,7 @@ uses
objcrtl20, objcrtl10, objcrtl, objcrtlutils;
{.$linkframework AppKit}
{.$linkframework Foundation}
{$linkframework Foundation}
type
TSubStructure = packed record
@ -100,7 +100,7 @@ var
cl : _Class;
b : Boolean;
begin
cl := objc_allocateClassPair(objcclass('NSObject'), NewClassName, 0);
cl := objc_allocateClassPair(objc_getClass('NSObject'), NewClassName, 0);
b := class_addMethod(cl, selector(OverrideMethod), @imp_init, overrideMethodEnc) and
class_addMethod(cl, selector(newMethod1), @imp_newMethod1, newMethod1Enc) and
class_addMethod(cl, selector(newMethod2), @imp_newMethod2, newMethod2Enc) and