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

Fix for Mantis #30410.

Browse Source 
* ncgrtti.pas, TRTTIWriter.ref_rtti: don't require the indirect symbol as an external assembler symbol, but the direct one

git-svn-id: trunk@34221 -
This commit is contained in:
svenbarth 2016-07-29 13:49:42 +00:00
parent e3ebaa6e6a
commit 50865158a4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgrtti.pas
View File

@ -1522,13 +1522,16 @@ implementation
function TRTTIWriter.ref_rtti(def:tdef;rt:trttitype):tasmsymbol;
var
s : TSymStr;
begin
result:=current_asmdata.RefAsmSymbol(def.rtti_mangledname(rt),AT_DATA,true);
s:=def.rtti_mangledname(rt);
result:=current_asmdata.RefAsmSymbol(s,AT_DATA,true);
if (cs_create_pic in current_settings.moduleswitches) and
assigned(current_procinfo) then
include(current_procinfo.flags,pi_needs_got);
if def.owner.moduleid<>current_module.moduleid then
current_module.add_extern_asmsym(result);
current_module.add_extern_asmsym(s,AB_EXTERNAL,AT_DATA);
end;