From 61f9cd63c850a046465c8c1e8c73277d89eec94b Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 17 Mar 2009 12:21:02 +0000
Subject: [PATCH] modified type 'id' definition

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@742 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 bindings/objc/objcrtl.pas   | 2 +-
 bindings/objc/objcrtl10.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bindings/objc/objcrtl.pas b/bindings/objc/objcrtl.pas
index c409605ef..c2d146cd1 100644
--- a/bindings/objc/objcrtl.pas
+++ b/bindings/objc/objcrtl.pas
@@ -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;
diff --git a/bindings/objc/objcrtl10.pas b/bindings/objc/objcrtl10.pas
index 7be5ad4a2..52862a756 100644
--- a/bindings/objc/objcrtl10.pas
+++ b/bindings/objc/objcrtl10.pas
@@ -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;