Browse Source

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

git-svn-id: branches/objc@13690 -
Jonas Maebe 16 years ago
parent
commit
e835b05d49
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/tobjc8a.pp

+ 1 - 1
tests/test/tobjc8a.pp

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