Преглед на файлове

ncgrtti.pas, TRTTIWriter.write_extra_rttisyms:
* enumdef_rtti_string2ordindex & enumdef_rtti_ord2stringindex: put the indirect suffix at the end of the symbol

git-svn-id: branches/svenbarth/packages@32455 -

svenbarth преди 9 години
родител
ревизия
2cc0761049
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/ncgrtti.pas

+ 2 - 2
compiler/ncgrtti.pas

@@ -1147,7 +1147,7 @@ implementation
                 end;
               asmlists[al_rtti].concat(Tai_symbol_end.create(rttilab));
               { write the indirect symbol }
-              rttilabind:=current_asmdata.DefineAsmSymbol(tstoreddef(def).rtti_mangledname(rt,true)+'_o2s',AB_GLOBAL,AT_DATA);
+              rttilabind:=current_asmdata.DefineAsmSymbol(tstoreddef(def).rtti_mangledname(rt,false)+'_o2s'+indirect_suffix,AB_GLOBAL,AT_DATA);
               current_asmdata.asmlists[al_rtti].concat(Tai_symbol.Create_Global(rttilabind,0));
               current_asmdata.asmlists[al_rtti].concat(Tai_const.Createname(rttilab.name,AT_DATA,0));
               current_asmdata.asmlists[al_rtti].concat(tai_symbol_end.Create(rttilabind));
@@ -1184,7 +1184,7 @@ implementation
                 end;
               asmlists[al_rtti].concat(Tai_symbol_end.create(rttilab));
               { write the indirect symbol }
-              rttilabind:=current_asmdata.DefineAsmSymbol(tstoreddef(def).rtti_mangledname(rt,true)+'_s2o',AB_GLOBAL,AT_DATA);
+              rttilabind:=current_asmdata.DefineAsmSymbol(tstoreddef(def).rtti_mangledname(rt,false)+'_s2o'+indirect_suffix,AB_GLOBAL,AT_DATA);
               current_asmdata.asmlists[al_rtti].concat(Tai_symbol.Create_Global(rttilabind,0));
               current_asmdata.asmlists[al_rtti].concat(Tai_const.Createname(rttilab.name,AT_DATA,0));
               current_asmdata.asmlists[al_rtti].concat(tai_symbol_end.Create(rttilabind));