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
|
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm,aarch64 }
{ %norun }
{ Written by Jonas Maebe in 2010, released into the public domain }
{$mode objfpc}
{$modeswitch objectivec1}
// will refer to the real NSObject in objcbase
procedure mytest(a: NSObject);
begin
end;
// define external incomplete version
type
NSObject = objcclass external;
// NSObject should still resolve to the full definition in objcbase
MyObject = objcclass(NSObject)
end;
var
// refers to external incomplete version
a: NSObject;
begin
// compiler should treat external and real type as compatible
mytest(a);
end.
|
