paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* i8086 far data memory model fixes in tobjectdef.vmtmethodoffset

Browse Source 
git-svn-id: trunk@27539 -
This commit is contained in:
nickysn 2014-04-11 23:05:42 +00:00
parent 8d9fda9264
commit 902d118ec8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -6283,7 +6283,7 @@ implementation
case objecttype of
odt_class:
{ the +2*sizeof(pint) is size and -size }
vmtmethodoffset:=index*voidcodepointertype.size+10*sizeof(pint)+2*sizeof(pint);
vmtmethodoffset:=index*voidcodepointertype.size+10*voidpointertype.size+2*sizeof(pint);
odt_helper,
odt_objcclass,
odt_objcprotocol:
@ -6295,10 +6295,11 @@ implementation
{ invalid }
vmtmethodoffset:=-1;
else
{ the +2*sizeof(pint) is size and -size }
{$ifdef WITHDMT}
vmtmethodoffset:=index*voidcodepointertype.size+4*sizeof(pint);
vmtmethodoffset:=index*voidcodepointertype.size+2*voidpointertype.size+2*sizeof(pint);
{$else WITHDMT}
vmtmethodoffset:=index*voidcodepointertype.size+3*sizeof(pint);
vmtmethodoffset:=index*voidcodepointertype.size+1*voidpointertype.size+2*sizeof(pint);
{$endif WITHDMT}
end;
end;