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

more debugging in objcrtl10

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@765 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-04-06 13:17:08 +00:00
parent cf995dd2cb
commit 3fb17bb8f6
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
bindings/objc/objcrtl10.pas
View File

@ -415,7 +415,19 @@ var
namelen : Integer; namelen : Integer;
begin begin
Result := nil; 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); super := _Class1(superclass);
// Find the root class // Find the root class