* use an existing class as external name (NSZone is not a class)

git-svn-id: branches/objc@13690 -
This commit is contained in:
Jonas Maebe 2009-09-11 17:48:02 +00:00
parent b76def10b2
commit e835b05d49

View File

@ -13,7 +13,7 @@ type
TMyTestClass = objcclass(NSObject)
{ should not give a hint, since we have 'override' }
function hash: cuint; override;
end; external name 'NSZone';
end; external name 'NSObject';
var
a: id;