paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 18:00:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the stack offset to the self parameter when generating an interface

Browse Source 
wrapper for a virtual method in tcg8086.g_intf_wrapper

git-svn-id: trunk@25816 -
This commit is contained in:
nickysn 2013-10-18 10:56:04 +00:00
parent 655428a467
commit 116d3746ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i8086/cgcpu.pas
View File

@ -1792,7 +1792,7 @@ unit cgcpu;
list.concat(taicpu.op_reg(A_PUSH,S_W,NR_BX)); { allocate space for address} list.concat(taicpu.op_reg(A_PUSH,S_W,NR_BX)); { allocate space for address}
list.concat(taicpu.op_reg(A_PUSH,S_W,NR_BX)); list.concat(taicpu.op_reg(A_PUSH,S_W,NR_BX));
list.concat(taicpu.op_reg(A_PUSH,S_W,NR_DI)); list.concat(taicpu.op_reg(A_PUSH,S_W,NR_DI));
getselftobx(8); getselftobx(6);
loadvmttobx; loadvmttobx;
loadmethodoffstobx; loadmethodoffstobx;
{ set target address { set target address