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

PPC function name fixing (thanks Jonas), switched off debug usage

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@767 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-06 15:18:12 +00:00
parent a5d4c3203d
commit f9723fb328
2 changed files with 2 additions and 4 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'); Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend');
{$else} {$else}
Pointer(objc_msgSend_fpret) := GetProcedureAddress(hnd, 'objc_msgSend'); Pointer(objc_msgSend_fpret) := GetProcedureAddress(hnd, 'objc_msgSend');
Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSends_stret'); Pointer(objc_msgSend_stretreg) := GetProcedureAddress(hnd, 'objc_msgSend_stret');
{$endif} {$endif}
Result := true; Result := true;
end; end;

4
bindings/objc/objcrtl10.pas
View File

@ -7,7 +7,7 @@
headers included with XCode 3.1.2 headers included with XCode 3.1.2
The original copyright note of is kept on each include file The original copyright note of is kept on each include file
} }
{$DEFINE DEBUG} {.$DEFINE DEBUG}
unit objcrtl10; unit objcrtl10;
@ -18,8 +18,6 @@ interface
uses uses
ctypes, objcrtl, dynlibs; ctypes, objcrtl, dynlibs;
//todo: *10 WRAPPERS!
{ {
Mac OS X Version 10.5 Delta Mac OS X Version 10.5 Delta
--------------------------- ---------------------------