paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* have tcgrttinode use the indirect RTTI labels if necessary

Browse Source 
git-svn-id: trunk@34224 -
This commit is contained in:
svenbarth 2016-07-29 14:03:31 +00:00
parent 61551cbb0f
commit a173c34d96
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgld.pas
View File

@ -1456,15 +1456,22 @@ implementation
*****************************************************************************}
procedure tcgrttinode.pass_generate_code;
var
indirect : boolean;
begin
indirect := (tf_supports_packages in target_info.flags) and
(target_info.system in systems_indirect_var_imports) and
(cs_imported_data in current_settings.localswitches) and
(rttidef.owner.moduleid<>current_module.moduleid);
location_reset_ref(location,LOC_CREFERENCE,OS_NO,sizeof(pint));
case rttidatatype of
rdt_normal:
location.reference.symbol:=RTTIWriter.get_rtti_label(rttidef,rttitype,false);
location.reference.symbol:=RTTIWriter.get_rtti_label(rttidef,rttitype,indirect);
rdt_ord2str:
location.reference.symbol:=RTTIWriter.get_rtti_label_ord2str(rttidef,rttitype,false);
location.reference.symbol:=RTTIWriter.get_rtti_label_ord2str(rttidef,rttitype,indirect);
rdt_str2ord:
location.reference.symbol:=RTTIWriter.get_rtti_label_str2ord(rttidef,rttitype,false);
location.reference.symbol:=RTTIWriter.get_rtti_label_str2ord(rttidef,rttitype,indirect);
end;
end;