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

updated test for structure size check

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@761 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-03 10:32:10 +00:00
parent 60127de191
commit d1fed6a252
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
bindings/objc/objcrtltest.pas
View File

@@ -117,13 +117,15 @@ var
varobj : TObject;
p : Pointer;
{$WARNINGS OFF} // cdecl'ared functions have no high parameter
type
TgetSmallRecord = function (obj: id; cmd: Sel; arg: array of const): TSmallRecord; cdecl;
{$WARNINGS ON}
begin
// if InitializeObjcRtl20(DefaultObjCLibName) then // should be used of OSX 10.5 and iPhoneOS
if InitializeObjcRtl20(DefaultObjCLibName) then // should be used of OSX 10.4 and lower
if InitializeObjcRtl10(DefaultObjCLibName) then // should be used of OSX 10.4 and lower
writeln('Objective-C runtime initialized successfuly')
else begin
writeln('failed to initialize Objective-C runtime');
@@ -138,7 +140,15 @@ begin
objc_msgSend(obj, selector(overrideMethod), []);}
writeln('sizeof(TSmallRecord) = ', sizeof(TSmallRecord));
stret := TgetSmallRecord(objc_msgSend_stretreg)(obj, selector(newMethod5), []);
// this must be resolved at code-time (or compiler-time), not run-time
{$WARNINGS OFF} // unreachable code
if sizeof(TSmallRecord) in [1,2,4,8] then
stret := TgetSmallRecord(objc_msgSend_stretreg)(obj, selector(newMethod5), [])
else
stret := TgetSmallRecord(objc_msgSend_stret)(obj, selector(newMethod5), []);
{$WARNINGS ON}
//writeln('p = ', Integer(p));
//stret :=
@@ -147,8 +157,6 @@ begin
writeln('stret.c = ', stret.c);
writeln('stret.d = ', stret.d);
//PInteger(@stret)^ := Integer(objc_msgSend(obj, selector(newMethod5), []));
objc_msgSend(obj, selector(newMethod1), []);
objc_msgSend(obj, selector(newMethod2), [5, 4]);