diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-09-27 15:28:49 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-09-27 15:28:49 +0000 |
| commit | 8d15f141aa377f12d9df512f30103b0ae9bee241 (patch) | |
| tree | 541c1def8523c066e8ed8dcec56d5f3c38c21bc5 /compiler/pdecl.pas | |
| parent | 02277da0e124ee9ac1411ae6c7525b9e81891117 (diff) | |
| download | fpc-8d15f141aa377f12d9df512f30103b0ae9bee241.tar.gz | |
* don't show notes about "unused" private fields of external obj-c class
declarations (since even though they're not used in the Pascal code,
they probably are in the Objective-C code that actually implements them)
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/objc@13764 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/pdecl.pas')
| -rw-r--r-- | compiler/pdecl.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas index 5958fd0ed1..edde0940bb 100644 --- a/compiler/pdecl.pas +++ b/compiler/pdecl.pas @@ -528,10 +528,12 @@ implementation { In case of an objcclass, verify that all methods have a message name set. We only check this now, because message names can be set during the protocol (interface) mapping. At the same time, set the - mangled names (these depend on the "external" name of the class). + mangled names (these depend on the "external" name of the class), + and mark private fields of external classes as "used" (to avoid + bogus notes about them being unused) } if is_objc_class_or_protocol(hdef) then - tobjectdef(hdef).check_and_finish_messages; + tobjectdef(hdef).finish_objc_data; end; recorddef : |