paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't try to generate mangled names for methods of categories

Browse Source 
for which the parent class hasn't been resolved yet (causes
    a crash)

git-svn-id: trunk@15429 -
This commit is contained in:
Jonas Maebe 2010-06-13 15:43:40 +00:00
parent d6c2326f87
commit 4847103436
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecl.pas
View File

@ -595,7 +595,10 @@ implementation
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
{ watch out for crashes in case of errors }
if is_objc_class_or_protocol(hdef) and
(not is_objccategory(hdef) or
assigned(tobjectdef(hdef).childof)) then
tobjectdef(hdef).finish_objc_data;
if is_cppclass(hdef) then