mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 20:13:42 +02:00
27 lines
509 B
ObjectPascal
27 lines
509 B
ObjectPascal
{ %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.
|