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

* tcg8086.g_adjust_self_value fixed for far code memory models

Browse Source 
git-svn-id: trunk@25798 -
This commit is contained in:
nickysn 2013-10-15 23:34:18 +00:00
parent 60537a94ea
commit 814e1297ed
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i8086/cgcpu.pas
View File

@ -1627,7 +1627,12 @@ unit cgcpu;
hsym : tsym;
href : treference;
paraloc : Pcgparalocation;
return_address_size: Integer;
begin
if current_settings.x86memorymodel in x86_far_code_models then
return_address_size:=4
else
return_address_size:=2;
{ calculate the parameter info for the procdef }
procdef.init_paraloc_info(callerside);
hsym:=tsym(procdef.parast.Find('self'));
@ -1652,15 +1657,15 @@ unit cgcpu;
list.concat(taicpu.op_reg_reg(A_MOV,S_W,reference.index,NR_DI));
if reference.index=NR_SP then
reference_reset_base(href,NR_DI,reference.offset+sizeof(pint)+2,sizeof(pint))
reference_reset_base(href,NR_DI,reference.offset+return_address_size+2,sizeof(pint))
else
reference_reset_base(href,NR_DI,reference.offset+sizeof(pint),sizeof(pint));
reference_reset_base(href,NR_DI,reference.offset+return_address_size,sizeof(pint));
a_op_const_ref(list,OP_SUB,size,ioffset,href);
list.concat(taicpu.op_reg(A_POP,S_W,NR_DI));
end
else
begin
reference_reset_base(href,reference.index,reference.offset+sizeof(pint),sizeof(pint));
reference_reset_base(href,reference.index,reference.offset+return_address_size,sizeof(pint));
a_op_const_ref(list,OP_SUB,size,ioffset,href);
end;
end