blob: a1562a5563219a05bb62cbcba0a6aec64afbf046 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }
{ Written by Jonas Maebe in 2010, released into the public domain }
{$mode objfpc}
{$modeswitch objectivec1}
uses
uobjc35d, uobjc35e;
var
a: MyExternalClass;
begin
a:=MyExternalClass.alloc.init;
if a.myTest<>1234 then
halt(1);
a.release;
end.
|
