blob: 13ba99c85732636d2f361c879f47f3a72a18c432 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }
{ %opt=-vh -Seh }
{ %fail }
{ Written by Jonas Maebe in 2009, released into the public domain }
{$mode objfpc}
{$modeswitch objectivec1}
uses
ctypes;
type
TMyTestClass = objcclass(NSObject)
end;
TMyTestClass2 = objcclass external name 'TMyTestClass' (NSObject)
{ should give a hint because of a missing 'override' }
function hash: cuint;
end;
var
a: id;
b: tmytestclass2;
begin
b:=nil;
if assigned(b) then
;
{ avoid warnings/hints about unused types/variables }
a:=TMyTestClass.alloc;
tmytestclass(a).Retain;
end.
|
