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
|
{
Test with:
./finddeclarationtest --format=plain --suite=TestFindDeclaration_ObjCClass
}
unit fdt_objcclass;
{$mode objfpc}{$H+}
{$ModeSwitch objectivec1}
interface
uses
Classes, SysUtils;
type
TMyObjCClassA1 = objcclass(NSObject) // ObjCClass with implicit ancestor NSObject
end;
procedure DoIt;
implementation
procedure DoIt;
var
a: TMyObjCClassA1;
begin
a:=TMyObjCClassA1.alloc{declaration:objcbase.NSObject.alloc}.init{declaration:objcbase.NSObject.init};
a.dealloc;
end;
end.
|
