diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-09-27 15:40:52 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-09-27 15:40:52 +0000 |
commit | 713a76900ac5dba4a1b8511ba664f11981cca6f3 (patch) | |
tree | 12bd14ea67409e4c768d37ae1be7bc66d1f966fb /compiler/expunix.pas | |
parent | 8d15f141aa377f12d9df512f30103b0ae9bee241 (diff) | |
download | fpc-713a76900ac5dba4a1b8511ba664f11981cca6f3.tar.gz |
+ support for exporting Objective-C classes from dynamic libraries. It works
the same as for exporting functions/procedures and variables: add the name
of the class to the "exports" section of the library. By default, classes
are only visible inside a shared library.
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/objc@13765 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/expunix.pas')
-rw-r--r-- | compiler/expunix.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/expunix.pas b/compiler/expunix.pas index 0712e36066..9561d37191 100644 --- a/compiler/expunix.pas +++ b/compiler/expunix.pas @@ -172,7 +172,8 @@ begin end else begin - if (hp2.name^<>hp2.sym.mangledname) then + if assigned(hp2.sym) and + (hp2.name^<>hp2.sym.mangledname) then Message2(parser_e_cant_export_var_different_name,hp2.sym.realname,hp2.sym.mangledname) else exportedsymnames.insert(hp2.name^); |