Преглед изворни кода

* end the vmtdef aggregate so appropriate padding is inserted (if necessary)

git-svn-id: trunk@31253 -
Jonas Maebe пре 10 година
родитељ
комит
2cfc3ca4d1
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      compiler/ncgvmt.pas

+ 2 - 0
compiler/ncgvmt.pas

@@ -1206,6 +1206,8 @@ implementation
          writevirtualmethods(tcb);
          tcb.emit_tai(Tai_const.Create_nil_codeptr,voidcodepointertype);
 
+         tcb.maybe_end_aggregate(vmtdef);
+
          { concatenate the VMT to the asmlist }
          current_asmdata.asmlists[al_globals].concatlist(
            tcb.get_final_asmlist(