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

Fix startup problem in Lazarus if compiled with ARC-branch compiler.

rtl/inc/objpash.inc:
  + new constant for the offset to the VMT field for the Reference Count offset
  * correctly calculate the first offset of the virtual methods of the VMT

git-svn-id: branches/svenbarth/arc@28962 -
svenbarth пре 10 година
родитељ
комит
af7532fd67
1 измењених фајлова са 5 додато и 0 уклоњено
  1. 5 0
      rtl/inc/objpash.inc

+ 5 - 0
rtl/inc/objpash.inc

@@ -44,8 +44,13 @@
        vmtAutoTable            = vmtParent+sizeof(pointer)*7;
        vmtIntfTable            = vmtParent+sizeof(pointer)*8;
        vmtMsgStrPtr            = vmtParent+sizeof(pointer)*9;
+       vmtRefCountOfs          = vmtParent+sizeof(pointer)*10;
        { methods }
+       {$ifdef ver2_6}
        vmtMethodStart          = vmtParent+sizeof(pointer)*10;
+       {$else}
+       vmtMethodStart          = vmtParent+sizeof(pointer)*11;
+       {$endif}
        vmtDestroy              = vmtMethodStart;
        vmtNewInstance          = vmtMethodStart+sizeof(codepointer);
        vmtFreeInstance         = vmtMethodStart+sizeof(codepointer)*2;