paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: don't write reference to objc classes/protocols when writing tkClassRef rtti

Browse Source 
git-svn-id: trunk@24454 -
This commit is contained in:
paul 2013-05-06 13:12:09 +00:00
parent b0f7786782
commit 39cee28f01
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/ncgrtti.pas
View File

@ -624,7 +624,10 @@ implementation
begin
write_header(def,tkClassRef);
maybe_write_align;
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(def.pointeddef,rt)));
if is_objc_class_or_protocol(def.pointeddef) then
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(nil))
else
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(def.pointeddef,rt)));
end;
procedure pointerdef_rtti(def:tpointerdef);