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
|
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }
{ Written by Jonas Maebe in 2009, released into the public domain }
{$mode objfpc}
{$modeswitch objectivec1}
var
a: NSObject;
b: pobjc_class;
c: pobjc_class;
d: pobjc_class;
begin
a:=NSObject(NSObject(NSObject.alloc).init);
b:=a._class;
c:=NSObject.classClass;
d:=a.classClass;
if (b<>c) or
(b<>d) then
begin
writeln('error: NSObject.Class <> NSObjectInstance.Class');
halt(1);
end;
a.release;
end.
|
