From 3fb17bb8f69e041d498202af67720c23fcec2766 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 6 Apr 2009 13:17:08 +0000
Subject: [PATCH] more debugging in objcrtl10

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@765 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 bindings/objc/objcrtl10.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/bindings/objc/objcrtl10.pas b/bindings/objc/objcrtl10.pas
index cbb9f105e..04dc9319d 100644
--- a/bindings/objc/objcrtl10.pas
+++ b/bindings/objc/objcrtl10.pas
@@ -415,7 +415,19 @@ var
   namelen     : Integer;
 begin
   Result := nil;
-  if (superclass = nil) or (_Class1(objc_lookUpClass(name)) <> nil) then Exit;
+  if (superclass = nil) or (_Class1(objc_lookUpClass(name)) <> nil) then begin
+    {$ifdef DEBUG}
+    if not Assigned(superclass) then
+      writeln('no super class!')
+    else begin
+      if Assigned(objc_lookUpClass(name)) then
+        writeln('the class ', name, ' already exists')
+      else
+        writeln('this situation is impossible!');
+    end;
+    {$endif}
+    Exit;
+  end;
   super := _Class1(superclass);
 
   // Find the root class