ソースを参照

ncgvmt.pas, TVMTWriter:
* generate_field_table: use the indirect symbol for the class references; it is currently not used in the RTL, so mentioning this in User Changes Trunk should be enough

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

svenbarth 9 年 前
コミット
920997c29b
1 ファイル変更1 行追加1 行削除
  1. 1 1
      compiler/ncgvmt.pas

+ 1 - 1
compiler/ncgvmt.pas

@@ -554,7 +554,7 @@ implementation
             if (tf_requires_proper_alignment in target_info.flags) then
             if (tf_requires_proper_alignment in target_info.flags) then
               list.concat(cai_align.Create(sizeof(TConstPtrUInt)));
               list.concat(cai_align.Create(sizeof(TConstPtrUInt)));
             for i:=0 to classtablelist.Count-1 do
             for i:=0 to classtablelist.Count-1 do
-              list.concat(Tai_const.Createname(tobjectdef(classtablelist[i]).vmt_mangledname,AT_DATA,0));
+              list.concat(Tai_const.Createname(tobjectdef(classtablelist[i]).vmt_mangledname(true),AT_DATA,0));
             result:=fieldtable;
             result:=fieldtable;
           end
           end
         else
         else