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

modified type 'id' definition

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@742 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-03-17 12:21:02 +00:00
parent 80a8d607a9
commit 61f9cd63c8
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

@ -86,7 +86,7 @@ type
//todo: types MUST BE declared properly as 2.0 opaques
SEL = Pointer;
IMP = Pointer;
id = PtrInt;
id = Pointer; //??
size_t = LongWord;
_Class = Pointer;
Ivar = Pointer;

4
bindings/objc/objcrtl10.pas
View File

@ -200,7 +200,7 @@ function object_getClass10(obj:id): _Class; cdecl;
var
name : PChar;
begin
if obj = 0 then Result := nil
if obj = nil then Result := nil
else begin
Result := _Class(Pobjc_object1(obj)^.isa);
end;
@ -215,7 +215,7 @@ end;
function object_getIvar10(obj:id; ivar:Ivar):id; cdecl;
begin
Result := 0;
Result := nil ;
end;
procedure object_setIvar10(obj:id; ivar:Ivar; value:id); cdecl;