diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-06-25 15:08:37 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-06-25 15:08:37 +0000 |
commit | 1145d588c2105844db15b720972cd56572be4e31 (patch) | |
tree | 9852b80f1f6fd8b65e8d5407b6b7f6214715b615 /tests/test/uobjc35f.pp | |
parent | 92653e7a31d7e84fb6a0e6eb6c1b0ce5eec5c1bf (diff) | |
download | fpc-1145d588c2105844db15b720972cd56572be4e31.tar.gz |
+ support for formally declared objcclasses ("type x=objcclass;external;")
+ tests
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15476 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/test/uobjc35f.pp')
-rw-r--r-- | tests/test/uobjc35f.pp | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/test/uobjc35f.pp b/tests/test/uobjc35f.pp new file mode 100644 index 0000000000..d1104d45cc --- /dev/null +++ b/tests/test/uobjc35f.pp @@ -0,0 +1,32 @@ +{ Written by Jonas Maebe in 2010, released into the public domain } + +{$mode objfpc} +{$modeswitch objectivec1} + +unit uobjc35f; + +interface + +type + MyExternalClass = objcclass; external; + +procedure test; + +implementation + +uses + uobjc35e; + +procedure test; +var + a: MyExternalClass; +begin + { the definition in uobjc35e should override the external definition + from this unit } + a:=MyExternalClass.alloc.init; + if a.myTest<>1234 then + halt(1); + a.release; +end; + +end. |