Browse Source

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

git-svn-id: trunk@31253 -
Jonas Maebe 10 years ago
parent
commit
2cfc3ca4d1
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ncgvmt.pas

+ 2 - 0
compiler/ncgvmt.pas

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